R help - Jul 2016 - dplyr : row total for all groups in dplyr summarise

Hello,
How can I aggregate row total for all groups in dplyr summarise ?
library(dplyr)
mtcars %>%
   group_by (am, gear) %>%
   summarise (n=n()) %>%
   mutate(rel.freq = paste0(round(100 * n/sum(n), 0), "%"))

best regard
Maicel Monzon



----------------------------------------------------------------




--
Este mensaje le ha llegado mediante el servicio de correo electronico que ofrece
Infomed para respaldar el cumplimiento de las misiones del Sistema Nacional de
Salud. La persona que envia este correo asume el compromiso de usar el servicio
a tales fines y cumplir con las regulaciones establecidas

Infomed: http://www.sld.cu/

> On Jul 4, 2016, at 6:56 AM, maicel at infomed.sld.cu wrote:
> 
> Hello,
> How can I aggregate row total for all groups in dplyr summarise ?
Row total ? of what? Aggregate ? how? What is the desired answer?


> library(dplyr)
> mtcars %>%
>  group_by (am, gear) %>%
>  summarise (n=n()) %>%
>  mutate(rel.freq = paste0(round(100 * n/sum(n), 0), "%"))
> 
> best regard
> Maicel Monzon
> 
> 
> 
> ----------------------------------------------------------------
> 
> 
> 
> 
> --
> Este mensaje le ha llegado mediante el servicio de correo electronico que
ofrece Infomed para respaldar el cumplimiento de las misiones del Sistema
Nacional de Salud. La persona que envia este correo asume el compromiso de usar
el servicio a tales fines y cumplir con las regulaciones establecidas
> 
> Infomed: http://www.sld.cu/
> 
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.

If you want the total number of rows in the original data.frame after
counting the rows in each group, you can ungroup and sum the row counts,
like:

library("dplyr")


mtcars %>%
   group_by (am, gear) %>%
   summarise (n=n()) %>%
   mutate(rel.freq = paste0(round(100 * n/sum(n), 0), "%")) %>%
   ungroup() %>%
   mutate(row.tot = sum(n))

HTH
Ulrik

On Mon, 4 Jul 2016 at 18:23 David Winsemius <dwinsemius at comcast.net>
wrote:
>
> > On Jul 4, 2016, at 6:56 AM, maicel at infomed.sld.cu wrote:
> >
> > Hello,
> > How can I aggregate row total for all groups in dplyr summarise ?
>
> Row total ? of what? Aggregate ? how? What is the desired answer?
>
>
>
> > library(dplyr)
> > mtcars %>%
> >  group_by (am, gear) %>%
> >  summarise (n=n()) %>%
> >  mutate(rel.freq = paste0(round(100 * n/sum(n), 0), "%"))
> >
> > best regard
> > Maicel Monzon
> >
> >
> >
> > ----------------------------------------------------------------
> >
> >
> >
> >
> > --
> > Este mensaje le ha llegado mediante el servicio de correo electronico
> que ofrece Infomed para respaldar el cumplimiento de las misiones del
> Sistema Nacional de Salud. La persona que envia este correo asume el
> compromiso de usar el servicio a tales fines y cumplir con las regulaciones
> establecidas
> >
> > Infomed: http://www.sld.cu/
> >
> > ______________________________________________
> > R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> > https://stat.ethz.ch/mailman/listinfo/r-help
> > PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> > and provide commented, minimal, self-contained, reproducible code.
>
> ______________________________________________
> R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
	[[alternative HTML version deleted]]