如何在ggplot2中将两类X轴文本合并为居中显示的单一类别？

核心思路是调整数据结构，让蚂蚁行为（subordinate/dominant）作为X轴的分类变量，把两个观测变量（floral visits/plant reproductive performance）用颜色/形状区分，再通过位置偏移让同类别下的两个点分开，这样X轴自然只会显示一次每个行为标签，且居中对应两个变量的点。

步骤1：整理数据为长格式（如果还没做的话） #

如果你的数据是宽格式（比如一列是subordinate的floral visits，一列是subordinate的reproductive performance），先用tidyr::pivot_longer转成长格式：

library(tidyr)
# 假设宽格式数据名为wide_df
long_df <- wide_df %>%
  pivot_longer(
    cols = c(floral_visits, plant_reproductive_performance),
    names_to = "variable",
    values_to = "value"
  )

步骤2：绘制图表 #

用ggplot2直接以蚂蚁行为为X轴，变量为颜色分组，用position_dodge让同组的点横向分开：

library(ggplot2)

ggplot(long_df, aes(x = ant_behavior, y = value, color = variable)) +
  # 设置点大小和位置偏移宽度，可根据需求调整
  geom_point(size = 4, position = position_dodge(width = 0.5)) +
  # 自定义颜色匹配你的需求
  scale_color_manual(
    values = c("floral_visits" = "pink", "plant_reproductive_performance" = "green"),
    labels = c("floral visits", "plant reproductive performance")
  ) +
  labs(x = "蚂蚁行为", y = "影响结果", color = "变量类型") +
  theme_minimal()

效果说明 #

这样绘制出来的图表，X轴只会显示subordinate和dominant各一次，且两个变量的点会分别在标签两侧对称分布，视觉上标签正好居中对应两个点。

如果你的数据结构特殊，比如必须保留原X轴的四个分类（每个行为对应两个变量），也可以通过自定义轴标签实现：

# 假设X轴分类是c("sub_floral", "sub_repro", "dom_floral", "dom_repro")
ggplot(df, aes(x = x_category, y = value, color = variable)) +
  geom_point(size = 4) +
  scale_x_discrete(
    # 只在每组的第一个位置显示标签，其余留空
    labels = c("subordinate", "", "dominant", "")
  ) +
  # 调整标签水平对齐，让空标签不占位置，实标签居中
  theme(axis.text.x = element_text(hjust = c(0.5, 0, 0.5, 0)))

但第一种方法更符合ggplot2的tidy data设计原则，操作更简便也更易维护。

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