我想将一个匹配特定条件的列中的值替换为来自不同列的同一行中的值。考虑这个例子:
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))
使用“内部”的代码效果很好。如果需要,我如何使用dplyr(作为更长的变异/汇总过程的一部分)?
编辑:这是与Change value of variable with dplyr不同的情况。我不想盲目地为所有匹配的单元分配相同的值(例如,NA)。我想把它们从另一个特定栏目中拉出来。
答案 0 :(得分:7)
使用replace
时,长度应该相同,因此我们需要将Other
与逻辑表达式
data %>%
mutate(X25 = replace(X25, X25 == "Other", Other[X25=="Other"]))
另一种选择是case_when
data %>%
mutate(X25 = case_when(X25=="Other"~ Other,
TRUE ~ X25))
或ifelse
data %>%
mutate(X25 = ifelse(X25 == "Other", Other, X25))