# Para el ejemplo usaremos los datos precargados (datosabiertos) pero tu puedes
# correr el ejemplo descargando informacion mas reciente.
datos_covid <- datosabiertos
# Casos a nivel nacional por estado por tipo de prueba
datos_covid <- datos_covid |> positividad()
head(datos_covid$positividad)
# \donttest{
# Total nacional sumando todas las pruebas del pais
datos_covid <- datos_covid |>
positividad(group_by_entidad = FALSE, list_name = "positividad_nacional")
head(datos_covid$positividad_nacional)
# Positivos en Baja California y Baja California Sur
datos_covid <- datos_covid |>
positividad(
entidades = c("BAJA CALIFORNIA", "BAJA CALIFORNIA SUR"),
list_name = "positividad_californiana"
)
head(datos_covid$positividad_californiana)
# Agrupando ambas pruebas en una sola positividad global
datos_covid <- datos_covid |>
positividad(
entidades = c("BAJA CALIFORNIA", "BAJA CALIFORNIA SUR"),
group_by_tipo_prueba = FALSE,
list_name = "positividad_californiana_2"
)
head(datos_covid$positividad_californiana_2)
# Regresa la suma de ambos estados pero dividiendo por tipo de paciente
datos_covid <- datos_covid |>
positividad(
entidades = c("BAJA CALIFORNIA", "BAJA CALIFORNIA SUR"),
group_by_entidad = FALSE,
tipo_paciente = c("AMBULATORIO", "HOSPITALIZADO"),
group_by_tipo_paciente = TRUE,
list_name = "positividad_paciente"
)
head(datos_covid$positividad_paciente)
# Si deseas agrupar por una variable que no este en las opciones va en .grouping_vars
datos_covid <- datos_covid |>
positividad(
tipo_sector = "IMSS",
.grouping_vars = c("SEXO"),
list_name = "positividad_imss_sexo"
)
head(datos_covid$positividad_imss_sexo)
# }
# Una vez hayas concluido tu trabajo no olvides desconectar
datos_covid$disconnect()
Run the code above in your browser using DataLab