如何替换R中数据帧列表中的部分字符单元格

Question

我有一个列表“L”的数据帧看起来像这样（实际上有超过2个数据帧）：

> L

[[1]]
                VAR
1 "Ab", "B", "C", "Dd", 

[[2]]
               VAR
1 "Ee", "B", "Ab", "H",

即每个数据帧包含一个名为“VAR”的变量，其中一个观察值由一个字符列表组成。 我正在寻找一种用数字替换满足给定条件的所有字符的方法。 在上面的示例中，我想用数字5替换所有“Ab”，用数字3替换所有“B”。如何将其替换为适用于每个数据帧（即所有“A”）在列表“L”？ 谢谢！

Answer 1

我们可以使用chartr

lapply(L, function(x) transform(x, VAR = chartr('A', '5', VAR)))
#[[1]]
#         VAR
#1 5, B, C, D

#[[2]]
#         VAR
#1 E, F, 5, H

更新

我们可以使用gsub匹配以'A'开头，后跟零或更多非空格字符（ \\\\S* ）的单词，并将其替换为5。

lapply(L1, function(x) transform(x, VAR = gsub("\\bA\\S*", 5, VAR)))

如果我们正在寻找完全匹配，那么用\\\\bAb\\\\b替换A\\\\S*

 lapply(L1, function(x) transform(x, VAR = gsub("\\bAb\\b", 5, VAR)))

数据

L <- list(data.frame(VAR = "A, B, C, D", stringsAsFactors=FALSE),
      data.frame(VAR = "E, F, A, H", stringsAsFactors=FALSE))

L1 <- list(data.frame(VAR = "Ab, B, C, D", stringsAsFactors=FALSE),
      data.frame(VAR = "E, F, Ab, H", stringsAsFactors=FALSE))

Answer 2

L <- list(data.frame(VAR = c("Ab", "B", "C", "D"), stringsAsFactors=FALSE),
          data.frame(VAR = c("E", "F", "Ab", "H"), stringsAsFactors=FALSE))

你也可以使用purrr和replace

purrr::map(L,  ~replace(.x,.x=="Ab",5))