使用键值数据框替换列值

Question

我想这个问题不是唯一的，但我在努力搜索哪些词语，如果这是多余的，请指向文章！

我有一个数据框

test <- data.frame(x = c("a", "b", "c", "d", "e"))

  x
1 a
2 b
3 c
4 d
5 e

我想使用一个单独的数据框替换部分值

metadata <- data.frame(
  a = c("c", "d"),
  b = c("REPLACE_1", "REPLACE_2"))

导致：

  x
1 a
2 b
3 REPLACE_1
4 REPLACE_2
5 e

- MayaGans

---

看一下根据另一个数据框的列替换列值，合并不同大小的数据框或更新连接。 - GKi

Answer 1

使用match和replace的基本R解决方案。

test <- within(test,x <- replace(as.character(x),match(metadata$a,x),as.character(metadata$b)))

使得

> test
          x
1         a
2         b
3 REPLACE_1
4 REPLACE_2
5         e

- ThomasIsCoding

Answer 2

使用 stringsAsFactors = FALSE 导入您的数据，并使用 dplyr 和 stringr，您可以执行以下操作：

test %>%
 mutate(x = str_replace_all(x, setNames(metadata$b, metadata$a)))

          x
1         a
2         b
3 REPLACE_1
4 REPLACE_2
5         e

或者使用 @Sotos 的基本思路：

test %>%
 mutate(x = pmax(x, metadata$b[match(x, metadata$a, nomatch = x)], na.rm = TRUE))

- tmfmnk

Answer 3

您可以做以下操作：

test$x[test$x %in% metadata$a] <- na.omit(metadata$b[match(test$x, metadata$a)])

 #         x
#1         a
#2         b
#3 REPLACE_1
#4 REPLACE_2
#5         e

- Sotos

Answer 4

这里有一种方法，虽然我认为可能有更短的方法：

library(dplyr)
test %>%
  left_join(metadata, by = c("x" = "a")) %>%
  mutate(b = coalesce(b, x))

#  x         b
#1 a         a
#2 b         b
#3 c REPLACE_1
#4 d REPLACE_2
#5 e         e

（注意，我已经通过将 metadata 作为字符加载而不是因子来使数据类型匹配：）

metadata <- data.frame(stringsAsFactors = F,
  a = c("c", "d"),
  b = c("REPLACE_1", "REPLACE_2"))

- Jon Spring

Answer 5

你可以使用match来进行这个更新连接。

i <- match(metadata$a, test$x)
test$x[i]  <- metadata$b
# test
#          x
#1         a
#2         b
#3 REPLACE_1
#4 REPLACE_2
#5         e

或者：

i <- match(test$x, metadata$a)
j <- !is.na(i)
test$x[j]  <- metadata$b[i[j]]
test
#          x
#1         a
#2         b
#3 REPLACE_1
#4 REPLACE_2
#5         e

数据：

test <- data.frame(x = c("a", "b", "c", "d", "e"), stringsAsFactors = FALSE)
metadata <- data.frame(
  a = c("c", "d"),
  b = c("REPLACE_1", "REPLACE_2"), stringsAsFactors = FALSE)

- GKi