Introducción

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

covidData <- read.csv("Data/WHO-COVID-19-global-data.csv")
names(covidData)[1]<-("Date_reported")

covidData$Date_reported<-as.Date(covidData$Date_reported, format="%Y-%m-%d")

Casos Confirmados

library(ggplot2)

grafico<-ggplot(covidData, aes(Date_reported, New_cases))
grafico<-grafico + geom_bar(stat="identity")
grafico<-grafico + labs(y="Nuevos Casos", x="Fecha", title="Situación glogal",subtitle="Casos confirmados")
grafico

Acumulado de casos

grafico<-ggplot(covidData, aes(Date_reported, Cumulative_cases, fill=WHO_region))
grafico<-grafico + geom_bar(stat="identity")
grafico<-grafico + labs(y="Nuevos Casos", x="Fecha", title="Situación glogal",subtitle="Casos acumulados confirmados")
grafico<-grafico + theme(axis.text.x=element_text(size=7, angle=45))
grafico<-grafico + scale_x_date(date_breaks="4 week", date_labels="%y %b %d")
grafico

Casos en Colombia

colombia<-subset(covidData, covidData$Country=="Colombia")

grafico<-ggplot(colombia, aes(Date_reported, Cumulative_cases, fill=WHO_region))
grafico<-grafico + geom_line(stat="identity")
grafico<-grafico + geom_smooth(method=lm)
grafico<-grafico + labs(y="Nuevos Casos", x="Fecha", title="Situación glogal",subtitle="Casos acumulados confirmados en Colombia")
grafico<-grafico + theme(axis.text.x=element_text(angle=90))
grafico<-grafico + scale_x_date(date_breaks="4 week", date_labels="%y %b %d")
grafico

Los casos en Colombia se incrementan significativamente a partir de Julio 2021

Comparación países

paises<-subset(covidData, covidData$Country=="Colombia" |covidData$Country=="Argentina"|covidData$Country=="Spain"|covidData$Country=="France" )

grafico<-ggplot(paises, aes(Date_reported, Cumulative_cases, color=Country))
grafico<-grafico + geom_line(stat="identity")
grafico<-grafico + labs(y="Nuevos Casos", x="Fecha", title="Situación glogal",subtitle="Casos acumulados confirmados en Colombia, Argentina, España y Francia")
grafico<-grafico + theme(axis.text.x=element_text(angle=90))
grafico<-grafico + scale_x_date(date_breaks="4 week", date_labels="%y %b %d")

#facetas por regiones
grafico<-grafico + facet_grid(WHO_region~.)
grafico