ラブライブ劇場版の見開き広告が全国展開されて、各都道府県で違うらしい。
わかりやすくプロットしといた。
library(spsurvey) jpn_GA <- read.shape("JPN_adm/JPN_adm1.shp") # 日本全体の設定 xl <- c(129, 146) yl <- c(30.8, 45) dat <- read.delim("newspaper.txt", row.names=1) # cols <- rainbow(ncol(dat)) 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("skyblue", "blue", "orange", "lightgreen", "yellow", "red", "violet", "green", "pink") plot(jpn_GA, xlim=xl, ylim=yl, col=cols[c(dat$member)]) legend("bottomright", legend=levels(dat$member), text.col=cols, cex=3, bty="n", text.font=2) # 沖縄の緯度と経度 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[c(dat$member)]) 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)
member Aichi 綾瀬絵里 Akita 小泉花陽 Aomori 小泉花陽 Chiba 高坂穂乃果 Ehime 南ことり Fukui 南ことり Fukuoka 星空凛 Fukushima 小泉花陽 Gifu 綾瀬絵里 Gunma 矢澤にこ Hiroshima 南ことり Hokkaido 綾瀬絵里 Hyogo 東條希 Ibaraki 西木野真姫 Ishikawa 綾瀬絵里 Iwate 小泉花陽 Kagawa 南ことり Kagoshima 園田海未 Kanagawa 西木野真姫 Kochi 南ことり Kumamoto 園田海未 Kyoto 東條希 Mie 綾瀬絵里 Miyagi 小泉花陽 Miyazaki 園田海未 Nagano 小泉花陽 Naoasaki 園田海未 Nara 東條希 Niigata 小泉花陽 Oita 園田海未 Okayama 南ことり Okinawa 星空凛 Osaka 東條希 Saga 園田海未 Saitama 矢澤にこ Shiga 東條希 Shimane 南ことり Shizuoka 高坂穂乃果 Tochigi 西木野真姫 Tokushima 南ことり Tokyo 高坂穂乃果 Tottori 南ことり Toyama 綾瀬絵里 Wakayama 東條希 Yamagata 小泉花陽 Yamaguchi 星空凛 Yamanashi 矢澤にこ