调整星期排序求助：无法按时间顺序展示day_of_week数据

用户问题 #

我无法将day_of_week（星期数据）按时间顺序展示，数据可视化效果不符合预期。尝试使用ordered()语句时出现错误，请求技术协助。我的R代码如下：

avg_ride_day <- cyclistic_data %>%
  filter(bike_type != "docked_bike") %>%
  group_by(user_type, day_of_week) %>%
  summarise(avg_time_min = mean(ride_length)/60, median_time = median(ride_length)/60, 
            max_time = max(ride_length)/60, min_time = min(ride_length)/60) %>%
  arrange(day_of_week)

问题根因 #

你的day_of_week是普通字符类型，arrange()默认按字母顺序排序，导致星期顺序混乱（比如周五排在周一前面）。直接用ordered()出错，是因为没指定正确的时间顺序参数，默认生成的有序因子还是按字母排序，达不到预期效果。

修复代码 #

在数据处理阶段将day_of_week转换为有序因子，明确指定时间顺序（可按需调整为周日开头）：

# 定义星期的时间顺序（中文场景替换为c("周一", "周二", ..., "周日")）
week_order <- c("Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday", "Sunday")

avg_ride_day <- cyclistic_data %>%
  filter(bike_type != "docked_bike") %>%
  # 先转换为有序因子，再分组聚合
  mutate(day_of_week = factor(day_of_week, levels = week_order, ordered = TRUE)) %>%
  group_by(user_type, day_of_week) %>%
  summarise(
    avg_time_min = mean(ride_length)/60, 
    median_time = median(ride_length)/60, 
    max_time = max(ride_length)/60, 
    min_time = min(ride_length)/60
  ) %>%
  arrange(day_of_week)

关键说明 #

• 必须先转换因子再分组，这样分组后的结果会保留正确的时间顺序。
• 可视化时（比如用ggplot2），有序因子会自动作为x轴的顺序，无需额外设置；若仍有问题，可添加scale_x_discrete(limits = week_order)强制指定顺序。

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