如何自定义ggplot的X轴以显示实际完成问卷的参与者编号？

核心原因 #

你的Participant列是数值型变量，ggplot默认将其视为连续轴，因此会自动填充2到7之间的所有数值（比如4、6）。要只显示实际完成问卷的参与者编号，需要将其转换为离散因子类型。

解决方案1：修改数据类型后绘图 #

1. 先将Participant转换为因子：

my_data$Participant <- as.factor(my_data$Participant)

2. 修改ggplot代码，添加scale_x_discrete控制X轴刻度，同时为geom_line指定group=1（确保折线能正确连接所有点）：

ggplot(data = my_data, aes(x = Participant)) +
  geom_line(aes(y = PRE_QUIP_RS, colour = "PRE QUIP RS"), group = 1) +
  geom_point(aes(y = PRE_QUIP_RS, colour = "PRE QUIP RS")) +
  geom_line(aes(y = POST_QUIP_RS, colour = "POST QUIP RS"), group = 1) +
  geom_point(aes(y = POST_QUIP_RS, colour = "POST QUIP RS")) +
  scale_colour_manual("", 
                      breaks = c("PRE QUIP RS", "POST QUIP RS"),
                      values = c("blue", "orange")) +
  xlab("Participants ") +
  scale_y_continuous("QUIP RS Scores", limits = c(0,30)) + 
  scale_x_discrete(breaks = unique(my_data$Participant)) + # 仅显示存在的参与者编号
  labs(title="Pre and Post QUIP RS Scores")

解决方案2：直接在绘图时转换类型（不修改原数据） #

如果不想改动原数据，可以在aes中直接将Participant转为因子：

ggplot(data = my_data, aes(x = as.factor(Participant))) +
  geom_line(aes(y = PRE_QUIP_RS, colour = "PRE QUIP RS"), group = 1) +
  geom_point(aes(y = PRE_QUIP_RS, colour = "PRE QUIP RS")) +
  geom_line(aes(y = POST_QUIP_RS, colour = "POST QUIP RS"), group = 1) +
  geom_point(aes(y = POST_QUIP_RS, colour = "POST QUIP RS")) +
  scale_colour_manual("", 
                      breaks = c("PRE QUIP RS", "POST QUIP RS"),
                      values = c("blue", "orange")) +
  xlab("Participants ") +
  scale_y_continuous("QUIP RS Scores", limits = c(0,30)) + 
  labs(title="Pre and Post QUIP RS Scores")

优化方案：转换为长格式数据（推荐） #

将宽格式数据转为长格式，能大幅简化ggplot代码，也更符合ggplot的设计逻辑：

library(tidyr)
library(dplyr)

# 转换为长格式
my_data_long <- my_data %>%
  pivot_longer(
    cols = c(PRE_QUIP_RS, POST_QUIP_RS),
    names_to = "Timepoint",
    values_to = "QUIP_RS_Score"
  ) %>%
  mutate(
    Timepoint = factor(Timepoint, 
                       levels = c("PRE_QUIP_RS", "POST_QUIP_RS"),
                       labels = c("PRE QUIP RS", "POST QUIP RS"))
  )

# 绘图
ggplot(my_data_long, aes(x = as.factor(Participant), y = QUIP_RS_Score)) +
  geom_line(aes(colour = Timepoint, group = Timepoint)) +
  geom_point(aes(colour = Timepoint)) +
  scale_colour_manual("", values = c("blue", "orange")) +
  xlab("Participants ") +
  scale_y_continuous("QUIP RS Scores", limits = c(0,30)) + 
  labs(title="Pre and Post QUIP RS Scores")

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