多变量R-evalue

我有一系列变量（来自一项调查）的值（1,2,5,6）。我想将一组特定变量的值从5改为3，将6改为4。在这个例子中，我只包含了我感兴趣改变的变量Q11_1:Q11_13。还有大约100个其他变量我没有包括在示例中

survey<- read_table2("Q11_1 Q11_2   Q11_3   Q11_4   Q11_5   Q11_6   Q11_7   Q11_8   Q11_9   Q11_10  Q11_11  Q11_12  Q11_13
2   5   5   2   5   5   5   5   2   5   5   2   2
1   1   1   2   2   5   5   5   1   2   2   2   1
6   5   6   6   6   6   5   6   5   6   6   6   6
6   6   6   6   6   6   6   6   6   6   6   6   6
5   6   6   6   6   6   6   6   6   6   6   6   5
6   6   6   6   6   6   6   6   5   5   6   6   5
")

---

survey这里有一个与列名“Q11”匹配的解决方案

库（tidyverse）
调查百分比
突变（跨越（包含（“Q11”），.fns=~case_时（.x==5~3），
.x==6~4，
真~.x）））
#>#tibble:6 x 13
#>Q11_1 Q11_2 Q11_3 Q11_4 Q11_5 Q11_6 Q11_7 Q11_8 Q11_9 Q11_10 Q11_11 Q11_12
#>                 
#> 1     2     3     3     2     3     3     3     3     2      3      3      2
#> 2     1     1     1     2     2     3     3     3     1      2      2      2
#> 3     4     3     4     4     4     4     3     4     3      4      4      4
#> 4     4     4     4     4     4     4     4     4     4      4      4      4
#> 5     3     4     4     4     4     4     4     4     4      4      4      4
#> 6     4     4     4     4     4     4     4     4     3      3      4      4
#> # ... 还有1个变量：Q11_13

在2020-06-18由（v0.3.0）
创建，当我运行此代码时，它不会显示与您看到的相同的结果。那6个和5个仍然是。。。你知道为什么会发生这种情况吗？你有dplyr 1.0.0吗？嘿，有没有办法把它限制在特定的组中，例如，我只想在条件=1时重新评估这些列。我尝试过调整你的代码，但没有运气。没问题，你只需要使用where更改条件，你想将其作为另一个问题发布并标记我吗？谢谢
survey$Q11_1 <- revalue(survey$Q11_1, c('5'='3','6'='4'))
survey$Q11_2 <- revalue(survey$Q11_2, c('5'='3','6'='4'))
survey$Q11_3 <- revalue(survey$Q11_3, c('5'='3','6'='4'))
survey$Q11_4 <- revalue(survey$Q11_4, c('5'='3','6'='4'))
survey$Q11_5 <- revalue(survey$Q11_5, c('5'='3','6'='4'))
survey$Q11_6 <- revalue(survey$Q11_6, c('5'='3','6'='4'))
survey$Q11_7 <- revalue(survey$Q11_7, c('5'='3','6'='4'))
survey$Q11_8 <- revalue(survey$Q11_8, c('5'='3','6'='4'))
survey$Q11_9 <- revalue(survey$Q11_9, c('5'='3','6'='4'))
survey$Q11_10 <- revalue(survey$Q11_10, c('5'='3','6'='4'))
survey$Q11_11 <- revalue(survey$Q11_11, c('5'='3','6'='4'))
survey$Q11_12 <- revalue(survey$Q11_12, c('5'='3','6'='4'))
survey$Q11_13 <- revalue(survey$Q11_13, c('5'='3','6'='4'))