我有一堆调查数据，例如：我有一些调查数据，这是关于受访者处理各种日常事务的频率：
survey <- tribble(
~Q1_toothbrush, ~Q1_bathe, ~Q1_brush_hair, ~Q1_make_bed,
"Always","Sometimes","Often","Never",
"Never","Never","Always","Sometimes",
"Often","Sometimes","Sometimes","Often",
"Sometimes","Always","Often","Never"
)
我想将其安排到一个表中，该表显示有多少人选择了“经常”或“总是”。
我可以创建一个新的小标题并对其进行更新，例如一次处理每个问题。
habits <- tribble(
~Habit, ~Description, ~Count,
"Q1_toothbrush", "Brushes teeth for two minutes twice each daty.", 0,
"Q1_bathe", "Bathes with soap and water every morning or evening", 0,
"Q1_hair", "Attends to daily hair health", 0,
"Q1_make_bed", "Tidies bed covers daily", 0
)
top_two <- c("Always", "Often")
tmp <- survey %>%
filter(Q1_toothbrush %in% top_two) %>%
count()
habits <- habits %>%
mutate(Count = ifelse(Habit == "Q1_toothbrush", tmp, Count))
kable(habits)
但是我正在努力将其整合为一个功能。
如果我们需要为每一行执行此操作，请c_across在执行后选择一个选项rowwise
library(dplyr) # >= 1.0.0
survey %>%
rowwise %>%
mutate(count = sum(c_across(everything()) %in% top_two)) %>%
ungroup
或者我们可以将其重塑为“长”格式，然后执行 count
library(dplyr)
library(tidyr)
pivot_longer(survey, everything()) %>%
filter(value %in% top_two) %>%
dplyr::count(name)
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句