Overview

This art work represent Italy, data is from the {spData} package.

library(tidyverse)
library(sf)
library(spData)
spData::world

# save final plot
ragg::agg_png(here::here("/Users/federica/Documents/R/R_general_resources/30DayMapChallenge/day9_monochrome/monochrome.png"),
              res = 320, width = 6, height = 6, units = "in")


world_europe = world[world$continent == "Europe", ]
italy = world[world$name_long == "Italy", ]
plot(st_geometry(italy), expandBB = c(0, 0.2, 0.1, 1), col = "gray", lwd = 3)
plot(world_europe[0], add = TRUE)
dev.off()

library(cowplot)
library(magick)


mono_it <- image_read("/Users/federica/Documents/R/R_general_resources/30DayMapChallenge/day9_monochrome/monochrome.png")

library(showtext)
library(extrafont)
sysfonts::font_info_google("Josefin Sans")
#fonts()
#loadfonts()
font_add_google("Josefin Sans","josefin")
showtext_opts(dpi = 320)
showtext_auto(enable = T)


empty<-ggplot()+geom_blank()+xlim(0,50)+ylim(0,50)+theme_void()

g <- grid::circleGrob(gp = grid::gpar(fill = NA,color="black"))


final <- ggdraw()+
  draw_plot(empty)+
  draw_image(mono_it, x = 0, y = 0,width = 1)+
  draw_text("Monochrome Italy",x=0.5,y=0.91,angle=0,family="josefin")+
  draw_text("Datasource: spData::world\nInfographics: Federica Gazzelloni",x=0.5,y=0.15,family="josefin",size=9)+
  draw_grob(g, scale = 1)


ragg::agg_png(here::here("/Users/federica/Documents/R/R_general_resources/30DayMapChallenge/day9_monochrome/monochrome.png"),
              res = 320, width = 6, height = 6, units = "in")
final
dev.off()