データ 使うのは前回のデータ。 library(rgdal) f <- "C:\\path\\to\\gm-jpn-bnd_u_2_1" l <- readOGR(f, layer = "polbnda_jpn", encoding = "UTF-8",verbose = TRUE) glimpse(l@data) #> Observations: 2,914 #> Variables: 9 #> $ f_code (fctr) FA001, FA001, FA001, FA001, FA001, FA001, FA001, FA001, FA001, FA001, FA001, FA001, FA001, FA001, FA001, FA001, FA0... #> $ coc (fctr) JPN, JPN, JPN, JPN, JPN, JPN, JPN, JPN, JPN, JPN