0

日付（x軸）に従って現象の発生をプロットしています。問題は、R で axis.Date 関数を使用しているときに、日付軸がフランス語になっていることです。英語にしてほしいです。簡単な質問で申し訳ありませんが、答えを見つけることができませんでした。

これが私がしたことです。

date <- as.Date(c("2011/5/12","2011/5/13","2011/5/14","2011/5/15","2011/5/16","2011/5/17","2011/5/18","2011/5/19","2011/5/20","2011/5/21","2011/5/22","2011/5/23","2011/5/24","2011/5/25","2011/5/26","2011/5/27","2011/5/28","2011/5/29","2011/5/30","2011/5/31","2011/6/1","2011/6/2","2011/6/3","2011/6/4","2011/6/5","2011/6/6","2011/6/7","2011/6/8","2011/6/9","2011/6/10","2011/6/11","2011/6/12","2011/6/13","2011/6/14","2011/6/15","2011/6/16","2011/6/17","2011/6/18","2011/6/19"))
example <- c(0, 0, 0, 1, 0, 0, 0, 0, 1, 0, 1, 0, 3, 1, 1, 2, 5, 1, 3, 3, 8, 2, 1, 1, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

plot(date, example,xlab="Date of birth", axes=F,ylab="", ylim=c(0,15), yaxt="n", xaxt="n",lwd= 10,type="h", cex.lab=1.2, cex.axis=1, cex=1)
axis(2, at=seq(0,15, 5), lwd=1, cex=1)
axis.Date(1, at=seq(as.Date("2001/5/12"), as.Date("2011/6/19"), "weeks"), cex.axis=1, lwd=1)

ただし、システム構成の問題である場合は、x ラベルがフランス語であることに気付かないことがあります。

ありがとうございました！

4

1 に答える 1

1

たとえば、これを行うことができます：

old.loc <- Sys.getlocale("LC_TIME")
Sys.setlocale("LC_TIME", "English") 
axis.Date(1, at=seq(as.Date("2001/5/12"), as.Date("2011/6/19"), "weeks"), 
          cex.axis=1, lwd=1)
Sys.setlocale("LC_TIME",old.loc)

ただし、format引数を使用して必要なaxis.Date形式を設定することをお勧めします。

于 2013-03-26T01:03:19.593 に答える