Slide 23
Slide 23 text
ྛܭըؔࢿྉͷར༻
# 森林に関するデータ
df.forest <- readr::read_csv(
"09留萌/留萌森林簿データ(コード置換版).csv",
locale = readr::locale(encoding = "cp932"))
df.rumoi <- read_sf("09留萌/09留萌_小班.shp") %>%
select(KEYCODE, 市町村コー, 林班, 計画区コー,
GISAREA, NO, LUX, ID, geometry) %>%
filter(between(ID, 9010000001, 9010001000)) %>%
st_simplify() %>%
inner_join(df.forest, by = c("KEYCODE", "林班"))
quartzFonts(
HiraMaru = quartzFont(rep("HiraMaruProN-W4", 4)))
theme_set(
ggthemes::theme_map(base_size = 12,
base_family = "HiraMaruProN-W4"))
ggplot() +
geom_sf(data = df.rumoi, aes(fill = 林種))