ggplot2中无需group_by实现geom_vline分组配色及批量文本标签

可以通过以下方式实现批量添加带配色的均值竖线和对应文本标签，避免重复调用geom_text，同时无需手动逐个指定分组：

方法一：将by结果转为数据框后映射 #

先把by函数生成的分组统计结果转换成结构化数据框，再在geom_vline和geom_text中统一用这个数据框作为数据源，通过aes映射实现批量匹配：

# 用by计算各gender的身高均值，转换为数据框
mu_df <- as.data.frame(by(starwars$height, starwars$gender, mean, na.rm = TRUE))
# 重命名列并提取分组名
colnames(mu_df) <- "mean_height"
mu_df$gender <- rownames(mu_df)

ggplot(starwars, aes(height, fill = gender)) +
  geom_histogram(bins = 20, position = "dodge") +
  # 映射均值竖线的位置与颜色到gender
  geom_vline(data = mu_df, aes(xintercept = mean_height, color = gender)) +
  # 批量添加文本标签，自动匹配对应分组的均值与颜色
  geom_text(data = mu_df, aes(x = mean_height, y = 0, 
                             label = round(mean_height, 2), color = gender),
            size = 3, vjust = 1)

方法二：整合汇总逻辑到ggplot（无需单独定义变量） #

如果不想单独定义汇总变量，可以直接在geom的data参数中嵌入分组统计逻辑，一步完成所有操作：

ggplot(starwars, aes(height, fill = gender)) +
  geom_histogram(bins = 20, position = "dodge") +
  # 内嵌分组统计，生成均值竖线
  geom_vline(data = starwars %>% 
               group_by(gender) %>% 
               summarize(mean_height = mean(height, na.rm = TRUE)),
             aes(xintercept = mean_height, color = gender)) +
  # 复用相同的分组统计逻辑，批量添加标签
  geom_text(data = starwars %>% 
              group_by(gender) %>% 
              summarize(mean_height = mean(height, na.rm = TRUE)),
            aes(x = mean_height, y = 0, 
                label = round(mean_height, 2), color = gender),
            size = 3, vjust = 1)

关键说明 #

• 两种方法都通过数据框映射实现批量处理，彻底避免重复调用geom_text；
• 颜色color与gender绑定，保证竖线、标签的配色和直方图填充色一致；
• 方法一解决了by函数结果无法直接在ggplot中映射的问题，用as.data.frame()完成格式转换；
• 方法二中的group_by是内嵌在geom参数中的，没有单独定义全局变量，保持代码简洁性。

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