R plot_ly add_trace＆amp; add_text：错误栏重复

Question

我用R创建了plot_ly条形图。我希望条形图有一个文本（显示它们的值）和一个错误条（来自同一个数据框）。所有内容都得到了很好的介绍，但错误条重复：

SampleData <- data.frame(Year = c(2014, 2014, 2015, 2015), Name = c("P", "J", "P", "J"),
    Results = c(7, 8, 6, 7), Error = c(1, 0.6, 0.8, 0.7))
SampleData <- split(SampleData, SampleData$Year)

如果我制作2014年的情节，使用错误栏和结果作为文字：

SamplePlot <- plot_ly(SampleData[[1]], x = ~Name, y = ~Results, type = "bar",
   text = ~Results, error_y = list(type = "data", array = ~Error, color = "black")) %>%
add_text(textposition = "top right")

然后我尝试使用相同的格式和错误栏向plot_ly添加跟踪：

SamplePlot <- add_trace(SamplePlot, data = SampleData[[2]], y = ~Results, type = "bar",
    text = ~Results, error_y = list(type = "data", array = ~Error, color = "black")) %>%
add_text(textposition = "top right")

此图将具有良好放置的误差条，但结果条之间也有其他

有没有办法add_trace error_y和add_text，但没有重复这些错误栏？

谢谢！