使用ggplot按双因素连接散点报错：每组仅含一个观测值

问题描述 #

拥有包含Participant、Session、Session_Epoch、F_response、Accuracy字段的数据框，希望绘制x轴为Accuracy、y轴为F_response的散点图，并用geom_path按Session序号顺序连接同一参与者的同颜色（对应Session）散点。样本数据生成代码如下：

# Number of participants, sessions, and session epochs
n_participants <- 5
n_sessions <- 7
n_session_epochs <- 4

# Create the initial data frame
participant_ids <- paste0("ID-", 1:n_participants)
sessions <- 1:n_sessions
session_epochs <- 1:n_session_epochs

# Create a data frame with all combinations of participants, sessions, and session epochs
df <- expand.grid(Participant = participant_ids, 
                  Session = sessions, 
                  Session_Epoch = session_epochs)

# Add F_response with random values
set.seed(123)  # For reproducible results
df$F_response <- sample(1:4, nrow(df), replace = TRUE)

# Function to generate increasing accuracy values
generate_accuracy <- function() {
  start_value <- runif(1, 0, 0.25)
  end_value <- 1
  seq(from = start_value, to = end_value, length.out = n_sessions * n_session_epochs)
}

# Apply the function to each participant and reshape the data
accuracy_values <- replicate(n_participants, generate_accuracy())
df$Accuracy <- as.vector(t(accuracy_values))

# Arrange the data frame by Participant, Session, and Session_Epoch
df <- df %>% arrange(Participant, Session, Session_Epoch)

执行以下绘图代码后未实现预期连接效果，且报错Each group consists of only one observation.：

(a = df %>%
    filter(Session_Epoch == 1) %>%
    ggplot(aes(x = Accuracy, y = F_response)) +
    geom_point(aes(color = as.factor(Session), shape = as.factor(Participant)), size=3) +
    geom_hline(yintercept = 0,linetype = "dashed", color = "grey") +
    geom_path(aes(group = interaction(as.factor(Participant), as.factor(Session)))) +
    theme_bw() +
    theme(text = element_text(size = 15)))

错误原因 #

1. 过滤操作导致分组无足够观测：filter(Session_Epoch == 1)保留了每个Participant+Session组合的唯一一条数据，而geom_path的group设置为interaction(Participant, Session)，每个分组仅包含1个数据点，无法形成连线，触发报错。
2. 分组逻辑不符合需求：需求是连接同一参与者的点并按Session顺序排列，但当前分组把每个参与者的每个Session拆成独立组，违背了连线逻辑。

修正方案 #

根据需求分两种场景处理：

场景1：保留所有Session_Epoch数据，按参与者+Session顺序连线 #

如果需要展示所有时段的数据，让同一参与者的点按Session、Session_Epoch的顺序连接，且连线颜色与对应Session的散点一致：

(a = df %>%
    ggplot(aes(x = Accuracy, y = F_response)) +
    geom_point(aes(color = as.factor(Session), shape = as.factor(Participant)), size=3) +
    geom_hline(yintercept = 0, linetype = "dashed", color = "grey") +
    # 按Participant分组，确保同一参与者的点被连接，数据已提前排序保证顺序正确
    geom_path(aes(group = Participant, color = as.factor(Session))) +
    theme_bw() +
    theme(text = element_text(size = 15)))

场景2：仅用Session_Epoch=1的数据，连接同一参与者的不同Session点 #

如果确实只需要每个Session的第一个时段数据，需将group设置为Participant，让同一参与者的所有Session点按顺序连接：

(a = df %>%
    filter(Session_Epoch == 1) %>%
    ggplot(aes(x = Accuracy, y = F_response)) +
    geom_point(aes(color = as.factor(Session), shape = as.factor(Participant)), size=3) +
    geom_hline(yintercept = 0, linetype = "dashed", color = "grey") +
    # 按Participant分组，连接同一参与者的不同Session点
    geom_path(aes(group = Participant, color = as.factor(Session))) +
    theme_bw() +
    theme(text = element_text(size = 15)))

补充说明 #

• 两种方案都确保geom_path的分组包含多个观测点，满足连线条件；
• 数据已提前通过arrange(Participant, Session, Session_Epoch)排序，保证连线顺序符合Session序号要求；
• 将color映射加入geom_path，让连线颜色与对应Session的散点颜色一致，匹配需求。

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