1月，2月，...，12月

メモ

> format(ISOdate(2000, 1:12, 1), "%B")
 [1] "1月"  "2月"  "3月"  "4月"  "5月"  "6月"  "7月"  "8月"  "9月"  "10月" "11月" "12月"

> paste(1:12, "月", sep="")
 [1] "1月"  "2月"  "3月"  "4月"  "5月"  "6月"  "7月"  "8月"  "9月"  "10月" "11月" "12月"