添加作為其他列總和的列

Question

輸入數據：

Director= c("Director A", "Director B", "Director C")
Salary = c(40000, 35000, 50000)
Listed boards = c(1, 0, 3)
Unlisted boards = c(4, 2, 6)
Other boards = c(2, 3, 3)
Number of qualifications = c(1, 2, 1)

df_directors = data.frame(Director, Salary, Listed boards, Unlisted boards, Other boards, Number of qualifications) 

現在我想創建一個額外的列來總結和替換關於板的三列。 所以我的輸出數據應該是這樣的：

Director         Salary         Boards         Number of qualifications
Director A       40000          7              1
Director B       35000          5              2
Director C       50000          12             1

這段代碼不知何故不起作用。

df_directors <- df_directors %>%
  rowwise() %>%
  mutate(rBoards = sum(c_across(all_of(Listed Boards:Other Boards))))

Answer 1

我們可以將rowSums與select一起使用：

library(dplyr)

df_directors %>% 
  transmute(Director, Salary, Boards = rowSums(select(., contains("boards"))),Number_of_qualifications)

第一個解決方案：

library(dplyr)

df_directors %>% 
  mutate(Boards = rowSums(select(., contains("boards")))) %>% 
  select(1,2,Boards,6)

    Director Salary Boards Number_of_qualifications
1 Director A  40000      7                        1
2 Director B  35000      5                        2
3 Director C  50000     12                        1

Answer 2

我們可以使用base R中的rowSums

library(dplyr)
df_directors %>% 
  transmute(Director, Salary, 
   Boards = rowSums(across(ends_with('boards')), na.rm = TRUE),
        `Number of qualifications`)

-輸出

    Director Salary Boards Number of qualifications
1 Director A  40000      7                        1
2 Director B  35000      5                        2
3 Director C  50000     12                        1

---

在OP的代碼中，當列名中有空格時需要反引號

 df_directors %>%
  rowwise() %>%
  mutate(rBoards = sum(c_across(`Listed boards`:`Other boards`))) %>%
   ungroup

-輸出

# A tibble: 3 × 7
  Director   Salary `Listed boards` `Unlisted boards` `Other boards` `Number of qualifications` rBoards
  <chr>       <dbl>           <dbl>             <dbl>          <dbl>                      <dbl>   <dbl>
1 Director A  40000               1                 4              2                          1       7
2 Director B  35000               0                 2              3                          2       5
3 Director C  50000               3                 6              3                          1      12

數據

df_directors <- structure(list(Director = c("Director A", "Director B", "Director C"
), Salary = c(40000, 35000, 50000), `Listed boards` = c(1, 0, 
3), `Unlisted boards` = c(4, 2, 6), `Other boards` = c(2, 3, 
3), `Number of qualifications` = c(1, 2, 1)), 
class = "data.frame", row.names = c(NA, 
-3L))

Answer 3

rowSums和grep用於識別。

cbind(df_directors[1:2], Boards=rowSums(df_directors[grep('boards$', names(df_directors))]), df_directors[ncol(df_directors)])
#     Director Salary Boards Number.of.qualifications
# 1 Director A  40000      7                        1
# 2 Director B  35000      5                        2
# 3 Director C  50000     12                        1

---

數據：

df_directors <- structure(list(Director = c("Director A", "Director B", "Director C"
), Salary = c(40000, 35000, 50000), Listed.boards = c(1, 0, 3
), Unlisted.boards = c(4, 2, 6), Other.boards = c(2, 3, 3), Number.of.qualifications = c(1, 
2, 1)), class = "data.frame", row.names = c(NA, -3L))