绘制误差棒

Question

R中是否有一个函数执行以下操作：

取c（10,11,20,22,30,31）和c（1,1,2,2,3,3）

在x轴上绘制位置1的10和11的平均值，在x轴上绘制位置2的平均值20和22，在x轴上绘制位置3的平均值30和31并且还添加点周围标准偏差的误差条是什么？

如果没有，怎么做这样的事情？

Answer 1

dat <- data.frame(y=c(10,11,20,22,30,31),
                  x=c(1,1,2,2,3,3))

library("ggplot2")
ggplot(dat,aes(x,y))+stat_summary(fun.data=mean_cl_normal)