如何在R ggplot小提琴图顶部添加另一变量的总计标签

你不需要修改iris_summary里的Sepal.Length值，用ggplot原生的参数就能轻松把标签移到顶部（比如y≈8的位置），下面是几种可行的方法：

方法一：直接指定固定y值 #

直接在geom_text的映射里设置y为目标数值，同时调整vjust让标签对齐到合适位置：

library(tidyverse)

iris_summary <- iris %>% 
  group_by(Species) %>% 
  summarize(sum_width = sum(Sepal.Width)) %>% 
  ungroup()

ggplot(data = iris, aes(x = reorder(Species, Sepal.Length, FUN = median), y = Sepal.Length, 
                        fill = Species)) +
  geom_violin() +
  geom_text(data = iris_summary, 
            aes(x = reorder(Species, Sepal.Length, FUN = median), y = 8, label = sum_width), 
            hjust = 0.5, vjust = 1, # vjust=1让标签底部对齐y=8的位置
            size = 5)

方法二：动态匹配数据最大值加偏移 #

如果不想硬编码y值，可以先计算Sepal.Length的最大值，再加上偏移量，让标签始终在小提琴图上方：

max_sepal_length <- max(iris$Sepal.Length)

ggplot(data = iris, aes(x = reorder(Species, Sepal.Length, FUN = median), y = Sepal.Length, 
                        fill = Species)) +
  geom_violin() +
  geom_text(data = iris_summary, 
            aes(x = reorder(Species, Sepal.Length, FUN = median), y = max_sepal_length, label = sum_width), 
            hjust = 0.5, vjust = 0, 
            position = position_nudge(y = 0.3), # 往上偏移0.3个单位
            size = 5)

方法三：用Inf自动对齐绘图区域顶部 #

利用y = Inf让标签自动定位到绘图区域顶部，再通过vjust调整到顶部下方的合适位置：

ggplot(data = iris, aes(x = reorder(Species, Sepal.Length, FUN = median), y = Sepal.Length, 
                        fill = Species)) +
  geom_violin() +
  geom_text(data = iris_summary, 
            aes(x = reorder(Species, Sepal.Length, FUN = median), y = Inf, label = sum_width), 
            hjust = 0.5, vjust = 1.2, # vjust>1让标签在顶部下方显示
            size = 5)

这几种方法都不需要修改iris_summary的原始数据，完全通过ggplot的参数控制文本位置，更灵活且符合原生用法。

内容的提问来源于stack exchange，提问作者Markm0705