[R] Rで複数の図を重ねる + 右側のy軸に説明を加える

やってみると、意外と面倒だったのでメモをうｐしておきます。
ナニが面倒かというと、parで余白設定したり、右軸のy軸の目盛をaxisで描いたりその他色々。R Tipsという本参考

par(mar = c(5, 4, 5, 4)) # 余白設定(デフォルトだと右側の余白が狭いので広くしておく)
plot(1:10, main="baka", ylab = "hahaha")
par(new = T) # 図を重ねるため
plot(0:10, dbinom(0:10, 10, 0.3), type = "l", axes = F, ann = F) # axes, annは軸に何も描かないようにFalse設定
axis(4) # 右側のy軸に目盛を表記
mtext(text = "hehehe", side = 4, line = 3) # 説明を加える

legend(locator(1), legend = c("nanika", "ne"), lty = 1:2)

あと、年度データも作り方忘れやすいので備忘録的な意味であげておいたり

(first.day.2009 <- as.Date("2009-01-01"))

(day.2009 <- seq(first.day.2009, len = 365, by="1 day"))
(week.2009 <- seq(first.day.2009, len = 52, by="1 week"))
(month.2009 <- seq(first.day.2009, len = 12, by="1 month"))

Macでの日本語画像保存方法も備忘録。quartz()とかquartzFonts()のマニュアルにやり方は書いてますが

quartz(file = "tee.jpeg", type = "jpeg")
quartz(file = "tee.pdf", type = "pdf")
par(family = "AppleGothic")
par(family = "Hiragino Kaku Gothic Pro W3")
plot(1:10, main = "あほう")
dev.off()