[R-es] cálculo porcentajes por categorías para total casos por año.

[juan manuel dias]

Hola Estimados/as

Estoy necesitando calcular los porcentajes para cada categoría de la
variable "tipo de prestación" sobre el total de casos de todas las
categorías para cada año (anio).

Con este código que pego abajo puedo hacer los porcentajes de cada
categoría pero sobre el total de todos los casos.

base_ancha<-suaci_reclamos %>%
  group_by(anio,TIPO_PRESTACION) %>%
  dplyr::summarise(cantidad_reclamos=sum(n_reclamos)) %>%
 mutate(porcentaje_tpres=round(cantidad_reclamos/sum(cantidad_reclamos)*100,digits=4))
%>%
  ungroup()

Adjunto la base original sobre la que estoy trabajando (suaci_reclamos) y
el resultado al que llego corriendo el código de arriba (base_ancha)...y un
excel donde en la columna "Necesito_esto" figura el cálculo que necesito.

Lo intenté de varias formas pero no logro que quede así!

Muchas gracias!

Saludos, Juan.

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20210805/c53fb13a/attachment.html>

------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: base_ancha.csv
Type: application/vnd.ms-excel
Size: 613 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20210805/c53fb13a/attachment.xlb>

------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: suaci_reclamos.csv
Type: application/vnd.ms-excel
Size: 593 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20210805/c53fb13a/attachment-0001.xlb>

------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: esto_necesito.xlsx
Type: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet
Size: 12368 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20210805/c53fb13a/attachment.xlsx>