VisualizaciĆ³n descriptiva Covid-19 al 29 de mayo de 2021

Datos descargados de la OrganizaciĆ³n Mundial de la Salud: https://covid19.who.int/

library(readr)
## Warning: package 'readr' was built under R version 4.0.5
covid19_29mayo <- read_csv("covid19_29mayo.csv")
## 
## -- Column specification --------------------------------------------------------
## cols(
##   Date_reported = col_date(format = ""),
##   Country_code = col_character(),
##   Country = col_character(),
##   WHO_region = col_character(),
##   New_cases = col_double(),
##   Cumulative_cases = col_double(),
##   New_deaths = col_double(),
##   Cumulative_deaths = col_double()
## )
View(covid19_29mayo)
str(covid19_29mayo)
## spec_tbl_df[,8] [121,581 x 8] (S3: spec_tbl_df/tbl_df/tbl/data.frame)
##  $ Date_reported    : Date[1:121581], format: "2020-01-03" "2020-01-04" ...
##  $ Country_code     : chr [1:121581] "AF" "AF" "AF" "AF" ...
##  $ Country          : chr [1:121581] "Afghanistan" "Afghanistan" "Afghanistan" "Afghanistan" ...
##  $ WHO_region       : chr [1:121581] "EMRO" "EMRO" "EMRO" "EMRO" ...
##  $ New_cases        : num [1:121581] 0 0 0 0 0 0 0 0 0 0 ...
##  $ Cumulative_cases : num [1:121581] 0 0 0 0 0 0 0 0 0 0 ...
##  $ New_deaths       : num [1:121581] 0 0 0 0 0 0 0 0 0 0 ...
##  $ Cumulative_deaths: num [1:121581] 0 0 0 0 0 0 0 0 0 0 ...
##  - attr(*, "spec")=
##   .. cols(
##   ..   Date_reported = col_date(format = ""),
##   ..   Country_code = col_character(),
##   ..   Country = col_character(),
##   ..   WHO_region = col_character(),
##   ..   New_cases = col_double(),
##   ..   Cumulative_cases = col_double(),
##   ..   New_deaths = col_double(),
##   ..   Cumulative_deaths = col_double()
##   .. )

Casos diarios

#install.packages(ggplot2)
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.0.5
gBarras <- ggplot(covid19_29mayo, 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 <- gBarras + scale_x_date(date_breaks = "1 week" )
gBarras

Casos diarios por regiĆ³n

gBarras <- ggplot(covid19_29mayo, 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", x="DĆ­a", y="Casos nuevos")
gBarras <- gBarras + theme (axis.text.x = element_text(angle = 90, size = 4, hjust=1) )
gBarras <- gBarras + scale_x_date(date_breaks = "1 week" )
gBarras

Casos diarios por region discriminados

gBarras <- gBarras + facet_grid(WHO_region~.)
gBarras <- gBarras + scale_x_date(date_breaks = "1 week" )
## Scale for 'x' is already present. Adding another scale for 'x', which will
## replace the existing scale.
gBarras

Algunos paĆ­ses de Latinoamerica

Colombia

colombia <- subset(covid19_29mayo, covid19_29mayo$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 <- gBarras + scale_x_date(date_breaks = "1 week" )
gBarras

Brasil

brasil <- subset(covid19_29mayo, covid19_29mayo$Country_code=="BR")

gBarras <- ggplot(brasil, aes(Date_reported, New_cases, group=Country_code))
gBarras <- gBarras + geom_line(stat="identity")
gBarras <- gBarras + labs (title = "Casos nuevos de Covid en Brasil", x="DĆ­a", y="Casos nuevos")
gBarras <- gBarras + theme (axis.text.x = element_text(angle = 90, size = 6, hjust=1) )
gBarras <- gBarras + scale_x_date(date_breaks = "1 week" )
gBarras

Brasil y Colombia

brasil_colombia <- subset(covid19_29mayo, covid19_29mayo$Country_code=="BR" | covid19_29mayo$Country_code=="CO")

gBarras <- ggplot(brasil_colombia, aes(Date_reported, New_cases, color=Country_code))
gBarras <- gBarras + geom_line(stat="identity")
gBarras <- gBarras + labs (title = "Casos nuevos de Covid en Colombia y Brasil", x="DĆ­a", y="Casos nuevos")
gBarras <- gBarras + theme (axis.text.x = element_text(angle = 90, size = 6, hjust=1) )
gBarras <- gBarras + scale_x_date(date_breaks = "1 week" )
gBarras

Latinoamerica

latAmerica <- subset(covid19_29mayo, covid19_29mayo$WHO_region=="AMRO")

gBarras <- ggplot(latAmerica, aes(New_cases, group=Country_code))
gBarras <- gBarras + geom_boxplot()
gBarras <- gBarras + labs (title = "Casos nuevos de Covid en LATAM")
gBarras