如何在ggplot2图表中为特定组之间添加间距

要在G=1/2组与G=3/4组之间添加清晰的间距，你可以通过自定义x轴位置的方式实现，下面是具体步骤：

方法一：创建自定义x位置变量（推荐） #

1. 给数据集添加一个调整后的x位置变量，通过给G≥3的组额外增加偏移量来拉开间距：

# 给G=3、4的组增加0.5的偏移量，可根据需要调整这个数值
Raiz$x_pos <- as.numeric(Raiz$G) + ifelse(Raiz$G >= 3, 0.5, 0)

2. 修改你的ggplot代码，使用新的x_pos作为x轴，并手动设置x轴标签为原G值：

ggplot(Raiz, aes(x = x_pos, y = T, color = c('WT', 'at5g01950')[2 - (as.numeric(G) %% 2)])) +
  geom_jitter(position = position_jitter(width = 0.2), alpha = 1, size = 3) +
  geom_boxplot(width = 0.5, color = "black", alpha = 0.2, position = position_dodge(0.9)) +
  theme_minimal() +
  theme(plot.background = element_rect(fill = "white"), panel.grid.minor = element_blank()) +
  labs(color = '') +
  # 设置x轴刻度和标签，对应调整后的位置和原G值
  scale_x_continuous(breaks = c(1, 2, 3.5, 4.5), labels = c("1", "2", "3", "4"))

这样就能在G=2和G=3之间形成明显的间距，同时保持每组内部的紧凑排列。

方法二：使用因子与自定义刻度位置 #

如果你更倾向于使用因子类型的x轴，可以这样做：

# 将G转换为因子
Raiz$G_fact <- factor(Raiz$G)
# 定义每个因子水平对应的x位置
x_positions <- c(1, 2, 3.5, 4.5)

ggplot(Raiz, aes(x = G_fact, y = T, color = c('WT', 'at5g01950')[2 - (as.numeric(G) %% 2)])) +
  geom_jitter(position = position_jitter(width = 0.2), alpha = 1, size = 3) +
  geom_boxplot(width = 0.5, color = "black", alpha = 0.2, position = position_dodge(0.9)) +
  theme_minimal() +
  theme(plot.background = element_rect(fill = "white"), panel.grid.minor = element_blank()) +
  labs(color = '') +
  # 自定义x轴刻度位置和标签
  scale_x_discrete(limits = levels(Raiz$G_fact)) +
  coord_cartesian(xlim = c(0, 5)) +
  theme(axis.text.x = element_text(x = x_positions))

你的原始信息参考 #

生成的图表 #

使用的数据集 #

使用的原始代码 #

ggplot(Raiz, aes(x = G, y = T, color = c('WT', 'at5g01950')[2 - (as.numeric(G) %% 2)])) + geom_jitter(position = position_jitter(width = 0.2), alpha = 1, size =3) + geom_boxplot(width = 0.5, color = "black", alpha = 0.2, position = position_dodge(0.9)) + theme_minimal() + theme(plot.background = element_rect(fill = "white") , panel.grid.minor = element_blank()) + labs(color = '')

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