Estadísticas descriptivas

Casos confirmados por día en el mundo

Distribución mundial de casos a partir del 6 de enero de 2020. Datos de la Organizacion Mundial de la Salud

Muertes confirmadas por semana en el mundo

Nuevos casos Americas

Mayores países de la región

Comparación últimas 8 semanas en América

Coordenadas paralelas

## Registered S3 method overwritten by 'GGally':
##   method from   
##   +.gg   ggplot2

Gráfica de tendencia sobre gráfica de barras

La gráfica de la curva de tendencia usando la function geom_smooth() necesita que los datos del eje X sean parte de una secuencia continua. Es decir que la variable usada para el eje X no puede ser una variable categoria o factor. En nuestro caso, al aplicar la function as.Date() a la columna de fechas, esta se covierte en una secuencia que podemos usar para graficar la curva con geom_smooth(). Naturalmente, los datos del eje Y deben numéricos, pero a diferencia de las gráficas anteriores, en este caso necesitamos hacer una operación con rowsum() para tener columnas con la sumatoria de todos los paises por cada una de las fechas.

# Obtengo sumatoria de variables por factor
dataNew <-rowsum(data[,5:8],group = data$Date_reported)

# conservo la columna Date_reported
dataNew$Date_reported<-row.names(dataNew)

# Transformo los datos a fechas
dataNew$Date_reported<-as.Date(dataNew$Date_reported)

grafica <- ggplot(dataNew, aes(Date_reported, New_deaths))
grafica <- grafica + geom_bar(stat = "identity")
grafica <- grafica + geom_smooth(method = "loess")
grafica <- grafica + theme(axis.text.x = element_text(angle=90, size=6))
grafica <- grafica + labs(y= "Nuevas muertes", x="Fecha", title= "Nuevas muertes Covid 19 Global")
grafica
## `geom_smooth()` using formula 'y ~ x'