如何用ggplot2和gggenes在X轴添加唯一基因标签？

我有一个包含21个样本（对应molecule列）、157个独特基因（对应gene列，80%为共有基因）的数据集。为避免绘图时出现重复标签，我构建了包含各样本检测基因的data.frame，新增了含所有检测基因的genes行，以及仅在genes行有值的labX列（其余样本行值为NA）。

当前用geom_text把标签放在基因箭头上方，我想把这些标签移到X轴替换原有数字刻度，但尝试scale_x_discrete未成功，怀疑是坐标轴范围设置的问题，求可行解决办法。

相关代码：

# 当前绘图代码
ggplot(gdf, aes(xmin = start, xmax = end, y = molecule) ) + 
    geom_gene_arrow(arrowhead_width = grid::unit(7, "mm"), 
                    arrowhead_height = grid::unit(7, "mm"), 
                    arrow_body_height = grid::unit(5.7, "mm"), size=0.4 ) + 
    scale_y_discrete(position="right") +
    geom_text(data=gdf %>% mutate(start = (start + end)/2),
              aes(x=start, label = labX), angle=45) + 
    theme(panel.background = element_rect(fill = 'white', color = 'white'))

# 尝试的scale_x_discrete代码
ggplot(gdf, aes(xmin = start, xmax = end, y = molecule) ) + 
    geom_gene_arrow(arrowhead_width = grid::unit(7, "mm"), 
                    arrowhead_height = grid::unit(7, "mm"), 
                    arrow_body_height = grid::unit(5.7, "mm"), size=0.4 ) + 
    scale_y_discrete(position="right") + 
scale_x_discrete(breaks = formatC(1:length(unique(gdf$gene)) , 
                 width = 2, flag = "0"), 
                 labels = unique(gdf$gene) )

核心问题是X轴本质是连续型数值（对应基因的start/end位置），误用了离散型刻度设置。要实现需求，需用scale_x_continuous指定刻度位置和对应标签，具体步骤如下：

1. 从genes行提取所有基因的中心位置（作为X轴刻度的锚点）和对应标签
2. 用scale_x_continuous的breaks参数指定刻度位置，labels参数绑定基因名称
3. 移除原有的geom_text避免重复显示标签

修改后的完整代码：

# 提取基因中心位置和对应标签（仅从genes行取，因为只有这里labX有值）
gene_label_info <- gdf %>%
  filter(molecule == "genes") %>%
  mutate(gene_center = (start + end)/2) %>%
  select(gene_center, labX)

ggplot(gdf, aes(xmin = start, xmax = end, y = molecule)) + 
  geom_gene_arrow(arrowhead_width = grid::unit(7, "mm"), 
                  arrowhead_height = grid::unit(7, "mm"), 
                  arrow_body_height = grid::unit(5.7, "mm"), size=0.4 ) + 
  scale_y_discrete(position="right") +
  # 用连续型X轴设置刻度与标签
  scale_x_continuous(
    breaks = gene_label_info$gene_center,
    labels = gene_label_info$labX,
    # 调整标签角度避免重叠
    guide = guide_axis(angle = 45)
  ) +
  theme(
    panel.background = element_rect(fill = 'white', color = 'white'),
    # 调整X轴标签位置，避免被基因箭头遮挡
    axis.text.x = element_text(vjust = 1, hjust = 1)
  )

• scale_x_discrete无效的原因：你的X轴映射的是start/end这类连续数值，ggplot会自动识别为连续型坐标轴，离散型刻度设置无法生效
• 如果labX和gene列内容一致，可直接用gene列作为标签，替换gene_label_info$labX为gene_label_info$gene
• 可根据标签长度调整angle参数，或修改axis.text.x的字号，进一步优化显示效果

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