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