在ggplot分面中实现geom_point与geom_line同线展示的问题

要让"Skipped"和"Attended"的点在每个分面的同一条线上，核心是把两类数据映射到同一x轴位置，仅通过颜色/形状区分，而非作为不同的x分类。以下是具体实现：

示例数据结构 #

# 匹配需求的典型数据结构
df <- data.frame(
  Group = rep(c("GroupA", "GroupB", "GroupC"), each = 2),
  Status = rep(c("Skipped", "Attended"), 3),
  Count = c(12, 28, 17, 23, 9, 19)
)

ggplot 实现代码 #

library(ggplot2)
library(patchwork)

# 基础点图（适配分面自由轴需求）
point_facet_plot <- ggplot(df, aes(x = 1, y = Count, color = Status)) +
  # 同位置放置点，如需轻微错开可调整width参数（如0.2）
  geom_point(size = 3, position = position_dodge(width = 0)) +
  # 保留分面自由y轴（对应你之前的需求）
  facet_wrap(~Group, scales = "free_y") +
  # 隐藏无意义的x轴元素
  theme(axis.title.x = element_blank(),
        axis.text.x = element_blank(),
        axis.ticks.x = element_blank()) +
  labs(color = "Participation")

# 基于patchwork组合其他图（沿用stefan的布局逻辑）
# 示例：若需搭配另一图
# other_plot <- ggplot(...) + ...
# final_plot <- point_facet_plot + other_plot + plot_layout(ncol = 2)

关键调整说明 #

• 将x映射为固定值（如1），强制所有点落在同一竖线位置，实现分面内同水平线效果
• 用color（或shape）参数区分两类状态，替代原本的x轴分类映射
• 若希望两个点轻微错开不重叠，可修改position_dodge(width = 0.2)，值越大错开距离越远

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