用R中的求和值替换列

给定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