R 向曲线图添加平均值

晚上好,， 我有一个如下所示的数据集，我正在尝试计算分组的violinplots。这一切都有效。但是现在我想加上平均值+标准偏差，如果我加上顺序，看起来很奇怪，所以我想对于分组图，方法是不同的

library(tidyverse)

# Load dataset from github
data <- read.table("https://raw.githubusercontent.com/holtzy/data_to_viz/master/Example_dataset/10_OneNumSevCatSubgroupsSevObs.csv", header=T, sep=",") %>%
  mutate(tip = round(tip/total_bill*100, 1))

# Grouped
data %>%
  ggplot(aes(fill=sex, y=tip, x=day)) + 
  geom_violin(trim = FALSE, position="dodge", alpha=0.5) +
  xlab("") +
  ylab("Tip (%)") +
  ylim(0,40) +
stat_summary(fun.data=mean_sdl, fun.args = list(mult = 1),
               geom="pointrange", color="black", shape = 18, size = 0.75)

库（tidyverse）
#从github加载数据集
数据%
变异（小费=圆形（小费/账单总额*100,1））
#分组
数据%>%
ggplot（aes（填充=性别，y=小费，x=天数））+
几何小提琴（修剪=假，位置=道奇，α=0.5）+
xlab（“”）+
ylab（“尖端（%）”）+
ylim（0,40）+
统计汇总（fun.data=mean\u sdl，fun.args=list（mult=1），
geom=“pointrange”，color=“black”，形状=18，大小=0.75）

如果有人能帮助我，我将非常高兴：）

谢谢大家!

如果您指定“位置”和“宽度”，您应该能够使它们正确对齐，例如

library(tidyverse)

# Load dataset from github
data <- read.table("https://raw.githubusercontent.com/holtzy/data_to_viz/master/Example_dataset/10_OneNumSevCatSubgroupsSevObs.csv", header=T, sep=",") %>%
  mutate(tip = round(tip/total_bill*100, 1))

# Grouped
data %>%
  ggplot(aes(fill=sex, y=tip, x=day)) + 
  geom_violin(trim = FALSE, position="dodge", alpha=0.5) +
  xlab("") +
  ylab("Tip (%)") +
  ylim(0,40) +
  stat_summary(fun.data=mean_sdl, fun.args = list(mult = 1),
               geom="pointrange", color="black",
               shape = 18, size = 0.75,
               position = position_dodge(width = 0.9))

库（tidyverse）
#从github加载数据集
数据%
变异（小费=圆形（小费/账单总额*100,1））
#分组
数据%>%
ggplot（aes（填充=性别，y=小费，x=天数））+
几何小提琴（修剪=假，位置=道奇，α=0.5）+
xlab（“”）+
ylab（“尖端（%）”）+
ylim（0,40）+
统计汇总（fun.data=mean\u sdl，fun.args=list（mult=1），
geom=“pointrange”，color=“black”，
形状=18，尺寸=0.75，
位置=位置\减淡（宽度=0.9））

---

我删除了我的答案，因为你的答案更简洁：）