第７章　空間データの分類（主題図）

必要なパッケージのインストール

install.packages(c("maptools", "TeachingDemos"))
library(maptools)

# 以下よりjapank.zipをダウンロードして解凍する
# http://www.okadajp.org/RWiki/?ShapeFile%E3%83%A9%E3%82%A4%E3%83%96%E3%83%A9%E3%83%AA#c70e3f89

# ファイルの場所を指定
jpmap_path <- "/Users/yourname/Downloads/japank/japank.shp"
jpn.pref <- readShapePoly(jpmap_path, proj4string = CRS("+init=epsg:4612"))
# 県単位の地図を描画
plot(jpn.pref, axes = TRUE)

library(TeachingDemos)