0

スタックオーバーフローの専門家の皆様

で棒グラフを作成していlatticeます。私は2つの別々のテーブルを持っています。1つは平均値で、もう1つは標準誤差です。バーに標準誤差を含めるにはどうすればよいですか?

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)

なにか提案を？これは可能ですか？

棒グラフの例

4

1 に答える 1

0

これはおそらく悪い考えだというコメントには同意しますが、とにかく解決策があります。

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, ...)
                  })

イムグル

于 2017-02-26T08:59:38.840 に答える