r - MarkovChain オブジェクトのプロットから x 軸のラベルを置き換えます

Question

以下は、0 次マルコフ連鎖プロットを生成するコードです。プロットの x 軸ラベル (c、d、h、i、o、p) を、年の最初の 6 か月を示す 45 度回転したラベルに置き換えたいと思います。ただし、通話での使用xaxt="n"はplot機能していないようです。このコードは、既存のラベルを置き換えるのではなく、上書きするだけです。ラベルを希望のものに置き換えるにはどうすればよいですか?

library(clickstream)
clickstreams <- c("User1,h,c,c,p,c,h,c,p,p,c,p,p,o",
                   "User2,i,c,i,c,c,c,d",
                   "User3,h,i,c,i,c,p,c,c,p,c,c,i,d",
                   "User4,c,c,p,c,d",
                   "User5,h,c,c,p,p,c,p,p,p,i,p,o",
                   "User6,i,h,c,c,p,p,c,p,c,d")
csf <- tempfile()
writeLines(clickstreams, csf)
cls <- readClickstreams(csf, header = TRUE)
mc <- fitMarkovChain(cls, order=0)
plot(mc, xaxt="n")
text(x=1:6, y=par()$usr[3], labels = month.name[1:6], srt=45, adj = c(1.1,1.1), xpd = TRUE, cex=.9)