在ggplot2渐变条形图中显示比例及样本量的技术咨询

Q1：在渐变条形图上显示比例与样本量 #

要在geom_tile生成的渐变条形上添加文本，核心是区分渐变瓷砖的数据和文本数据——前者是扩展后的细分行（用于生成渐变），后者是原始的每个类别一行的数据（用于显示单条文本）。

示例代码 #

library(ggplot2)
library(dplyr)
library(tidyr)

# 模拟7个类别的数据
df <- data.frame(
  var = paste0("类别", 1:7),
  prop = c(0.15, 0.22, 0.18, 0.10, 0.25, 0.07, 0.03),
  n = c(150, 220, 180, 100, 250, 70, 30)
)

# 构造geom_tile所需的扩展数据：每个类别生成100个细分tile实现渐变
df_tile <- df %>%
  mutate(tile_seq = map(prop, ~seq(0, ., length.out = 100))) %>%
  unnest(tile_seq)

# 绘制渐变条形+文本
ggplot(df_tile, aes(x = var, y = tile_seq, fill = tile_seq)) +
  geom_tile(color = "white", size = 0.1) + # 可选：添加tile边框增强渐变感
  # 用原始数据添加文本，关闭继承aes避免冲突
  geom_text(data = df, aes(x = var, y = prop/2,
                          label = paste0(round(prop*100, 1), "%\n(n=", n, ")")),
            inherit.aes = FALSE, size = 3.5) +
  scale_fill_gradient(low = "#f0f9e8", high = "#2b8cbe") + # 自定义渐变配色
  coord_flip() + # 横向条形图，可选
  labs(x = "类别", y = "比例", fill = "比例值") +
  theme_minimal()

关键说明 #

• inherit.aes = FALSE：必须设置，避免geom_text继承geom_tile的y = tile_seq映射，确保文本只在每个类别的条形位置显示一次。
• y = prop/2：将文本放在条形的垂直中间位置，也可以设为y = prop放在条形顶部。

Q2：geom_tile如何识别分组并按比例绘制条形 #

geom_tile本身只是绘制一个个矩形（瓷砖），它不会直接识别“比例”或“分组”，是你的数据映射和构造逻辑实现了这个效果：

1. 分组识别：通过aes(x = var)将x轴映射为7个类别，每个x值对应一组独立的tile，自动区分7个分组。
2. 比例条形实现：你构造的扩展数据中，每个类别下的tile序列是从0到该类别prop的连续值，每个值对应一个tile的y坐标，这些tile垂直堆叠后，总高度刚好等于prop，视觉上就形成了对应比例的条形。
   简单说，是你用数据“拼”出了条形，geom_tile只是负责把这些小矩形画出来。

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