2015年12月22日火曜日

R:白地図の作成、あるいはeps形式での保存

白地図の作成は権利の関係でナニヤラ難しいところがありそう。

ここではとりあえずどんな方法があるか、という軽く触れる程度にしておく。


よし、Japan.rdsというファイルを手に入れたとしよう。
諸君には「白地図 R」とかでググって何とかして欲しい。

spというライブラリがあると捗るので、
install.packages("sp")
もう持っている修羅なアナタは
library(sp)
などとしてゲッツして欲しい。

んで、あとは
jpn <- readRDS("Japan.rds")
でよみこんで、

makemap <- function(xlim,xmax,ylim,ymax,i){
  plot(jpn,
   xlim=c(xlim,xmax),
   ylim=c(ylim,ymax),
   lwd=i
  )
}
なーんていうスクリプトでも組んでみたら、何度も
欲しいところが出るまでリレーできる。頑張れ。

もし必要なら
makeEps <- function(names){
 nm <- paste(names,".eps",sep="")
 dev.copy2eps(file=nm)
dev.off()
}
なーんてスクリプトを組んでおくとイイノデハ。

いやいやpostscriptでイイデショ、という方はそれはそれ。