我想var1:var6仅将列中缺失值少于 2 个的行的列中的缺失值替换为 0 var1:var6。然后我想重新计算总和列（我可以很高兴地rowwise()按照我的代表使用它）。
across()我已经使用, 或rowwise()尝试了一些方法，c_across()但正在努力寻找解决方案。
library(tidyverse)\n\n# Generate data\nset.seed(40)\ndat <- tibble(\n id = 1:6,\n var1 = sample(c(0:4, NA), 6, replace = TRUE),\n var2 = sample(c(0:4, NA), 6, replace = TRUE),\n var3 = sample(c(0:4, NA), 6, replace = TRUE),\n var4 = sample(c(0:4, NA), 6, replace = TRUE),\n var5 = sample(c(0:4, NA), 6, replace = TRUE),\n var6 = sample(c(0:4, NA), 6, replace = TRUE),\n)\n\ndat %>%\n rowwise() %>%\n mutate(sum = …