Dear All, I have data some thing like this:
State Jan Feb Mar Apr May Jun AAA 1 1 0 2 2 0 BBB 1298 1195 1212 1244 1158 845 CCC 0 0 0 1 2 1 DDD 5 11 17 15 10 9 EEE 18 28 27 23 23 16 FFF 68 152 184 135 111 86 I want to sum all the column(Jan, Feb, Mar ...) and have to merge the total at last row. like this: StateJanFebMarAprMayJunAAA110220BBB12981195121212441158845CCC 000121DDD51117 15109EEE182827232316FFF6815218413511186Total 1390 1387 1440 1420 1306 957 I am doing some thing like this, but I don't know how to merge "Total" to "data" Or I don't know there may be a alternative way. > data <- read.csv(file='ipsample.csv',sep=',' , header=TRUE) > data State Jan Feb Mar Apr May Jun 1 AAA 1 1 0 2 2 0 2 BBB 1298 1195 1212 1244 1158 845 3 CCC 0 0 0 1 2 1 4 DDD 5 11 17 15 10 9 5 EEE 18 28 27 23 23 16 6 FFF 68 152 184 135 111 86 > attributes(data) $names [1] "State" "Jan" "Feb" "Mar" "Apr" "May" "Jun" $class [1] "data.frame" $row.names [1] 1 2 3 4 5 6 > x <- data[,2:ncol(data)] > x Jan Feb Mar Apr May Jun 1 1 1 0 2 2 0 2 1298 1195 1212 1244 1158 845 3 0 0 0 1 2 1 4 5 11 17 15 10 9 5 18 28 27 23 23 16 6 68 152 184 135 111 86 > Total <- sapply(x,sum,na.rm=T) > Total Jan Feb Mar Apr May Jun 1390 1387 1440 1420 1306 957 I hope there may be alternative way. Any help will be appreciated. Thanks & Rg Mohan L [[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.