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 en
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 en
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 en 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>