ggplot2中group为分组因子时，如何将T1、T2对应点错开显示？

原始数据与初始代码 #

数据定义 #

df <- data.frame(y=c(5,5,6,3,3), x=c("A","A","B","C","C"), time=c("T1","T2","T1","T1","T2"),group=c("G1","G1","G1","G2","G2"))

数据内容：

y x time group
1 5 A   T1    G1
2 5 A   T2    G1
3 6 B   T1    G1
4 3 C   T1    G2
5 3 C   T2    G2

初始绘图代码 #

ggplot(aes(x=x,y=y,color=group),data=df) + geom_point(size=3)

实现方法 #

当然可以用ggplot实现这个需求，下面是两种常用的可行方案：

方案1：利用位置调整函数 #

核心是让同一x值下的不同time分组点错开，把time加入分组依据后，用position_dodge做偏移：

ggplot(df, aes(x = x, y = y, color = group, group = time)) +
  geom_point(size = 3, position = position_dodge(width = 0.2))

• group = time指定按time分组调整位置
• width = 0.2控制错开的幅度，可根据视觉效果自行调整数值

如果想要更随机的错开效果，换成position_jitter并固定y轴不偏移：

ggplot(df, aes(x = x, y = y, color = group)) +
  geom_point(size = 3, position = position_jitter(width = 0.1, height = 0))

方案2：手动调整x轴数值 #

把分类变量x转成数值，给T2的点加固定偏移量，这种方式更精准可控：

# 将x转换为数值类型
df$x_num <- as.numeric(df$x)
# 给T2对应的点添加x轴偏移
df$x_num <- ifelse(df$time == "T2", df$x_num + 0.15, df$x_num)

ggplot(df, aes(x = x_num, y = y, color = group)) +
  geom_point(size = 3) +
  # 将x轴刻度还原为原始分类标签
  scale_x_continuous(breaks = 1:3, labels = c("A", "B", "C"))

效果说明 #

以上两种方案都能达成需求：x=A处的两个红点、x=C处的两个红点会错开显示，x=B处的单个红点保持在原位置。

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