Hi,
Can someone help me figure this out.
Dataset: Data
State County Col3 Col4 Col5 Col6....Col(last)
AL........As............1........2......1........5 ....... 10
AL........Bo...........10.....12....13........4 ....... 15
NY.......Ad............2....... 5......6........ 7 ..........12
NY.......Cd............3........4......5.........7 ..........11
CA.......Ya............ 4........2......1........3 ..........9
Need Output as:
State Col3 Col4 Col5 Col6....Col(last)
AL........11.....14......14.....9 ....... 25
NY........5........9.........11....14.......23
CA.......4.......2......... 1......3 .......9
I tried using
Dt_states <- Data %>%
group_by(State, County) %>%
summarise(Data[2:10]) # summarise_each(funs(sum))
I also tried:
dt_states<-as.data.table(unique(data$State))
f <- function(x){
b<-tapply(x,Data$State, sum)
return(as.data.frame(b)) }
for (a in c(3:(length(Data[1,])))) {
z=Data[,a,drop=T]
dt_states[,colnames(Data[a])]<- f(z) }