使用R绘制条形图和误差线

Question

我有一个包含两列的csv文件，我试图用错误栏来绘制它。

a,b
1207,1457
2520,1207
1328,1136
1393,1112
8984,7680...

但是我的以下代码不起作用：

> data.means<-lapply(data, mean, na.rm = TRUE)
> data.sd <- lapply(data,sd)
> x = barplot(data.means, ylim=c(0,10000))
*Error in -0.01 * height : non-numeric argument to binary operator*
> error.bar(barx,data.means, 1.96*data.sd/10)

Answer 1

使用sapply而不是lapply。 lapply创建一个列表，但是barplot采用向量或矩阵。

data.sd <- sapply(data,sd)

x = barplot(data.means, ylim=c(0,10000))