3

Tengo una tabla que va de la siguiente forma

dx<-data.frame("clinica"<-as.factor(c("A","A","A","A","A","A","A","A","B","B","B","B","B","B","B","B")),
"Diabetes"<-c(0,1,0,1,1,1,0,0,1,1,1,1,1,0,0,1),
"Hipertension"<-c(1,1,1,0,1,0,0,0,1,1,1,1,1,0,1,0))

Necesito calcular el total de casos con diabetes y hipertensión para cada clinica y el porcentaje por clinica. Lo he intentado de la siguiente forma

 

    df5<-df %>%
      group_by(clinica)%>%
      summarize(Diabetes=sum(Diabetes), Hipertension=sum(Hipertension))
    
    df_5<-df5 %>% 
      pivot_longer(c("Diabetes","Hipertension"), names_to = "Comorbilidades", values_to = "valor")
      
    df_5<-df_5 %>% 
      group_by(sede_dx)%>%
      mutate(per=paste0(round(valor/sum(valor)*100, 2), "%")) %>% 
           ungroup

El problema es que calcula el porcentaje de la suma de las dos enfermedades y no del total de casos, y como una persona puede tener las dos enfermedades, pues me da un resultado erróneo, les agradezco mucho la ayuda

1

1 respuesta 1

0

Entiendo que lo que buscas es algo así:

df %>%
  group_by(clinica)%>%
  summarize(Diabetes=sum(Diabetes)/n()*100, 
            Hipertension=sum(Hipertension)/n()*100) %>% 
  pivot_longer(c("Diabetes","Hipertension"), names_to = "Comorbilidades", values_to = "valor")

# A tibble: 4 x 3
  clinica Comorbilidades valor
  <fct>   <chr>          <dbl>
1 A       Diabetes          50
2 A       Hipertension      50
3 B       Diabetes          75
4 B       Hipertension      75

Al agrupar por clinica podemos obtener el total de casos del grupo mediante n(), con lo que ya es fácil llegar al porcentaje de la enfermedad por cantidad de casos.

1
  • Siiii, muchas gracias, ven pero y si necesito que me de tanto el porcentaje como el numero?
    – ErikaC
    el 30 ene. 2021 a las 15:25

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.