Covid2022 - Mapas

Introducción

El presente dataset proviene de la Organización Mundial de la Salud (https://covid19.who.int/). Los datos fueron descargados el 29 de Enero de 2022

covidData <- read.csv("https://covid19.who.int/WHO-COVID-19-global-data.csv")
names(covidData)[1]<-("Date_reported")
covidData$Date_reported<-as.Date(covidData$Date_reported, format="%Y-%m-%d")

Mapa Global

casos<-subset(covidData,covidData$Date_reported=="2022-01-28")

#Cargar el mapa 

map_2022 <- read.csv2("C:/Users/vibr1874/Desktop/I Semestre MAIN/Visualizacion/Covid2022_OMS/Mapa/map_2022.csv")

library(ggplot2)

mapaViz<-ggplot(map_2022,aes(long, lat, group=as.factor(group),fill=sub.region))
mapaViz<-mapaViz + geom_polygon()
mapaViz

Casos nuevos - Mapa global

#combinar dataframes

library(dplyr)

covidMapa<-left_join(casos, map_2022, by=c("Country_code"="ISO2"))

mapaViz<-ggplot(covidMapa,aes(long, lat, group=as.factor(group),fill=log10(New_cases)))

mapaViz<-mapaViz + geom_polygon()
#mapaViz<-mapaViz + scale_fill_viridis_c()
mapaViz<-mapaViz + scale_fill_gradient(low="#132B43", high="#56B1F7", space="Lab", na.value="grey50", trans="log10")
mapaViz=mapaViz + labs(title="Nuevos casosCovid-19 en Enero 28 de 2022", caption="Territorios sin datos en gris. Escala cromatica en logaritmo base10") 
mapaViz

Casos nuevos - Región América Latina y el Caribe

mapa<-subset(map_2022, map_2022$sub.region=="Latin America and the Caribbean")
covidMapa2<-left_join(casos, mapa, by=c("Country_code"="ISO2"))

mapaViz<-ggplot(covidMapa2,aes(long, lat, group=as.factor(group),fill=log10(New_cases)))

mapaViz<-mapaViz + geom_polygon()
mapaViz<-mapaViz + scale_fill_gradient(low="#132B43", high="#56B1F7", space="Lab", na.value="grey50", trans="log10")
mapaViz=mapaViz + labs(title="Nuevos casosCovid-19 en Enero 28 de 2022", caption="Territorios sin datos en gris. Escala cromatica en logaritmo base10") 
mapaViz