R Markdown

#Spatial Data in R exercise 1

Install required libraries if not already installed

if (!requireNamespace(“sf”, quietly = TRUE)) install.packages(“sf”) if (!requireNamespace(“ggplot2”, quietly = TRUE)) install.packages(“ggplot2”) if (!requireNamespace(“viridis”, quietly = TRUE)) install.packages(“viridis”)

Load required libraries

library(sf) library(ggplot2) library(viridis)

Load the shapefile from the zip file

unzip(“countries.zip”, exdir = “countries”) countries <- st_read(“countries/countries.shp”)

Plot Median GDP

ggplot(data = countries) + geom_sf(aes(fill = gdp_md_est)) + scale_fill_viridis(option = “magma”, trans = “log”, na.value = “grey50”) + theme_minimal() + labs(title = “Median GDP by Country”, fill = “GDP (log scale)”)

Plot Population

ggplot(data = countries) + geom_sf(aes(fill = pop_est)) + scale_fill_viridis(option = “viridis”, trans = “log”, na.value = “grey50”) + theme_minimal() + labs(title = “Population by Country”, fill = “Population (log scale)”)

Plot Income Group

ggplot(data = countries) + geom_sf(aes(fill = income_grp)) + scale_fill_viridis_d(option = “plasma”, na.value = “grey50”) + theme_minimal() + labs(title = “Income Group by Country”, fill = “Income Group”)