在R的ggplot中用彩色条形替换X轴标签实现渐变效果

我正在使用ggplot绘制RNA reads百分比柱状图，编写的代码如下：

ggplot(tipos_exo,aes(x = reorder(sample, -value),y = value,fill = variable)) +
     geom_bar( stat = "identity")

（对应原始柱状图：）

每个样本归属于特定批次，我需要将X轴标签替换为彩色条形，实现如下示例效果（），请问该如何实现？

要实现X轴标签替换为对应批次的彩色条形，推荐用patchwork包拼接图表，步骤如下：

• 首先确认数据包含样本与批次的映射关系，若没有先补充：

  # 构造批次映射表，替换为你的实际批次数据
  batch_map <- data.frame(
    sample = unique(tipos_exo$sample),
    batch = c("BatchA", "BatchA", "BatchB", "BatchB", "BatchC") # 按样本对应批次填写
  )
  # 合并到原数据框
  tipos_exo <- merge(tipos_exo, batch_map, by = "sample")
  

• 绘制主柱状图，隐藏X轴的标签、刻度和标题：

  p_main <- ggplot(tipos_exo, aes(x = reorder(sample, -value), y = value, fill = variable)) +
    geom_bar(stat = "identity") +
    theme(
      axis.text.x = element_blank(),
      axis.ticks.x = element_blank(),
      axis.title.x = element_blank()
    )
  

• 绘制批次彩色条形图（作为X轴的替代标签），注意保持X轴样本顺序和主图一致：

  # 提取主图的X轴顺序
  sample_order <- levels(reorder(tipos_exo$sample, -tipos_exo$value))
  batch_map$sample <- factor(batch_map$sample, levels = sample_order)
  
  p_batch <- ggplot(batch_map, aes(x = sample, y = 1, fill = batch)) +
    geom_bar(stat = "identity", width = 1) +
    theme_void() + # 清空所有无关元素
    scale_fill_manual(values = c("BatchA" = "#2E8B57", "BatchB" = "#FF6347", "BatchC" = "#4682B4")) # 自定义批次颜色
  

• 用patchwork垂直拼接两个图表，调整高度比例让条形图紧贴主图：

  library(patchwork)
  p_main / p_batch + plot_layout(heights = c(10, 1))
  

如果不想用patchwork，也可以用gtable包调整ggplot的底层布局，但patchwork的写法更简洁直观，适合快速实现需求。

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