2023-08-01から1ヶ月間の記事一覧
for (var in vars) { # var_1 <- rlang::enquo(var) p <- ggplot(data = target_gridcells_with_landcover) + geom_sf(aes(fill = !!sym(var))) ggsave( p, filename = str_c( 'DIR', var, '.jpg' ), width = 8, height = 8, dpi = 300 ) }
for (var in vars) { # var_1 <- rlang::enquo(var) p <- ggplot(data = target_gridcells_with_landcover) + geom_sf(aes(fill = !!sym(var))) ggsave( p, filename = str_c( 'DIR', var, '.jpg' ), width = 8, height = 8, dpi = 300 ) }