Visualización: Contagios de Covid19 en Venezuela #rstats

Informe gráfico de la propagación del virus Covid19 en Venezuela

Iván Leonel Vasquez R.

6/3/2020

Covid19 en Venezuela

El siguiente informe utiliza R, para mostrar el estatus de contagios a la fecha del virus Covid19, los datos utilizados son los presentados oficialmente. Además del carácter informativo de este, principalmente, se trata de mostrar la utilidad de R como herramienta de apoyo en la visualización de los datos. Se muestran los códigos sencillos. El paquete de R, tidyverse que contiene ggplot2 se debe cargar al iniciar. Los datos fueron cargados de un archivo personal.

Una de las paginas utilizadas para obtener los datos, además de excelente información es: http://www.esriven.com/.

covid19venezuela=read.csv("~/datos covid 19 en venezuela oficial28may.csv",header = TRUE)
datos_condias<-covid19venezuela %>%  mutate(n_dias = as.numeric(c(1:79)))
head(datos_condias)

##         fecha casos.contagios.diarios fallecidos recuperados acumulados áctivo
## 1 13 de marzo                       2          0           0          2      2
## 2 14 de marzo                       8          0           0         10     10
## 3 15 de marzo                       7          0           0         17     17
## 4 16 de marzo                      16          0           0         33     33
## 5 17 de marzo                       3          0           0         36     36
## 6 18 de marzo                       0          0           0         36     36
##   suma.C.D.F  X n_dias
## 1          2         1
## 2         10         2
## 3         17         3
## 4         33         4
## 5         36         5
## 6         36 ma      6

Figura 1

A continuación mostramos un diagrama de dispersión, donde representamos el número de casos diarios desde el dia cero hasta la fecha.

## Warning: Removed 2 rows containing missing values (geom_point).

curva de contagio

A continuación se muestra el código para representar mediante una curva los casos de contagios diarios, la curva aparece como el promedio del flujo de los datos

Figura 2

ggplot(data = datos_condias) + 
       geom_smooth(mapping = aes(x = n_dias,
                                 y = casos.contagios.diarios))+
  theme()+
  scale_fill_manual(values = colorspaces)+
  theme(legend.position = "bottom",
        legend.title = element_blank(),
        legend.key.size = unit(5,"mm"),
        panel.grid.major.y = element_line(color = "gray",size = 0.3),
        axis.ticks = element_blank(),axis.text=element_text(color = "black"))+
  #guides(fill(guide_legend(nrow = 2)))+
  ylab("Número de casos diarios")+
  xlab("Número de días")+
  labs(title = "Comportamiento de contagios de COVID-19 en Venezuela",subtitle = "Datos al 28 de Mayo")

## `geom_smooth()` using method = 'loess' and formula 'y ~ x'

## Warning: Removed 2 rows containing non-finite values (stat_smooth).

A la fecha la curva de contagio muestra la forma ascendente bien pronunciada indicando la forma acelerada como están ocurriendo los contagios, notamos que básicamente esta aceleración en los contagios comienza a partir del día 50, los días son contados desde el 13 de marzo que comenzó el registro de los casos.