r - 晶格，包括误差线

Question

亲爱的stackoverflow专家，

我正在用lattice. 我有两个单独的表格，一个带有平均值，另一个带有标准错误。如何在条形图中包含标准误差？

table.df<-means 
table.std<-table_error
library(lattice)
library(gridExtra)
graph1<-barchart(value1~Var1|Var2+Var3,data=table.df, ylab=NULL)
graph2<-barchart(value2~Var1|Var2+Var3,data=table.df, ylab=NULL)
grid.arrange(graph1,graph2, nrow=2, ncol=2)

有什么建议吗？这可能吗？

Answer 1

虽然我同意这可能是一个坏主意的评论，但无论如何这里有一个解决方案：

x <- rnorm(100, 10, 1)
ind <- sample(c("one", "two"), 100, TRUE)

dd <- data.frame(
  m = tapply(x, ind, mean),
  ind = unique(ind),
  se = tapply(x, ind, function(x) {sd(x) / sqrt(length(x))})
)

lattice::barchart(ind ~ m, data = dd, xlim = c(8, 12),
                  se = dd$se,
                  panel = function(x, y, ...) {
                    panel.barchart(x, y, ...)
                    panel.segments(y0 = y, x0 = x - dd$se,
                                   y1 = y, x1 = x + dd$se, ...)
                  })