Reporte Covid19

Titulo

Subtitulo

Sub-subtitulo

data <- read.csv("../r-course/Icesi/WHO-COVID-19-global-data.csv")

Casos Confirmados Global

library(ggplot2)
# Creo el objeto ggplot
grafica <- ggplot(data, aes(data$ï..Date_reported, data$New_cases))
grafica <- grafica + geom_bar(stat="identity")
grafica <- grafica + labs(x="Fecha", y="Nuevos Casos", title= "Covid 19 Global")
grafica <- grafica + theme(axis.text.x = element_text(angle = 90, size = 6, hjust = 1) )
grafica

Nuevas Muertes

library(ggplot2)
# Creo el objeto ggplot
grafica <- ggplot(data, aes(ï..Date_reported, data$New_deaths))
grafica <- grafica + geom_bar(stat="identity")
grafica <- grafica + labs(x="Fecha", y="Nuevas muertes", title= "Covid 19 Global")
grafica <- grafica + theme(axis.text.x = element_text(angle = 90, size = 6, hjust = 1) )
grafica

Nuevos Casos por Region

library(ggplot2)
# Creo el objeto ggplot
grafica <- ggplot(data, aes(ï..Date_reported, data$New_cases, fill= data$WHO_region))
grafica <- grafica + geom_bar(stat="identity")
grafica <- grafica + labs(x="Fecha", y="Nuevas muertes", title= "Covid 19 America")
grafica <- grafica + theme(axis.text.x = element_text(angle = 90, size = 6, hjust = 1) )
grafica

Brazil

library(ggplot2)
brazil <- subset(data, data$Country=="Brazil")
# Creo el objeto ggplot
grafica <- ggplot(brazil, aes(ï..Date_reported, New_cases, group="Country"))
grafica <- grafica + geom_line()
grafica <- grafica + labs(x="Fecha", y="Nuevos Casos", title= "Covid 19 Brazil")
grafica <- grafica + theme(axis.text.x = element_text(angle = 90, size = 6) )
grafica