用 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))