Sin categoría

Covid19

Publicada en

Este documento es un ejercicio de análisis de datos usand R. No pretende ser una fuente de información ni un análisis de la situación actual.

Se incluye el código fuente para su uso con las reservas pertinentes.

Fuente de datos sobre el Covi19: https://ourworldindata.org/https://ourworldindata.org/






df = read_csv("https://covid.ourworldindata.org/data/ecdc/full_data.csv")
## Parsed with column specification:
## cols(
##   date = col_date(format = ""),
##   location = col_character(),
##   new_cases = col_double(),
##   new_deaths = col_double(),
##   total_cases = col_double(),
##   total_deaths = col_double()
## )
df = df %>% rename(Pais = location) %>% rename(AcumuladoCasos = total_cases) %>% rename(AcumuladoMuertes = total_deaths) %>% rename(Casos = new_cases) %>% rename(Muertes = new_deaths)

df <- df %>%
filter(Pais %in% c("Mexico", "Brazil", "China", "Italy", "Spain", "United States")) %>%
filter(AcumuladoCasos>0)
fecha <- max(df$date)
df1 <- df %>%
  dplyr::group_by(Pais) %>%
  dplyr::summarise(Casos = sum(Casos), Decesos=sum(Muertes))
paste("Fecha de corte ", fecha,  sep = "")
## [1] "Fecha de corte 2020-03-28"
kable(df1) %>%
  kable_styling(bootstrap_options = "striped", full_width = F)%>%
  add_header_above(c("Casos de Covid19 reportados" = 3))
Casos de Covid19 reportados
Pais Casos Decesos
Brazil 3417 92
China 82213 3301
Italy 86498 9136
Mexico 717 12
Spain 64059 4858
United States 104686 1707
df2 <- df %>%
filter(Pais %in% c("Mexico"))

qplot(date,Casos,data=df, color = as.factor(Pais), geom=c("point", "line"), 
  main = "Casos confirmados nuevos",
  xlab = "Fecha",
  ylab = "Casos")

qplot(date,AcumuladoCasos,data=df, color = as.factor(Pais), geom=c("point", "line"), 
  facets = .~ Pais,
  main = "Casos confirmados totales",
  xlab = "Fecha",
  ylab = "Casos")

qplot(factor(Pais), AcumuladoCasos , data = df, 
      geom = "violin", stackdir = "center", binaxis = "y",
      color = factor(Pais), fill = factor(Pais),
      main = "Casos totales",
      xlab = "Fecha",
      ylab = "Casos confirmados totales")
## Warning: Ignoring unknown parameters: stackdir, binaxis