在条形图中修改数据点（ggplot2）

Question

我正在使用ggplot2绘制条形图。

D0=c(1,2,3)
D1=c(5,6,7)
D2=c(9,10,11)
average_D0=mean(D0)
average_D1=mean(D1)
average_D2=mean(D2)
df = data.frame(dose=c("D0.5", "D1", "D2"),
                len=c(average_D0, average_D1, average_D2))            
p = ggplot(data=df, aes(x=dose, y=len)) +
  geom_bar(stat="identity")

目标：在绘图上绘制数据点+1。

例如对于D0列，我想绘制数据点（2,3,4）

Answer 1

类似以下内容？

D0=c(1,2,3)
D1=c(5,6,7)
D2=c(9,10,11)

df <- cbind(D0, D1, D2)
df <- reshape2::melt(df)

ggplot(df) +
  stat_summary(aes(Var2, value), fun.y = mean, geom = "col") +
  geom_point(aes(Var2, value + 1))