plot cpt.var：使用数据帧中的值作为轴

Question

当我尝试使用变更点包中的cpt.var绘制变换点分析的结果时，x轴上的结果值是从0开始的整数，而不是我的数据帧中的值（这是整数组合的值）年和周）。当我只是从我的数据框中绘制数据时，x轴是正确的，但是当绘制cpt.var的结果时，我的x值已经消失了

我在网上搜索了答案但找不到解决方案。我希望有人可以帮助我。

语法比下面的示例更复杂，但它归结为同样的问题：使用plot(df, type="l")绘制数据框会在x轴上返回正确的值，绘制结果使用plot(vvalue)的变更点分析不会。

library(changepoint)
df <- read.table(header=TRUE,text = 
                   "YEAR_WEEK N 
200801 12
200802 5
200803 0
200804 6
200805 0
200806 0
200807 4
200808 5
200809 3
200810 25
200811 36
200812 5
200813 2

         ")

vvalue <- cpt.var(df$N, method = "PELT", penalty = "BIC")
plot(vvalue)

Answer 1

plot(vvalue, xaxt = "n")
axis(1, at=1:13, labels=df[,1])