rm(list=ls())setwd(dirname(rstudioapi::getActiveDocumentContext()$path))library(tidyverse)library(streamgraph)highest_mountains <-read_csv("mountains.csv")highest_mountainslibrary(cowplot)library(hrbrthemes)library(extrafont)loadfonts()ggdraw() +draw_image("mountains_map.png")+draw_label("Where are the mountains of the world?",fontfamily ="Eater",color="grey60",size =28, x=0.5,y=0.95) +draw_label("approximate spatial resolution of the global distribution of mountains.",fontfamily ="Eater",size =15, x=0.5,y=0.89,color="grey60") +draw_label("coursework: https://learn.arcgis.com/en/projects/map-the-highest-mountains",fontfamily ="Eater",size =12, x=0.5,y=0.85,color="grey60") +draw_label("Map made with ArcGIS:- basemap: Modern Antique Map\n- layer: World Mountain Ranges\n- Triangles represent the highest mountains: \nMt.Everest, Kangchenjunga, Lhotse, Makala (Himalayas)\nDataSource: Learn ArcGIS | DataEdit: Federica Gazzelloni",x=0.5,y=0.13,fontfamily ="Eater",color="grey60") ggsave("day8_mountains.png",width =9.87, height =9.46,bg="grey15",dpi=320)