在 R 中對列中的值求和並按另一列分組

Question

這是我遇到的一個非常基本的問題。 請參閱下面的示例數據。 我正在嘗試創建一個新的df，其中包含每個部門的總和的每個人的姓名下的匯總信息。

我一直在使用 mutate 和 groupby 和聚合函數使用 dplyr package ，但沒有運氣。 有沒有一種簡單的方法可以實現這一目標？ 然后將在相關性 plot 上繪制此任務的結果。

這是一個可重現的示例：

df <- tibble::tribble(
  ~Dept,      ~Mike,   ~Steve,   ~Tom,
  "Dept1",      1,      1,        0,
  "Dept1",      1,      1,        0,
  "Dept1",      0,      0,        1,
  "Dept2",      0,      1,        1,
  "Dept2",      0,      0,        0,
  "Dept2",      0,      1,        1,
  "Dept2",      0,      1,        0
)

預期 output：

result <- tibble::tribble(
  ~Dept,      ~Mike,   ~Steve,   ~Tom,
  "Dept1",      2,      2,        1,
  "Dept2",      1,      2,        2
)

Answer 1

summarise_all是你的朋友。

summarise_all(group_by(df, Dept), sum)
# # A tibble: 2 x 4
#    Dept   Mike Steve   Tom
#   <chr> <dbl> <dbl> <dbl>
# 1 Dept1     2     2     1
# 2 Dept2     0     3     2