R 打印错误条

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的平均值，并在点周围添加适当的标准偏差误差条

如果没有，怎么做呢？

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