ラブライブ劇場版の見開き広告が全国展開されて、各都道府県で違うらしい。 わかりやすくプロットしといた。 library(spsurvey) jpn_GA <- read.shape("JPN_adm/JPN_adm1.shp") # 日本全体の設定 xl <- c(129, 146) yl <- c(30.8, 45) dat <- read.delim("ne…