我有一个包含3个系列的数据集，与每周数据有关。
示例：
data <- data.frame(col1 = c(1,2,3,4),col2 = c(5,4,8,6), col3 = c(9,2,3,6))
我将数据转换为时间序列，表示该数据是每周一次，从2018年第10周开始，到2018年第13周结束：
data_ts <- as.ts(data, frequency = 52, start = c(2018,10), end = c(2018,13))
使用自动绘图，我使用facets = TRUE来分隔每个序列，以图形化时间序列：
autoplot(data_ts, facets = TRUE)
当我这样做时，x轴标签上只会显示“时间”，刻度线是“ 1、2、3、4”。
如何获取x轴刻度线代表实际的星期数？
当我尝试xlim=as.Date(c("2018-03-05", "2018-03-26")时，出现以下错误：
错误：输入无效：date_trans仅适用于Date类的对象
由于数据实际上要大得多，我希望不写出每个日期就这样做。