用R中的Summation值替换列

Question

给出R中的数据框

#   ID x1 x2 x3 x4
# 1  1  1  1  1  1
# 2  1  1  2  3  4
# 3  2  1  5  6  7
# 4  3  1  8  9  2

我想用其总和值

替换列

#   ID x1 x2 x3 x4
# 1  1  4 16 19 14

但是，尝试设置总和会直接用所有值替换所有值：

for (nm in names(df)) {
  df[nm] = sum(df[nm])
}

#   ID x1 x2 x3 x4
# 1  1  4 16 19 14
# 1  2  4 16 19 14
# 1  3  4 16 19 14
# 1  4  4 16 19 14

Answer 1

我相信不再需要ID列。然后简单地

colSums(df[, -1])
# x1 x2 x3 x4 
#  4 16 19 14