r - 向贝叶斯变化点图添加次要刻度线

Question

我已经使用贝叶斯变化点绘制了一个图，我需要在 x 轴上添加一个小刻度线。谁能帮我？这是我的代码：

df<-read.csv("Temp.csv")  
x <- df.ts  
bcp_x <- bcp(x, return.mcmc = TRUE)  
plot(bcp_x)  

[