Help with a ggplot map, please!!

[jackrogers]

Hi, please can someone tell me why italy and spain are not being produced in all 4 maps ???

20358991_POLI1029_2122

#Clear Objects
rm(list = ls())

#Set Working Directory
setwd("C:/Users/roger/OneDrive - The University of Nottingham/Political Data/v14")

#Install Packages (un-comment if needed)
#install.packages("tidyverse")
#install.packages("patchwork")

#Load Packages
library(tidyverse)
library(patchwork)

#Read Data Set
full_covid_data <- read.csv("JHU-UN-IPU_Covid.csv")

#Load in our shapefile
europe_map <- map_data("world", xlim = c(0, 25),ylim = c(40, 60), expand = FALSE)

map <- ggplot() + geom_polygon(data = europe_map, color = "black", size = 0.25,
aes(x = long, y = lat, group = group))

#Merge variables of interest
covid <- left_join(europe_map, full_covid_data, by = c(region = "country"))

#Filter Data Set
covidmap <- filter(covid, total_cases !=0, monthlyDateN == c(2020.12,2021.03,2021.06,2021.09))

#maps
covidmap_vaccination <- ggplot() + geom_polygon(data = covidmap, color = "black", size = 0.25,
aes(x = long, y = lat, group = group,
fill = (((people_fully_vaccinated - people_partially_vaccinated)+people_partially_vaccinated)/population)*100))

covidmap_vaccination + geom_path() + scale_fill_gradient(low = "cyan", high = "darkblue") +
theme(axis.text.x = element_blank(), axis.text.y = element_blank(), axis.ticks = element_blank()) +
labs(title = "January", fill = "vaccination doses administered", x = "", y = "") +
theme(panel.background = element_blank()) + facet_wrap(~monthlyDateN)

[jrkrideau]

Without some sample data it is difficult to answer.

A handy way to supply sample data is to use the dput() function. See ?dput. If you have a very large data set then something like head(dput(myfile), 100) will likely supply enough data for us to work with.

[rene_at_coco]

I'm not familiar with the patchwork package. In my experience with geospatial stuff in R I found this to be very helpful.

https://r-spatial.org/r/2018/10/25/ggplot2-sf.html