Visualización descriptiva Covid-19 a Mayo 29, 2021

Datos de la OMS: https://covid19.who.int/

Casos diarios

WHO.COVID.19.global.data <- read.csv("C:/Users/Dayana Castro/Downloads/covid/WHO-COVID-19-global-data.csv")
str(WHO.COVID.19.global.data)
## 'data.frame':    121581 obs. of  8 variables:
##  $ ï..Date_reported : chr  "2020-01-03" "2020-01-04" "2020-01-05" "2020-01-06" ...
##  $ Country_code     : chr  "AF" "AF" "AF" "AF" ...
##  $ Country          : chr  "Afghanistan" "Afghanistan" "Afghanistan" "Afghanistan" ...
##  $ WHO_region       : chr  "EMRO" "EMRO" "EMRO" "EMRO" ...
##  $ New_cases        : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ Cumulative_cases : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ New_deaths       : int  0 0 0 0 0 0 0 0 0 0 ...
##  $ Cumulative_deaths: int  0 0 0 0 0 0 0 0 0 0 ...
library(ggplot2)

gBarras <- ggplot(WHO.COVID.19.global.data, aes(ï..Date_reported, New_cases))
gBarras <- gBarras + geom_bar(stat = 'identity')
gBarras <- gBarras + labs (title = "Casos nuevos de Covid a nivel mundial", x = "Día", y = "Casos nuevos")
gBarras <- gBarras + theme(axis.text.x = element_text(angle = 90, size = 6, hjust = 1))
gBarras

Casos por region

gBarras <- ggplot(WHO.COVID.19.global.data, aes(ï..Date_reported, New_cases, fill=WHO_region))
gBarras <- gBarras + geom_bar(stat = 'identity')
gBarras <- gBarras + labs (title = "Casos nuevos de Covid a nivel mundial por region", x = "Día", y = "Casos nuevos por region")
gBarras <- gBarras + theme(axis.text.x = element_text(angle = 90, size = 6, hjust = 1))
gBarras

gBarras <- gBarras + facet_grid(WHO_region~.)
gBarras

Casos Colombia

colombia <- subset(WHO.COVID.19.global.data, WHO.COVID.19.global.data$Country_code =='CO')

gBarras <- ggplot(colombia, aes(ï..Date_reported, New_cases, group=Country_code))
gBarras <- gBarras + geom_line(stat = 'identity')
gBarras <- gBarras + labs (title = "Casos nuevos de Covid en Colombia", x = "Día", y = "Casos nuevos")
gBarras <- gBarras + theme(axis.text.x = element_text(angle = 90, size = 6, hjust = 1))
gBarras

2021(C)Dayana Castro Maestría en Analítica e Inteligencia de Negocios UNIVALLE