actividad2
Omar Solano
29/5/2021
R Markdown
Visualización descriptiva Covid-19 a Mayo 29, 2021
Datos descargados de la Organizacion mundial de la Salud: https://covid19.who.int/
##Número de casos diarios
Data_Covid19 <- read.csv("~/Actividad2_covid/Data_Covid19.csv")
str(Data_Covid19)## '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 ...Data_Covid19$ï..Date_reported <- as.Date(Data_Covid19$ï..Date_reported)
library(ggplot2)## Warning: package 'ggplot2' was built under R version 4.0.5gBarras <- ggplot(Data_Covid19, aes(ï..Date_reported, New_cases))
gBarras <- gBarras + geom_bar(stat='identity')
gBarras <- gBarras + labs (title= "Casos nuevos de Codiv a nivel mundial", x="Dia", y = "Casos nuevos")
gBarras <- gBarras + theme (axis.text.x = element_text(angle = 90, size = 6, hjust = 1))
gBarras
##Casos diarios por región
library(ggplot2)
gBarras <- ggplot(Data_Covid19, aes(ï..Date_reported, New_cases, fill=WHO_region))
gBarras <- gBarras + geom_bar(stat='identity')
gBarras <- gBarras + labs (title= "Casos nuevos de Codiv a nivel mundial", x="Dia", y = "Casos nuevos")
gBarras <- gBarras + theme (axis.text.x = element_text(angle = 90, size = 6, hjust = 1))
gBarras
##Casos diarios por region discriminados
gBarras <- gBarras + facet_grid(WHO_region~.)
gBarras
##Algunos paises de Latinoamerica ### Colombia
colombia <- subset(Data_Covid19, Data_Covid19$Country_code == 'CO')
gBarras <- ggplot(colombia, aes(ï..Date_reported, New_cases, group=Country_code))
gBarras <- gBarras + geom_density(stat='identity')
gBarras <- gBarras + labs (title= "Casos nuevos de Codiv en Colombia", x="Dia", 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
BrazilColombia <- subset(Data_Covid19, Data_Covid19$Country_code == 'BR'| Data_Covid19$Country_code == 'CO')
gBarras <- ggplot(BrazilColombia, aes(ï..Date_reported, New_cases, group=Country_code, color=Country_code))
gBarras <- gBarras + geom_line()
gBarras <- gBarras + labs (title= "Casos nuevos de Codiv en Brazil vs Colombia", x="Dia", 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
latAmerica <- subset(Data_Covid19, Data_Covid19$WHO_region == 'AMRO')
gBarras <- ggplot(latAmerica, aes(New_cases, group=Country_code))
gBarras <- gBarras + geom_boxplot()
gBarras <- gBarras + labs (title= "Casos nuevos de Codiv en LATAM")
gBarras