RStudio中导入双列时间序列并设置x轴显示年份的方法

我来帮你搞定这个x轴显示的问题！其实核心原因是你创建时间序列对象时没指定起始年份，默认的ts对象会从1开始计数，所以绘图时x轴就显示成了Time。下面给你两种简单的解决方法：

方法一：创建带起始年份的时间序列对象（推荐） #

这是最省心的方式，让ts对象本身就包含年份信息，绘图时自动对应：

1. 先正确读取你的TSV数据：

# 替换成你的TSV文件路径
water_data <- read.delim("nyc_water_use.tsv", sep = "\t")
# 确认年份列是数值型（如果不是，用as.numeric转换）
water_data$年份 <- as.numeric(water_data$年份)

2. 创建指定起始年份的时间序列对象：

# 用水量列替换成你数据中对应的列名，start设为数据的起始年份1898
water_ts <- ts(water_data$用水量, start = 1898)

3. 直接用ts.plot绘图，x轴会自动显示年份：

ts.plot(water_ts, 
        xlab = "年份", 
        ylab = "用水量（升/人）", 
        main = "1898-1968年纽约市居民年度用水量",
        col = "steelblue",
        lwd = 2)

方法二：手动自定义x轴刻度（适合已创建默认ts对象的情况） #

如果你已经用默认参数创建了时间序列对象，也可以手动覆盖x轴：

1. 先绘图但隐藏默认x轴：

# 默认ts对象（start=1）
default_water_ts <- ts(water_data$用水量)

# 绘图时用xaxt="n"隐藏默认x轴
ts.plot(default_water_ts, 
        xlab = "", 
        ylab = "用水量（升/人）", 
        main = "1898-1968年纽约市居民年度用水量",
        col = "steelblue",
        lwd = 2,
        xaxt = "n")

2. 手动设置x轴的刻度和标签：

# 获取数据中的年份序列
years <- water_data$年份

# 设置x轴，每5年显示一个标签（避免刻度太拥挤）
axis(1, 
     at = seq(1, length(years), by = 5), 
     labels = years[seq(1, length(years), by = 5)])

# 添加x轴标题
mtext("年份", side = 1, line = 2.5)

这样操作后，你的x轴就会显示1898到1968的实际年份啦！

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