R script to generate a map by maptools.

test_maptools.R

# ライブラリの読み込み
library(maptools)
library(RColorBrewer)

# Shape ファイルのフルパス
shp <- '/path/to/shapefile.shp'

# Shape ファイルの読み込み
# map <- readShapePoly(shp)  # これでもよい
map <- readShapeSpatial(shp)

# 色設定
#（ RColorBrewer - Paired パレット の12色を21市町村分ランダムに設定する例 )
col <- sample(1:12, size=21, replace=T)

# プロット
# ( x, y 軸表示、ラベル「全て水平」、RColorBrewer で塗りつぶし、
#   境界線「青」、境界線太さ「１」 )
plot(map, axes=T, las=1, col=brewer.pal(12,"Paired")[col], border="blue", lwd=1)