testing hpc version, ctd

This commit is contained in:
Jeremy Kidwell 2019-03-25 11:47:30 +00:00
parent c39b197676
commit a8eee81490

View file

@ -481,7 +481,7 @@ admin_barplot <-
pdf("figures/03_admin_barplot.pdf") pdf("figures/03_admin_barplot.pdf")
print(admin_barplot) print(admin_barplot)
dev.off() dev.off()
``` ```
@ -528,16 +528,13 @@ admin_lev2_centralbelt_ecs_plot <-
# Stitch together maps using grid() # Stitch together maps using grid()
vp_admin_lev2_centralbelt_ecs_plot <- viewport(x = 0.5, y = 0.1, height = 6.0/centralbelt_ratio) vp_admin_lev2_centralbelt_ecs_plot <- viewport(x = 0.5, y = 0.1, height = 6.0/centralbelt_ratio)
# Save to file
tmap_save(admin_lev2_scotland_ecs_plot, filename = "adminlev2_test.png", scale = 0.7, width = 6.125,
insets_tm = admin_lev2_centralbelt_ecs_plot,
insets_vp = vp_admin_lev2_centralbelt_ecs_plot)
# plot full map with inset # plot full map with inset
tmap_mode("plot") tmap_mode("plot")
admin_lev2_scotland_ecs_plot pdf("figures/03_admin_lev2_scotland_ecs_plot.pdf")
print(admin_lev2_centralbelt_ecs_plot, print(admin_lev2_centralbelt_ecs_plot,
vp = vp_admin_lev2_centralbelt_ecs_plot) vp = vp_admin_lev2_centralbelt_ecs_plot)
dev.off()
# Second plot, revealing transition towns # Second plot, revealing transition towns