Question

我有一个带有一些变量的数据框以反转代码。我有一个单独的向量，其中包含所有要反转代码的变量。我想使用mutate_at（）或其他一些整洁的方式，以一行代码将它们全部反向编码。这是数据集和要反转的项的向量

library(tidyverse)
mock_data <- tibble(id = 1:5,
       item_1 = c(1, 5, 3, 5, 5),
       item_2 = c(4, 4, 4, 1, 1),
       item_3 = c(5, 5, 5, 5, 1))

reverse <- c("item_2", "item_3")

这就是我想要的样子，仅将项目2和3反向编码：

library(tidyverse)

solution <- tibble(id = 1:5,
                   item_1 = c(1, 5, 3, 5, 5),
                   item_2 = c(2, 2, 2, 5, 5),
                   item_3 = c(1, 1, 1, 1, 5))

我已经尝试过以下代码。我知道该重新编码是正确的，因为我已将其用于其他数据集，但是我知道％in％运算符有些问题。

library(tidyverse)
mock_data %>%
  mutate_at(vars(. %in% reverse), ~(recode(., "1=5; 2=4; 3=3; 4=2; 5=1")))

Error: `. %in% reverse` must evaluate to column positions or names, not a logical vector

任何帮助将不胜感激！

Answer 1

您可以直接将reverse给予mutate_at，而无需vars(. %in% reverse)。而且我会将反转简化为6减去当前值。

mock_data %>% mutate_at(reverse, ~6 - .)
# # A tibble: 5 x 4
#      id item_1 item_2 item_3
#   <int>  <dbl>  <dbl>  <dbl>
# 1     1      1      2      1
# 2     2      5      2      1
# 3     3      3      2      1
# 4     4      5      5      1
# 5     5      5      5      5

如果reverse包含不在mock_data中的列，并且您想跳过这些列，请使用mutate_at(vars(one_of(reverse)), ...)

使用mutate_at和in运算符％in％

1 个答案: