如何将dataframe转换为适用于绘图的time series格式

你当前的数据集是1979-1988年的年度统计数据，其中year列为字符类型，根据你使用的绘图体系，选对应方式处理即可：

• 如果用R基础绘图函数画时序图：直接转成原生ts对象

# 先复现你的示例数据
df <- data.frame(
  year = as.character(1979:1988),
  sum1 = c(4,14,14,13,6,15,15,7,10,12)
)

# 构造年度时间序列：起始年份1979，年度数据频率设为1
ts_data <- ts(df$sum1, start = 1979, frequency = 1)

# 直接调用时序绘图函数
plot(ts_data, xlab = "年份", ylab = "sum1", main = "年度sum1变化趋势")

• 如果用ggplot2体系绘图：不需要转成专用ts类，处理好年份格式就能直接画

library(ggplot2)
# 核心步骤：把字符型的year转成数值型，避免被识别为分类文本
df$year <- as.numeric(df$year)

ggplot(df, aes(x = year, y = sum1)) +
  geom_line(linewidth = 1) +
  geom_point(size = 2) +
  scale_x_continuous(breaks = df$year) + # 显示所有年份刻度
  labs(x = "年份", ylab = "sum1值", title = "年度sum1变化趋势")

• 如果要做专业时序分析、配合fable/feasts等时序工具包使用：可以转成tsibble格式

library(dplyr)
library(tsibble)

tsbl_data <- df %>%
  mutate(year = as.numeric(year)) %>%
  as_tsibble(index = year)

# 自带快速绘图函数
autoplot(tsbl_data, sum1)

注意点：不管用哪种方式，都要先把字符格式的year列转成数值/日期格式，否则绘图时会把年份当成离散分类值，出现坐标轴排序错乱、折线无法正确生成的问题。

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