Seems like you have what you want, unless you meant to show something different than you did show. --------------------------------------------------------------------------- Jeff Newmiller The ..... ..... Go Live... DCN:<jdnew...@dcn.davis.ca.us> Basics: ##.#. ##.#. Live Go... Live: OO#.. Dead: OO#.. Playing Research Engineer (Solar/Batteries O.O#. #.O#. with /Software/Embedded Controllers) .OO#. .OO#. rocks...1k --------------------------------------------------------------------------- Sent from my phone. Please excuse my brevity.
On November 30, 2014 5:45:10 PM PST, "Muhuri, Pradip (SAMHSA/CBHSQ)" <pradip.muh...@samhsa.hhs.gov> wrote: >Hi Boris, > >Sorry for not being explicit when replying to your first email. I >wanted to say it does not work when row-binding. I want the following >output. Thanks, Pradip > > >1 1 3 >2 2 4 >Total 7 > >################### Below is the console ########## >> test <- data.frame(first=c(1,2), second=c(3,4)) >> test > first second >1 1 3 >2 2 4 >> >> sum(test$second) >[1] 7 >> >> rbind(test, sum(test$second)) > first second >1 1 3 >2 2 4 >3 7 7 > >Pradip K. Muhuri, PhD >SAMHSA/CBHSQ >1 Choke Cherry Road, Room 2-1071 >Rockville, MD 20857 >Tel: 240-276-1070 >Fax: 240-276-1260 > >-----Original Message----- >From: Boris Steipe [mailto:boris.ste...@utoronto.ca] >Sent: Sunday, November 30, 2014 5:51 PM >To: Muhuri, Pradip (SAMHSA/CBHSQ) >Cc: r-help@r-project.org >Subject: Re: [R] R dplyr solution vs. Base R solution for the slect >column total > >No it doesn't ... >consider: > >test <- data.frame(first=c(1,2), second=c(3,4)) test > first second >1 1 3 >2 2 4 > >sum(test$second) >[1] 7 > > > > >On Nov 30, 2014, at 3:48 PM, Muhuri, Pradip (SAMHSA/CBHSQ) ><pradip.muh...@samhsa.hhs.gov> wrote: > >> Hi Boris, >> >> That gives me the total for each of the 6 columns of the data frame. >I want the column sum just for the last column. >> >> Thanks, >> >> Pradip Muhuri >> >> >> >> -----Original Message----- >> From: Boris Steipe [mailto:boris.ste...@utoronto.ca] >> Sent: Sunday, November 30, 2014 12:50 PM >> To: Muhuri, Pradip (SAMHSA/CBHSQ) >> Cc: r-help@r-project.org >> Subject: Re: [R] R dplyr solution vs. Base R solution for the slect >> column total >> >> try: >> >> sum(test$count) >> >> >> B. >> >> >> On Nov 30, 2014, at 12:01 PM, Muhuri, Pradip (SAMHSA/CBHSQ) ><pradip.muh...@samhsa.hhs.gov> wrote: >> >>> Hello, >>> >>> I am looking for a dplyr or base R solution for the column total - >JUST FOR THE LAST COLUMN in the example below. The following code >works, giving me the total for each column - This is not exactly what I >want. >>> rbind(test, colSums(test)) >>> >>> I only want the total for the very last column. I am struggling >with >>> this part of the code: rbind(test, c("Total", colSums(test, ...))) I >have searched for a solution on Stack Oveflow. I found some mutate() >code for the cumsum but no luck for the select column total. Is there >a dplyr solution for the select column total? >>> >>> Any hints will be appreciated. >>> >>> Thanks, >>> >>> Pradip Muhuri >>> >>> >>> ####### The following is from the console - the R script with >reproducible example is also appended. >>> >>> >>> mrjflag cocflag inhflag halflag oidflag count >>> 1 0 0 0 0 0 256 >>> 2 0 0 0 1 1 256 >>> 3 0 0 1 0 1 256 >>> 4 0 0 1 1 1 256 >>> 5 0 1 0 0 1 256 >>> 6 0 1 0 1 1 256 >>> 7 0 1 1 0 1 256 >>> 8 0 1 1 1 1 256 >>> 9 1 0 0 0 1 256 >>> 10 1 0 0 1 1 256 >>> 11 1 0 1 0 1 256 >>> 12 1 0 1 1 1 256 >>> 13 1 1 0 0 1 256 >>> 14 1 1 0 1 1 256 >>> 15 1 1 1 0 1 256 >>> 16 1 1 1 1 1 256 >>> 17 8 8 8 8 15 4096 >>> >>> >>> >>> ####################### below is the reproducible example >>> ######################## >>> library(dplyr) >>> # generate data >>> dlist <- rep( list( 0:1 ), 4 ) >>> data <- do.call(expand.grid, drbind) >>> data$id <- 1:nrow(data) >>> names(data) <- c('mrjflag', 'cocflag', 'inhflag', 'halflag') >>> >>> >>> # mutate a column and then sumamrize >>> test <- data %>% >>> mutate(oidflag= ifelse(mrjflag==1 | cocflag==1 | inhflag==1 | >halflag==1, 1, 0)) %>% >>> group_by(mrjflag,cocflag, inhflag, halflag, oidflag) %>% >>> summarise(count=n()) %>% >>> arrange(mrjflag,cocflag, inhflag, halflag, oidflag) >>> >>> >>> # This works, giving me the total for each column - This is not >what I exactly want. >>> rbind(test, colSums(test)) >>> >>> # I only want the total for the very last column rbind(test, >>> c("Total", colSums(test, ...))) >>> >>> Pradip K. Muhuri, PhD >>> SAMHSA/CBHSQ >>> 1 Choke Cherry Road, Room 2-1071 >>> Rockville, MD 20857 >>> Tel: 240-276-1070 >>> Fax: 240-276-1260 >>> >>> >>> [[alternative HTML version deleted]] >>> >>> ______________________________________________ >>> R-help@r-project.org mailing list >>> 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@r-project.org mailing list >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@r-project.org mailing list 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.