クールジャパン

R アニメ

アニメイトが全国出店したらしい。

ということでこのツイートを元に、全国のオタクショップの出店有無を日本地図に描いておく。


library(spsurvey)
jpn_GA <- read.shape("JPN_adm/JPN_adm1.shp")
# 日本全体の設定
xl <- c(129, 146)
yl <- c(30.8, 45)
dat <- read.csv("animate.csv", row.names=1) # 
cols <- rainbow(ncol(dat))

lmat <- lmat0 <- matrix(c(2, rep(1, 8)), 3, 3)
for(i in seq(3)) lmat <- cbind(lmat, lmat0+2*i)
lmat <- rbind(lmat, lmat+max(lmat))

layout(lmat)
for(i in seq(cols)){
par(mar=c(0,0,0,0))
	tmp_col <- replace(rep("white", nrow(dat)), dat[,i]==1, cols[i])
	plot(jpn_GA, xlim=xl, ylim=yl, col=tmp_col)
	#mtext(colnames(dat)[i], side=1, line=-3, cex=3, adj=1)
	# 沖縄の緯度と経度
	xokinawa <- c(127.5, 128.2)
	yokinawa <- c(26.0, 27)
	par(mar=c(0, 3, 3, 0))
	plot(jpn_GA, xlim=xokinawa, ylim=yokinawa, col=tmp_col)
	mtext(colnames(dat)[i], side=1, line=2, cex=2, adj=0)
	pa <- par()$usr
	segprop <- 0.8
	segments(pa[1], pa[3], x1=pa[1]+diff(pa[1:2])*segprop)
	segments(pa[2], pa[4], y1=pa[4]-diff(pa[3:4])*segprop)
	segments(pa[1]+diff(pa[1:2])*segprop, pa[3], x1=pa[2], y1=pa[4]-diff(pa[3:4])*segprop)
}

lmat <- matrix(1, 3, 3)
diag(lmat) <- c(2, 1, 3)
layout(lmat, widths=c(8, 0.1, 10))
par(mar=c(0,0,0,0))
cols <- c(grey(0.8), "pink", "blue", "skyblue", "lightgreen", "green", "yellow", "orange", "red")
plot(jpn_GA, xlim=xl, ylim=yl, col=cols[rowSums(dat)+1])
# 沖縄の緯度と経度
xokinawa <- c(127.5, 128.2)
yokinawa <- c(26.0, 27)
par(mar=c(0, 3, 3, 0))
plot(jpn_GA, xlim=xokinawa, ylim=yokinawa, col=cols[rowSums(dat)+1])
pa <- par()$usr
segprop <- 0.8
segments(pa[1], pa[3], x1=pa[1]+diff(pa[1:2])*segprop)
segments(pa[2], pa[4], y1=pa[4]-diff(pa[3:4])*segprop)
segments(pa[1]+diff(pa[1:2])*segprop, pa[3], x1=pa[2], y1=pa[4]-diff(pa[3:4])*segprop)
# カラースケールを描く
par(mar=c(5, 4, 12, 2))
m0 <- matrix(0:8, nc=1)
image(c(m0), 1, m0, col=cols, yaxt="n", xlab="", ylab="")

	ホビーゾーン	らしんばん	メロンブックス	ソフマップ	とらのあな	ゲーマーズ	まんだらけ	ジーストア
Aichi	1	1	1	1	1	1	1	1
Akita	0	0	0	0	0	0	0	0
Aomori	0	0	0	0	0	0	0	0
Chiba	1	1	1	1	1	1	0	1
Ehime	1	1	1	0	0	0	0	0
Fukui	0	0	0	0	0	0	0	0
Fukuoka	1	1	1	1	1	1	1	1
Fukushima	0	1	0	0	0	0	0	0
Gifu	1	0	0	0	0	0	0	0
Gunma	0	1	1	0	0	0	0	0
Hiroshima	1	1	1	1	1	0	0	0
Hokkaido	0	1	1	1	1	1	1	0
Hyogo	1	1	1	1	1	1	0	0
Ibaraki	1	1	0	1	0	0	0	0
Ishikawa	0	1	0	0	0	0	0	0
Iwate	0	0	0	0	0	0	0	0
Kagawa	1	0	0	0	0	0	0	0
Kagoshima	1	0	0	1	0	0	0	0
Kanagawa	0	1	1	1	1	1	0	0
Kochi	0	0	0	0	0	0	0	0
Kumamoto	1	1	1	0	0	0	0	0
Kyoto	1	1	1	1	1	1	0	0
Mie	0	0	0	0	0	0	0	0
Miyagi	0	1	1	1	1	1	0	1
Miyazaki	0	0	0	0	0	0	0	0
Nagano	1	1	1	1	1	1	1	1
Naoasaki	1	0	0	0	0	0	0	0
Nara	1	0	0	0	0	0	0	0
Niigata	0	1	1	1	1	0	0	0
Oita	1	0	0	0	0	0	0	0
Okayama	0	1	1	1	0	0	0	0
Okinawa	0	0	0	0	0	0	0	0
Osaka	1	1	1	1	1	1	1	1
Saga	1	0	0	0	0	0	0	0
Saitama	1	1	1	1	1	1	0	0
Shiga	0	0	0	0	0	0	0	0
Shimane	1	0	0	0	0	0	0	0
Shizuoka	1	1	1	0	1	0	0	0
Tochigi	0	1	1	0	0	0	1	0
Tokushima	1	0	0	0	0	0	0	0
Tokyo	1	1	1	1	1	1	1	0
Tottori	1	0	0	0	0	0	0	0
Toyama	0	0	0	0	0	0	0	0
Wakayama	0	0	0	0	0	0	0	0
Yamagata	0	0	0	0	0	0	0	0
Yamaguchi	1	0	0	0	0	0	0	0
Yamanashi	0	1	0	0	0	0	0	0