如何修改plot.ts的X轴标签？交易日期格式化与间隔显示需求

首先，ts 对象更适合规则间隔的时间序列（如每月、每年固定频次），而你的数据是工作日交易日（可能包含节假日缺失），用 xts 或 zoo 包处理会更灵活，能直接对接原始日期并自定义轴标签。以下是具体实现步骤：

1. 数据预处理（确保日期格式正确） #

假设你的原始数据框为 df，包含 date（字符型日期）和 price（价格列），先将日期转换为 Date 类型：

# 转换日期格式
df$date <- as.Date(df$date, format = "%Y-%m-%d")

如果没有现成数据，可模拟符合你时间范围的测试数据：

# 生成2020-01-27至2021-07-30的工作日日期
dates <- seq(as.Date("2020-01-27"), as.Date("2021-07-30"), by = "day")
dates <- dates[weekdays(dates) %in% c("星期一", "星期二", "星期三", "星期四", "星期五")] # 筛选工作日
set.seed(123) # 固定随机种子
df <- data.frame(date = dates, price = cumsum(rnorm(length(dates), 0, 1))) # 模拟价格数据

2. 创建 xts 时间序列对象 #

xts 包专门处理带日期索引的时间序列，安装并加载包后创建对象：

install.packages("xts")
library(xts)

pricet_xts <- xts(df$price, order.by = df$date)

3. 自定义X轴标签（D-M-Y格式 + 每周间隔） #

直接用 plot.xts 绘图，通过 axis.args 和 major.ticks 参数控制轴标签：

# 生成每周的标记日期（这里选每周最后一个交易日）
weekly_dates <- endpoints(pricet_xts, on = "weeks")
weekly_labels <- index(pricet_xts)[weekly_dates]

# 绘图并设置X轴
plot(pricet_xts, 
     main = "每日价格走势",
     xlab = "日期",
     ylab = "价格",
     axis.args = list(
       at = weekly_labels, # 每周标记位置
       labels = format(weekly_labels, "%d-%m-%Y"), # 格式化为D-M-Y
       las = 2 # 标签垂直显示，避免重叠
     ),
     major.ticks = "weeks" # 按周显示主刻度
)

关于你原 ts 代码的疑问 #

• start = c(2020, 27) 是正确的，2020年第27天正好是2020-01-27；frequency = 260 是年交易日数的近似值。
• 但 ts 对象会强制生成连续的“每日”序列（即使当天无交易），导致数据错位，且X轴日期格式化非常繁琐，不建议用于交易日数据。

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