r - 使用 dplyr 有条件地将一列中的值替换为另一列中的值

Question

这个问题已经有答案了:

Change value of variable with dplyr (2 个回答)

已关闭 5 年前。

我想将一列中与特定条件匹配的值替换为同一行中不同列中的值。考虑这个例子:

library(tidyverse)
data <- tribble(
  ~X25, ~Other,
  "a", NA,
  "b", NA,
  "Other", "c",
  "Other", "d"
)
View(data)

# Works to change values in X25
within(data, {
    X25 <- ifelse(X25 == "Other", Other, X25)
})

# Changes values in X25 to NA and doesn't replace X25 with appropriate value from Other column
data %>% mutate(X25 = replace(X25, X25 == "Other", Other))

使用“within”的代码效果很好。如果需要，我如何使用 dplyr(作为较长的变异/总结过程的一部分)？

编辑:这是与 Change value of variable with dplyr 不同的场景。我不想盲目地为所有匹配的单元格分配相同的值(例如 NA)。我想从另一个特定的列中提取它们。

Answer 1

使用replace，长度应该相同，因此我们需要使用逻辑表达式对Other进行子集化

data %>%
    mutate(X25 = replace(X25, X25 == "Other", Other[X25=="Other"]))

<小时/>

另一个选项是case_when

data %>%
     mutate(X25 = case_when(X25=="Other"~ Other,
                            TRUE ~ X25))

或者如果否则

data %>%
    mutate(X25 = ifelse(X25 == "Other", Other, X25))