R 中的调查数据：未选择的响应频率

Question

我想知道在 R 中清理调查数据时是否有人可以解决以下问题。

假设一项调查有 Q1“你的性别是什么”：男性、女性、不想说。调查中没有人选择“Prefer not to say”，所以我跑频率的时候只看到：

Q1 男：8，女：8。

有没有办法将“不想说”中的代码写入 Q1，这样当我运行频率时，我会看到：

Q1 Male : 8, Female: 8, Prefer not to say: 0.

---

这是一些示例数据和代码：

 dat_in<-read_table2("ID    Gender
1   1
2   1
3   1
4   1
5   1
6   2
7   2
8   2
9   2
10  2
11  2
12  2
13  1
14  2
15  1
16  2
")
    
data_cat <- dat_in %>% mutate_if(is.numeric,as.character) %>% mutate(across(matches("Gender"), ~fct_recode(., "Female" = "1","Male"="2")))

lapply(select_if(data_cat, is.factor),
       function(x) {
           df = data.frame(table(x))
           return(df)
       })

Answer 1

将其更改为factor，并指定levels，这样即使没有元素，它也会返回频率计数为0

table(factor(dat_in$Gender, levels = c("Male", "Female", "Prefer not to say")))

-输出

              Male            Female Prefer not to say 
                8                 8                 0 

---

如果有很多变量，即字符/因子类，循环列，添加“不想说”作为新级别

i1 <- sapply(dat_in, function(x) is.character(x)|is.factor(x))
dat_in[i1] <- lapply(dat_in[i1], function(x) {
             if(is.factor(x)) {
               levels(x) <- c(levels(x), "Prefer not to say")
              } else {
                x <- factor(x, levels = c(unique(x), "Prefer not to say"))
            }
           x })

---

或者如果我们使用tidyverse，那么这可以使用来自forcats的fct_expand来完成

library(dplyr)
library(forcats)
dat_in <- dat_in %>%
           mutate(across(where(~ is.factor(.)|is.character(.)), ~ 
               fct_expand(., "Prefer not to say")))