[R] count and sum simultaneously in R pivot table

[arun]

Hi,
Check if this works:

library(reshape2)
res1 <- acast(FLSAdata_melt, ViolationDesc + ReasonDesc ~ variable, sum, margins=TRUE)[,-4] 
res2 <- within(as.data.frame(res1),`Count of Case ID` <- dcast(FLSAdata_melt, ViolationDesc + ReasonDesc ~ variable, length, margins=TRUE)[,3])[,c(4,1:3)]
colnames(res2)[2:4] <- paste("Sum of",colnames(res2)[2:4])
rownames(res2)[length(rownames(res2))] <- "Grand Total"
indx <- grepl("all",rownames(res2))
ord1 <- unlist(tapply(seq_len(nrow(res2)),list(cumsum(c(TRUE,diff(indx)<0))),FUN=function(x) c(tail(x,1),head(x,-1)) ),use.names=FALSE)
res3 <- res2[ord1,]
rownames(res3) <- gsub("\\_\\(all\\)","",rownames(res3))

A.K.


On Thursday, February 6, 2014 4:46 PM, bcrombie <bcrombie at utk.edu> wrote:
Based on the following code, how can I add a column to this pivot table
output that will count CaseID's for each variable sum?  CaseID is a factor.

# library(reshape)
# FLSA_Violation_Reason_melt <- melt(FLSA_ViolRsnfixed, 
#                                    id=c("CaseID", "ViolationDesc",
"ReasonDesc"),
#                                    measure=c("BW_Due", "BW_ATP",
"EEs_Rep"))
# 
# FLSA_Violation_Reason_cast <- cast(FLSA_Violation_Reason_melt, 
#                                    ViolationDesc + ReasonDesc ~ variable,
#                                    sum, margins=TRUE)

Thank you.



--
View this message in context: http://r.789695.n4.nabble.com/count-and-sum-simultaneously-in-R-pivot-table-tp4684896.html
Sent from the R help mailing list archive at Nabble.com.

______________________________________________
R-help at 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.