R 如何在geom_plot（）中正确添加平均值、标准偏差和抖动？ggplot2

我试图创建一个图表，显示每个值（抖动）的平均值、标准偏差和点。但是，我无法插入平均点，所有类别的标准偏差都是相同的（这是不正确的）

我的代码（示例）：

# Package
library(ggplot2)

# Dataframe
fruit <- c()
value <- c()
for (i in 0:30) {
  list_fruit <- c('Apple','Banana','Pear')
  fruit <- append(fruit, sample(list_fruit, 1))
  value <-  append(value, sample(1:50, 1))
}
df <- data.frame(fruit, value)

# Seed
set.seed(123)

# Plot
ggplot(df, aes(x = fruit, y = value, color = fruit)) +
  geom_point() +
  geom_jitter(width = 0.1) + 
  geom_linerange(aes(ymin = mean(value)-sd(value), ymax = mean(value)+sd(value)), col = 'black') +
  scale_color_manual(values=c('red','blue','purple'))

#包
图书馆（GG2）
#数据帧
fruit这可能是因为您参考的手册使用了ggplot2的旧版本，该版本不允许数据的交替方向。例如，
fun.y
现在被称为
fun
。下面是ggplot2版本3.3.3的示例

#包
图书馆（GG2）
#数据帧
水果