ggplot折线图X轴替换为Day序列后可视化异常的修复问询

问题根源 #

你用row_number()生成days列的方式会给每一行分配一个唯一编号，而非按原始日期分组分配。如果数据中同一日期有多条记录（比如多个试次或被试），这会导致day1到dayN对应每一行数据，而非每个日期对应统一的day标签，最终折线图X轴被拆分成过多无序节点，引发可视化异常。

解决方案 #

核心思路：先按原始日期排序，再为每个唯一日期分配递增的day编号，确保同一日期的所有记录共享同一个day标签。

方法1：使用cur_group_id()（推荐，需dplyr 1.0.0及以上）

# 替换date为你的原始日期列名
df <- df %>%
  arrange(date) %>%
  group_by(date) %>%
  mutate(days = paste0("day", cur_group_id())) %>%
  ungroup()

方法2：创建日期映射表合并（兼容低版本dplyr）

# 生成日期与day的对应关系表
date_day_map <- df %>%
  distinct(date) %>%
  arrange(date) %>%
  mutate(days = paste0("day", row_number()))

# 将映射关系合并到原数据
df <- df %>% left_join(date_day_map, by = "date")

优化X轴顺序 #

为确保ggplot按day1→day2→…的逻辑顺序展示，建议将days转换为有序因子：

df <- df %>% mutate(days = factor(days, levels = unique(days), ordered = TRUE))

示例ggplot代码 #

假设绘制平均响应时间的折线图：

ggplot(df, aes(x = days, y = rt, group = 1)) +
  geom_line(color = "#2c3e50", linewidth = 1) +
  geom_point(size = 3, color = "#e74c3c") +
  labs(x = "试验天数", y = "响应时间(ms)", title = "Go/No-go试验响应时间变化") +
  theme_minimal()

处理后，X轴会正确显示按日期排序的day1、day2等有序序列，折线图可正常展示响应时间随天数的变化趋势。

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