スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

バブルス

$$

library(maptools)
library(shapefiles)
library(TeachingDemos)
datashp <- readShapePoly("kenkyo",proj4string=CRS("+proj=longlat"))
tohoku <- c("北海道","青森県","岩手県","宮城県","秋田県","山形県","福島県")
datashp7 <- subset(datashp,is.element(datashp$SP_ID,tohoku)) #北海道・東北の抽出
coords <- coordinates(datashp7)
childdata <- read.table("childdata.dat",header=T,skip=1)
childdata <- childdata[,c(2,3)]
pdf("map14Jul2013.pdf",height=5.5,width=6,pointsize=14)
par(family="Japan1GothicBBB")
plot(datashp7,col=prefcol,lwd=0.8)
for(i in c(1:length(coords))){
subplot(barplot(as.numeric(childdata[i,]),yaxt="n",col=c("grey","black")),
x=coords[i,1],y=coords[i,2],vadj=0, size=c(0.2,0.25))
}
legend(136,45.5,c("3歳児","12歳児"),cex=1.0,fill=c("grey","black"),bty="n")
dev.off()


map14Jul2013_01-2.png


上記の地図は、公開データ「国土交通省 国土数値情報ダウンロードサービス 行政区域(面)H25年」を利用し作成した。
スポンサーサイト

コメントの投稿


非公開コメント

コメント

Profile

zoa

Author:zoa
Metropolis (1927)

Calendar
05 | 2017/06 | 07
- - - - 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 -
Labels
Admin
Previous Posts
Recent Comments
Recent Trackback
Archive
このページのトップへ
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。