向分组小提琴图添加均值答案

【问题标题】：adding mean to grouped violin plot向分组小提琴图添加均值
【发布时间】：2021-04-22 23:09:40
【问题描述】：

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

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)

如果有人可以帮助我，我会很高兴:)

谢谢！

【问题讨论】：

标签： r

【解决方案1】：

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

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

【讨论】：

我删除了我的答案，因为你的更简洁:)