Visualización de Datos Covid-19

#Importar el Dataset
DailyGlobalData <- read.csv("~/Archivos R/Covid/WHO-COVID-19-global-data.csv", stringsAsFactors=TRUE)

DailyGlobalData$Date_reported <- as.Date(DailyGlobalData$Date_reported)

#str(DailyGlobalData)

library(ggplot2)
library(ggThemeAssist)

#Casos diarios 
grafica <- ggplot(DailyGlobalData)
grafica <- grafica + aes(x=DailyGlobalData$Date_reported, y=DailyGlobalData$New_cases)
grafica <- grafica + geom_col()
grafica <- grafica + labs(title = "Covid 19 Reporte Global Junio 2022", x ="Fecha", y ="Nuevos casos", caption = "Datos tomados de la Organizacion Mundial de la Salud", Subtitle="Nuevos Casos de Contagio")
grafica <- grafica + scale_x_date(date_breaks = "16 weeks")
grafica

#Muertes diarias
grafica <- ggplot(DailyGlobalData)
grafica <- grafica + aes(x=DailyGlobalData$Date_reported, y=DailyGlobalData$New_deaths)
grafica <- grafica + geom_col()
grafica <- grafica + labs(title = "Covid 19 Reporte Global Junio 2022", x ="Fecha", y ="Nuevas muertes", caption = "Datos tomados de la Organizacion Mundial de la Salud", Subtitle="Nuevas muertes diarias")
grafica <- grafica + scale_x_date(date_breaks = "16 weeks")
grafica

#Casos diarios por zonas
grafica <- ggplot(DailyGlobalData)
grafica <- grafica + aes(x=DailyGlobalData$Date_reported, y=DailyGlobalData$New_cases, fill=WHO_region)
grafica <- grafica + geom_col()
grafica <- grafica + labs(title = "Covid 19 Reporte Global Junio 2022", x ="Fecha", y ="Nuevos casos", caption = "Datos tomados de la Organizacion Mundial de la Salud", Subtitle="Nuevos Casos de Contagio")
grafica <- grafica + scale_x_date(date_breaks = "16 weeks")
grafica

#Casos diarios discriminados por zona
grafica <- ggplot(DailyGlobalData)
grafica <- grafica + aes(x=DailyGlobalData$Date_reported, y=DailyGlobalData$New_cases, fill=WHO_region)
grafica <- grafica + geom_col()
grafica <- grafica + labs(title = "Covid 19 Reporte Global Junio 2022", x ="Fecha", y ="Nuevos casos", caption = "Datos tomados de la Organizacion Mundial de la Salud", Subtitle="Nuevos Casos de Contagio")
grafica <- grafica + scale_x_date(date_breaks = "16 weeks")
grafica <- grafica + facet_wrap(DailyGlobalData$WHO_region)
grafica <- grafica + theme(axis.text.x = element_text(angle = 90, size=7))
grafica

#Empleamos el segundo Dataset "Global Table Data"

GlobalTableData <- read.csv("~/Archivos R/Covid/WHO-COVID-19-global-table-data.csv", stringsAsFactors=TRUE)

#str(GlobalTableData)

library(dplyr)

#Grafica de Barras

regiones <- GlobalTableData %>% group_by(Name) %>% summarize(Total =sum(WHO.Region))
regiones <- regiones[-1,]
grafica <- ggplot(regiones) + aes(y= reorder(Name,Total), x=Total, fill=Name) + geom_col() + labs(title = "Regiones Covid")
grafica

#Casos Diarios filtrando por Pais Bulgaria
bulgaria <- filter(DailyGlobalData, Country=='Bulgaria')
grafica <- ggplot(bulgaria)
grafica <- grafica + aes(x=bulgaria$Date_reported, y=bulgaria$New_cases)
grafica <- grafica + geom_col(aes(alpha=0.03))
grafica <- grafica + geom_smooth(span=0.02)
grafica <- grafica + labs(title = "Covid 19 Reporte Bulgaria Junio 2022", x ="Fecha", y ="Nuevos casos", caption = "Datos tomados de la Organizacion Mundial de la Salud", Subtitle="Nuevos Casos de Contagio")
grafica <- grafica + scale_x_date(date_breaks = "16 weeks")
grafica