library("MASS") data1 = rnorm(1000,400,100) data2 = rnorm(1000,500,120) h=25 gridh=100 xlim=range(0,1000) ylim=range(0,5e-3) plot(c(), xlim=xlim, ylim=ylim, axes=F, xlab="x", ylab="y") abline(v=seq(xlim[1],xlim[2],gridh),col="#AAAAAA") # グリッドの描画 axis(side=1) # x 軸 axis(side=2) # y 軸 par(new=T) truehist(data1, h=h, xlim=xlim, ylim=ylim, axes=F, xlab="", ylab="", col="#0000FF40", border="#0000FF") par(new=T) truehist(data2, h=h, xlim=xlim, ylim=ylim, axes=F, xlab="", ylab="", col="#FF000040", border="#FF0000")
plot(1:6,1:6) for(i in 1:6){ abline(h=i,lty=i) abline(v=i,lty=c("22","8424","81818444","F1F44444","F4444444","2464F464")[i]) }
loggrid <- function(l, h, d=l) if(l<=h) c(seq(l,if(h<l*10) h else l*10-l/100, d), Recall(l*10, h, d*10)) else c()
plot(1:100,100:1,log="xy") abline(v=loggrid(1,100),h=loggrid(1,100),lty=4,col="#A0C0FF")
png(filename="hoge.png") # デバイスの初期化 plot(1:10) # プロット # ... dev.off() # デバイスの終了明示的にデバイスを初期化しない場合は、各環境で標準のデバイス(UNIX 系だと X11()、Windows だと windows()、RStudio だと RStudioGD() 等)が自動的に初期化される。
plot(1:10) # プロット # ... dev.copy(png, filename="hoge.png") # プロット済みのデバイスを新たなデバイスへコピー dev.off() # コピー先のデバイスを終了デバイスは