shp_tw <- read_sf("C:/Users/X510/Desktop/2020-05-18-In-class-Maps-2/mapdata201911261001/COUNTY_MOI_1081121.shp")
map_tw1 <- fortify(shp_tw) #轉換成data.frame
map_tw1$COUNTYNAME #檢視資料中的行政區## [1] "連江縣" "宜蘭縣" "彰化縣" "南投縣" "雲林縣" "屏東縣" "基隆市" "新竹市"
## [9] "臺北市" "新北市" "臺中市" "臺南市" "桃園市" "苗栗縣" "新竹縣" "嘉義市"
## [17] "嘉義縣" "金門縣" "高雄市" "臺東縣" "花蓮縣" "澎湖縣"map_tw1$visited_unvisited <- c(rep("visited", 11), rep("unvisited", 11))
#標示visited和unvisited
map <- map_tw1[,6]