删除了不满足向量中所有值的行

Question

我正在尝试清理一个数据集，其中一些参与者回答了所有调查问卷，而有些参与者没有回答。我正在尝试根据每位参与者的“ quest_id”列（调查表ID）是否与该实验的调查表ID模式的向量相匹配来对此数据集进行过滤。

到目前为止，我已经尝试了以下方法：

questionnaire_ids <- c(15,16,18,14,10,7,11,12,13)
n_times <- c(1,1,8,7,13, 9, 15, 6, 8)
quest_responses <- rep(questionnaire_ids, n_times)

questionnaire_data <- test_data %>%
  select(user_id, user_status, quest_id, q_name, dv) %>%
  filter(user_status == "registered") %>%
  unique() %>%
  group_by(user_id) %>%
  filter(quest_id %in% quest_responses)

但是，我不断收到错误消息：更长的对象长度不是较短的对象长度的倍数。

任何建议（尤其是使用dplyr / tidyverse）都非常受欢迎。