Open2
ggplot2で日本地図を描く方法メモ
yuumaps / mapdataを使う方法
library(maps)
library(mapdata)
jpn <- map_data("japan")
ggplot(jpn, aes(x = long, y = lat, group = group)) +
geom_polygon(fill = "white", color = "gray20") +
coord_map()
ggplot(data = jpn, aes(x = long, y = lat, group = group)) +
geom_map(
data = jpn,
map = jpn,
fill = "white", color = "gray20",
aes(map_id = region)
) +
coord_map()
yuuggplot(jpn %>% mutate(pct = runif(n(), 0, 1)), aes(x = long, y = lat, group = group, fill = pct)) +
geom_polygon(color = "gray80", size = 0.1) +
scale_fill_gradient2(
low = "red", mid = scales::muted("purple"), high = "blue"
) +
coord_map(projection = "albers", lat0 = 44, lat1 = 33) # lat0/1: 標準緯線
参考文献）