Titulo

data <- read.csv("~/WorkspaceR/COVID19/WHO-COVID-19-global-data.csv")

Casos confirmados Global

La siguiente grafica incluye los datos de la Organizacion Mundial de la Salud

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

Muertes global

library(ggplot2)
# creo el objeto ggplot
grafica <- ggplot(data, aes(ï..Date_reported, data$New_deaths))
grafica <- grafica + geom_bar(stat="identity")
grafica <- grafica + theme(axis.text.x = element_text(angle = 90, size = 6))
grafica <- grafica + labs(y= "Nuevas muertes", x="Fecha", title="Covid 19 Global")
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 + theme(axis.text.x = element_text(angle = 90, size = 6))
grafica <- grafica + labs(y= "Nuevos casos", x="Fecha", title="Covid 19 Global")
grafica <- grafica + facet_grid(WHO_region~.)
grafica

Nuevos casos Americas

library(ggplot2)
america <- subset(data, data$WHO_region=="AMRO")
# creo el objeto ggplot
grafica <- ggplot(america, aes(ï..Date_reported, america$New_cases))
grafica <- grafica + geom_bar(stat="identity")
grafica <- grafica + theme(axis.text.x = element_text(angle = 90, size = 6))
grafica <- grafica + labs(y= "Nuevos casos", x="Fecha", title="Covid 19 America")
grafica

Brazil

library(ggplot2)
brazil <- subset(data, data$Country=="Brazil")
# creo el objeto ggplot
grafica <- ggplot(brazil, aes(ï..Date_reported, brazil$New_cases, group=Country))
grafica <- grafica + geom_line()
grafica <- grafica + geom_smooth()
grafica <- grafica + theme(axis.text.x = element_text(angle = 90, size = 6))
grafica <- grafica + labs(y= "Nuevos casos", x="Fecha", title="Covid 19 Brazil")
grafica
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

Colombia

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

Conclusiones

En este reporte vemos que Brazil y Europa tienen datos alarmantes…