plot cpt.var：軸のデータフレームからの値を使用

Question

cpt.varをチェンジポイントパッケージから使用して、チェンジポイント解析の結果をプロットしようとすると、x軸の結果の値は、私のデータフレーム（年と週を合わせた整数）。私のデータフレームからデータをプロットするとき、x軸は正しいですが、cpt.varの結果をプロットすると、x値がゼロになります

私は答えをオンラインで検索しましたが、解決策を見つけることができません。私は誰かが私を助けることを願っています。

は、構文は以下の例よりも複雑であるが、それは同じ問題に帰着：x軸上plot(df, type="l")戻って正しい値を使用してデータフレームをプロット、plot(vvalue)はありません使用してChangepointの分析の結果をプロットない。解決のための

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])