我有一系列变量(来自调查),其值分别为(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_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'))
是否有一种方法可以更有效地应用此重估(或其他功能)?我的解决方案似乎不必要地显得笨拙。任何帮助表示赞赏。我希望有一个管道/ dplyr解决方案。
谢谢!!!
答案 0 :(得分:1)
这是与列名“ Q11”匹配的解决方案
library(tidyverse)
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 %>%
mutate(across(contains("Q11"),.fns = ~ case_when(.x == 5 ~ 3,
.x == 6 ~ 4,
TRUE ~ .x)))
#> # A 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
#> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#> 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
#> # ... with 1 more variable: Q11_13 <dbl>
由reprex package(v0.3.0)于2020-06-18创建