将列总和放在矩阵的新行中

Question

I have a data frame that consists of municipality names (factors) in the first column and number of projects (integers) in columns two and three.

Var.1<-c("Andover", "Avon", "Bethany")
Freq.x<-c(2,NA,10)
Freq.y<-c(4,2,9)
Projects<-data.frame(Var.1,as.integer(as.numeric(Freq.y)),as.integer(as.numeric(Freq.x)))

[Note: I am making the second and third columns as integers here because that's how they are categorized in my actual data set.]

I was able to take the row sums of the rows using:

Projects$Sum<-rowSums(Projects[,2:3])

However, I'm unable to figure out how to take the column sums. I tried using the following formula:

Projects[Total,]<-colSums(Projects[2:3,])

I get the error:

Error in colSums(Projects[2:3, ]) : 'x' must be numeric

Even when I convert the second and third columns to as.numeric , I get the same response.

Can someone advise how to obtain the column sums create a new row at the bottom which will house the results?

Answer 1

You can do something like this:

Var.1<-c("Andover", "Avon", "Bethany")
Freq.x<-c(2,NA,10)
Freq.y<-c(4,2,9)
freq <- cbind(Freq.x, Freq.y)
freq <- rbind(freq, colSums(freq, na.rm=TRUE))
Projects <- data.frame(name=c(Var.1, "Total"), freq)

In particular: keep numeric part separate and compute it's sums; add "TOtal" to the character vector before it will be converted to factor, and thereafter make the data.frame