toybase_individual_2016_04 %>%
dplyr::group_by(AGLOMERADO) %>%
dplyr::summarise(tasa_actividad = sum(PONDERA[ESTADO == 1]) / sum(PONDERA)) %>%
map_agglomerates(
agglomerates = AGLOMERADO,
indicator = tasa_actividad
)
Run the code above in your browser using DataLab