dplyr处理后：ggplot绘制基因频率图避免汇总同名基因值

你遇到的核心问题是：ggplot默认会将x轴上相同的因子（比如重复的intergenic基因名）归为同一组，自动合并它们的allele_freq值。要让每个重复的基因条目单独显示，只需要告诉ggplot把每一行数据当作独立的分组即可，这里有两种简单的实现方式：

方法一：添加分组参数（推荐，更简洁） #

在geom_bar的美学映射（aes）中加入group = row_number()，让每一行数据都成为一个独立的分组，这样即使基因名相同，也会单独绘制条形：

library(dplyr)
library(ggplot2)

# 保留你原有的数据处理逻辑
bp_data <- bp_data %>% 
  # ... 你的其他筛选操作...
  mutate(allele_freq = as.numeric(allele_freq)) %>% 
  transform(gene = reorder(gene, -allele_freq)) %>% 
  droplevels()

# 修改绘图代码，添加group参数
p <- ggplot(bp_data)
p <- p + geom_bar(aes(x = gene, y = allele_freq, group = row_number()), stat = 'identity')
# 可选：旋转x轴标签，避免重复基因名重叠
p <- p + theme(axis.text.x = element_text(angle = 45, hjust = 1))
p

运行这段代码后，所有重复的基因条目（比如多次出现的intergenic）都会以单独的条形展示，不会再被汇总。

方法二：创建唯一基因标识 #

如果希望分组逻辑更直观，可以给每一行添加一个带唯一后缀的基因名称，再用这个唯一标识作为x轴，最后把标签改回原基因名：

bp_data <- bp_data %>% 
  # ... 你的其他筛选操作...
  mutate(allele_freq = as.numeric(allele_freq)) %>% 
  # 生成带行号的唯一基因标识
  mutate(gene_unique = paste(gene, row_number(), sep = "_")) %>% 
  # 按allele_freq对唯一标识排序
  mutate(gene_unique = reorder(gene_unique, -allele_freq)) %>% 
  droplevels()

p <- ggplot(bp_data)
p <- p + geom_bar(aes(x = gene_unique, y = allele_freq), stat = 'identity')
# 将x轴标签替换为原基因名
p <- p + scale_x_discrete(labels = bp_data$gene) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))
p

这个方法的优势是分组逻辑清晰可见，但需要额外处理x轴标签，适合需要更精细控制分组的场景。

两种方法都能满足你“不汇总重复基因频率、分别展示每个条目”的需求，优先推荐方法一，更简洁高效。

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