如何在ggplot2中不使用fill美学将channel_topic设为图下图例

可以通过因子定义顺序结合**虚拟美学映射（geom_blank）**来实现，既不用fill区分柱子颜色，又能在下方显示channel_topic的长标签图例，且无需旋转偏移。具体步骤如下：

1. 将channel_topic转为因子（控制图例顺序） #

先把channel_topic转换为因子，指定levels为数据中的原有顺序，确保图例标签和x轴柱子的顺序对应：

tmp$channel_topic <- factor(tmp$channel_topic, levels = tmp$channel_topic)

2. 修改ggplot代码，添加虚拟图例 #

通过geom_blank创建一个基于channel_topic的美学映射（比如color），但将所有颜色设为统一值，这样不会改变柱子样式，却能生成对应图例。同时调整图例布局适配长标签：

ggplot(tmp) +
  # 原柱状图，无fill/color映射，保持统一样式
  geom_bar(
    aes(x = group_id_for_plot, y = n_group),
    stat = "identity",
    fill = "gray80" # 柱子填充色统一
  ) +
  # 虚拟geom触发图例，仅用于生成channel_topic的图例条目
  geom_blank(aes(color = channel_topic)) +
  geom_text(
    aes(x = group_id_for_plot, y = n_group, label = n_group),
    vjust = -1
  ) +
  labs(
    x = "",
    y = "Anzahl",
    subtitle = paste("N = ", nrow(tmp), sep = ""), # 替换为你的实际数据集
    color = "channel topic" # 图例标题
  ) +
  scale_x_continuous(breaks = 1:16) +
  # 统一所有channel_topic的颜色（不影响柱子，仅用于图例标识）
  scale_color_manual(values = rep("black", nlevels(tmp$channel_topic))) +
  # 调整图例布局，适配长标签（分栏避免一行过长）
  guides(color = guide_legend(ncol = 4, title.position = "top")) +
  theme(
    axis.ticks.x = element_blank(),
    panel.background = element_rect(fill = "white", colour = "white"),
    panel.grid.major = element_line(colour = "gray90"),
    panel.grid.minor = element_line(colour = "grey95"),
    plot.subtitle = element_text(hjust = 1),
    legend.position = "bottom",
    legend.title.align = 0.5,
    legend.text = element_text(hjust = 0), # 长标签左对齐
    legend.margin = margin(t = 10, b = 5) # 调整图例上下边距
  ) +
  scale_y_continuous(limits = c(0, 1650))

关键说明 #

• 因子的作用：通过指定levels，可以完全控制图例中channel_topic标签的顺序，避免默认的字母排序，确保和x轴柱子一一对应。
• 虚拟美学映射：geom_blank不会绘制任何元素，但会触发color美学的图例生成；scale_color_manual将所有因子水平的颜色设为统一值，保证柱子样式不受影响。
• 图例适配长标签：通过guide_legend(ncol = 4)将图例分为多栏，结合legend.text = element_text(hjust = 0)左对齐标签，无需旋转即可清晰显示长文本。

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