使用R绘制时间序列图：将因子型interval转为时间对象

没问题，我来帮你一步步搞定这个需求！你的核心问题是把因子类型的interval转换成可用于绘图的时间对象，然后用ggplot2绘制时间序列图，具体步骤如下：

1. 加载必要的包 #

我们需要用到tidyverse（包含数据处理的dplyr和绘图的ggplot2），还有lubridate包来轻松处理时间格式：

library(tidyverse)
library(lubridate)

2. 加载你的数据 #

先把你提供的数据转换成可操作的tibble（如果已经有现成的数据框可以跳过这一步）：

df <- tibble(
  interval = factor(c("0:00", "0:30", "0:45", "1:30", "10:00", "10:15", "10:30", "10:45", "11:00")),
  average_received = c(3.034483, 2.300000, 2.473684, 1.647059, 18.161290, 16.096774, 18.064516, 15.677419, 15.709677)
)

3. 将因子类型的interval转换为时间对象 #

lubridate包的hm()函数专门处理小时:分钟格式的字符串，我们先把因子转成字符，再转换成适合的时间对象：

df <- df %>%
  mutate(
    # 转换为时间点对象（Period类型，完美适配一天内的时间展示）
    time_point = hm(interval)
  )

如果你后续需要结合日期做更复杂的时间分析，也可以转换成带基准日期的POSIXct类型：

df <- df %>%
  mutate(
    # 转换为日期+时间的POSIXct类型
    datetime_point = ymd_hm(paste("2024-01-01", interval))
  )

4. 绘制时间序列图 #

用ggplot2绘图，X轴使用我们转换后的时间对象，Y轴用average_received，还可以做一些美化让图更清晰：

ggplot(df, aes(x = time_point, y = average_received)) +
  # 添加折线和数据点，提升可读性
  geom_line(color = "steelblue", linewidth = 1) +
  geom_point(size = 2, color = "darkorange") +
  # 设置标签和标题
  labs(
    x = "时间间隔",
    y = "平均接收量",
    title = "每日不同时间间隔的平均接收量"
  ) +
  # 自定义X轴时间标签格式（显示为HH:MM）
  scale_x_time(labels = scales::time_format("%H:%M")) +
  # 使用简洁清爽的主题
  theme_minimal()

关键说明 #

• 转换后的时间对象是有序的，会自动帮你把X轴按时间顺序排列，解决原来因子顺序混乱的问题
• scale_x_time()可以灵活调整X轴的时间显示格式，比如只想显示小时可以改成"%H"

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