在R数据框中将一行中所有项目的平方添加为一行

Question

我有一个如下所示的数据框，其中通常包含3行或n行。我想添加第4行或第n + 1行，其中包含该列所有项目的平方和。

x<-data.frame("a" = c(2,3,4),"b" =c(3,4,5))
> x
  a b
1 2 3
2 3 4
3 4 5

在上面的示例中，第4行应分别包含29和50的值。

Answer 1

一个选项是

library(dplyr)
x %>% 
   summarise_all(~ sum(.^2)) %>%
   bind_rows(x, .)
#.  a  b
#1  2  3
#2  3  4
#3  4  5
#4 29 50

---

或者在base R

中

rbind(x, colSums(x^2))