アニメイトが全国出店したらしい。
アニメイトが全都道府県に出店したらしいのでオタクショップあるない表を作りました。 pic.twitter.com/CIhgGBBB25
— 酉越区郎 (@Torikoshi960) 2015, 4月 27
ということでこのツイートを元に、全国のオタクショップの出店有無を日本地図に描いておく。
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