ggplot2分组柱状图position设置无效，呈现堆叠图问题求助

你的问题出在多次调用geom_col的方式上：每个geom_col单独设置position="dodge"只对当前图层的元素生效，但每个图层里只有一组数据，所以它们会默认堆叠，而不是横向分组。ggplot2的分组柱状图需要数据是长格式（tidy data），再用单个geom_col实现分组。

步骤1：转换数据为长格式 #

用tidyr::pivot_longer把宽格式的列（first.exon、internal.exon、last.exon）转换为两列：一个表示外显子类型的分类列，一个表示计数的数值列。如果没安装tidyr包，先运行install.packages("tidyr")。

转换代码：

library(ggplot2)
library(tidyr)

# 原始数据
exons <- data.frame(nucleotide = c("A", "C", "G", "T"),
                 first.exon = c(18, 28, 33, 21),
                 internal.exon = c(25, 28, 26, 21),
                 last.exon = c(26, 22, 23, 29))

# 转换为长格式
exons_long <- pivot_longer(exons, 
                           cols = -nucleotide,  # 保留nucleotide列，转换其他列
                           names_to = "exon_type",  # 新分类列的名称
                           values_to = "counts")  # 新数值列的名称

# 重命名exon_type的标签（让图例更美观）
exons_long$exon_type <- factor(exons_long$exon_type, 
                               levels = c("first.exon", "internal.exon", "last.exon"),
                               labels = c("First Exon", "Internal Exon", "Last Exon"))

步骤2：绘制分组柱状图 #

用转换后的长数据绘图，把exon_type映射到fill，然后设置position="dodge"即可实现分组效果：

ggplot(data = exons_long, aes(x = nucleotide, y = counts, fill = exon_type)) + 
  geom_col(position = position_dodge(width = 0.9)) +  # 指定宽度让柱子间距更合理
  scale_fill_manual(values = c("First Exon" = "blue",
                               "Internal Exon" = "green",
                               "Last Exon" = "red")) + 
  labs(title = "Number of Nucleotides in Each Exon",
       x = "Nucleotide",
       y = "Counts",
       fill = "") + 
  theme_minimal()

原方法失效的原因 #

你之前的代码每个geom_col都是独立图层，每个图层只有一组y值，position="dodge"没有其他元素可以“避开”，所以三个图层的柱子会重叠堆叠。而长格式数据让ggplot2识别到同一x轴类别下有多组数据，position="dodge"就能让这些柱子横向排列。

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