样本量较小时，如何用ggplot的geom_point实现类ggboxplot分组散点图？

针对你用geom_point时出现的散点重叠问题，结合你需要替代箱线图（样本量<20）、保留双分类变量分组展示的需求，以下是几种实用解决方案：

1. 分组偏移（position_dodge） #

直接让同一x轴类别下不同Trt_CC的点横向偏移，避免重叠，和ggboxplot的分组逻辑一致：

ggplot(df_dummy, aes(x = Trt_Amend, y = Carbon_percent, color = Trt_CC)) +
  geom_point(position = position_dodge(width = 0.7)) + # 偏移宽度可根据x轴类别间距调整
  labs(title = "Great Plot Title",
       x = "1st Categorical Variable",
       y = "Continuous Variable",
       color = "2nd Categorical Variable") +
  theme(plot.title = element_text(hjust = 0.5)) +
  scale_color_manual(values = c("red", "blue")) + # 匹配原ggboxplot配色
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) # 保持x轴标签可读性

2. 偏移+抖动（position_jitterdodge） #

如果同一分组内的点仍有重叠，可加入轻微抖动，既保留分组偏移，又避免点完全重合：

ggplot(df_dummy, aes(x = Trt_Amend, y = Carbon_percent, color = Trt_CC)) +
  geom_point(position = position_jitterdodge(
    jitter.width = 0.2, # 抖动幅度，越小越紧凑
    dodge.width = 0.7   # 分组偏移宽度
  )) +
  labs(title = "Great Plot Title",
       x = "1st Categorical Variable",
       y = "Continuous Variable",
       color = "2nd Categorical Variable") +
  theme(plot.title = element_text(hjust = 0.5)) +
  scale_color_manual(values = c("red", "blue")) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

3. 蜂群图（geom_beeswarm） #

用ggbeeswarm包生成无重叠的蜂群状散点，美观展示所有观测值，适合样本量较少的场景：

# 先安装依赖包
# install.packages("ggbeeswarm")
library(ggbeeswarm)

ggplot(df_dummy, aes(x = Trt_Amend, y = Carbon_percent, color = Trt_CC)) +
  geom_beeswarm(dodge.width = 0.7) + # 按Trt_CC分组偏移
  labs(title = "Great Plot Title",
       x = "1st Categorical Variable",
       y = "Continuous Variable",
       color = "2nd Categorical Variable") +
  theme(plot.title = element_text(hjust = 0.5)) +
  scale_color_manual(values = c("red", "blue")) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

4. 小提琴图+散点 #

如果需要同时展示数据分布趋势和单个观测值，可结合小提琴图和散点：

ggplot(df_dummy, aes(x = Trt_Amend, y = Carbon_percent, color = Trt_CC)) +
  geom_violin(fill = NA, position = position_dodge(width = 0.7)) + # 展示分布趋势
  geom_point(position = position_dodge(width = 0.7)) + # 叠加散点
  labs(title = "Great Plot Title",
       x = "1st Categorical Variable",
       y = "Continuous Variable",
       color = "2nd Categorical Variable") +
  theme(plot.title = element_text(hjust = 0.5)) +
  scale_color_manual(values = c("red", "blue")) +
  theme(axis.text.x = element_text(angle = 45, hjust = 1))

方法选择建议 #

• 若点数量极少，优先用分组偏移，保持点的对齐整洁
• 若同一分组内点有重叠，用偏移+抖动
• 若想美观展示所有点的分布，用蜂群图
• 若需要同时体现分布趋势，用小提琴图+散点

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