如何在选择的列中计算 str_detect()？

Question

我有一个这样的数据库：

tibble(Q1 = c("0","A"),
       Q2 = c("A","A"),
       Q3 = c("0","A"),
       C1 = c("A","0")
) -> DB

我的目标是添加一个新列，该列是当列以"Q" 开头时在行中检测到多少"0" 的计数。

在这种情况下，此列就像

DB %>%
mutate(S = c(2,0))

Answer 1

DB %>%
  rowwise() %>%
  mutate(S = sum(c_across(starts_with("Q")) == "0")) %>%
  ungroup()
# # A tibble: 2 x 5
#   Q1    Q2    Q3    C1        S
#   <chr> <chr> <chr> <chr> <int>
# 1 0     A     0     A         2
# 2 A     A     A     0         0