使用quantmod::chartSeries绘图时，如何保留数据框原始日期格式作为X轴标签？

你的问题出在用ts()转换数据格式上：ts()生成的是基于固定时间间隔的常规时间序列，它会忽略你手动指定的mydate列，自动生成连续的时间索引，这就导致图表X轴标签和原始日期对不上。

quantmod的chartSeries()更适配xts格式的时间序列（这种格式是基于实际日期索引的），下面是修正后的代码：

library(quantmod)
library(xts)

test_data <- data.frame(
  mydate = as.Date(c('2013-1-1','2023-1-6','2023-1-20')),
  open = c(1,7,8),
  high = c(7,10,9),
  low = c(1,3,4),
  close = c(1.5,6,7.5)
)

# 将data.frame转为xts对象，用mydate作为索引
test_xts <- xts(test_data[, -1], order.by = test_data$mydate)

# 绘制图表，X轴会自动使用原始日期格式
chartSeries(test_xts)

如果需要自定义X轴标签的显示格式（比如改成年-月或者月/日），可以通过theme参数调整：

chartSeries(test_xts, theme = chartTheme("white", 
                                         minor.ticks = FALSE,
                                         axis.text = list(at = test_data$mydate, 
                                                          labels = format(test_data$mydate, "%Y-%m-%d"))))

这样就能完全匹配你原始数据中的日期格式了。

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