[R-es] Agrupar por suma y cuenta con dplyr

[juan manuel dias]

Hola Carlos!

Funciona perfecto, muchas gracias.

Solo cambié una cosa.

Corriendo tal cual lo pasaste, el resultado es el siguiente:

[image: image.png]

Pero sacando IDPACIENTE del group by:

transferencias<-becas_modalidades %>%
group_by(PROVINCIA,Modalidad) %>% *---saco IDPACIENTE del group by*
summarize(dinero = sum(PRELIQUIDACION),
cuenta= n()) %>%
arrange(desc(cuenta))

El resultado queda así, que es como lo necesito.

[image: image.png]

Muchas gracias nuevamente! Saludos, Juan.

El lun., 20 may. 2019 a las 19:16, Carlos Ortega (<cof using qualityexcellence.es>)
escribió:

> Hola,
>
> Sería de esta forma:
>
> transferencias<-becas_modalidades %>%
>   group_by(PROVINCIA,Modalidad, *IDCLIENTE*) %>%
>   summarize(
>                      dinero = sum(PRELIQUIDACION),
>                      *cuenta= n() *
>                   ) %>%
>   arrange(desc(*cuenta*))
>
>
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>
> El lun., 20 may. 2019 a las 21:53, juan manuel dias (<juamadias using gmail.com>)
> escribió:
>
>> Hola,
>> Tengo un data set con información de transferencias monetarias por
>> paciente
>> provincia y modalidad de atención. Necesito hacer en una misma operación
>> una suma de dinero por provincia y modalidad y a su vez una cuenta de
>> pacientes por provincia y modalidad.
>>
>> Esto funciona bien:
>>
>> transferencias<-becas_modalidades %>%
>> group_by(PROVINCIA,Modalidad) %>%
>> summarize(dinero = sum(PRELIQUIDACION))%>%
>> arrange(desc(dinero))
>>
>> Pero esto no:
>>
>> transferencias<-becas_modalidades %>%
>>   group_by(PROVINCIA,Modalidad) %>%
>>   summarize(dinero = sum(PRELIQUIDACION),(cuenta=count(IDPACIENTE)))%>%
>>   arrange(desc(dinero))
>>
>> str(becas_modalidades)
>>
>> $ IDPACIENTE    : int
>>  $ IDINSTITUCION : int
>>  $ BECAUTILIZADA : int
>>  $ PRELIQUIDACION: int  ...
>>  $ ANO           : int
>>  $ MES           : int
>>  $ NOMBRE        : Factor w/ 87 levels
>>  $ PROVINCIA     : Factor w/15  levels
>>  $ localidad     : Factor w/ 63  levels
>>  $ municipio     : Factor w/ 43  levels
>>  $ Año           : int
>>  $ Modalidad     : Factor w/ 7 levels
>>
>> Muchas gracias!
>>
>>         [[alternative HTML version deleted]]
>>
>> _______________________________________________
>> R-help-es mailing list
>> R-help-es using r-project.org
>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>
>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>

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

------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: image.png
Type: image/png
Size: 18008 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20190521/969df3c6/attachment-0002.png>

------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: image.png
Type: image/png
Size: 15629 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20190521/969df3c6/attachment-0003.png>