在 for 循环中替换部分字符串时的奇怪行为

Question

我正在尝试用来自数据帧的信息替换字符串中的一系列数字。

我的字符串来自我使用 readr 包导入的文本文件，如下所示：read_file("Human.txt") 我检查了课程，这是性格。该字符串包含以下信息（我将其命名为 treeString）：

"(1,2,((((3),884),(((((519,((516,517),(515,(518,(513,514))))),((((((((458,(457,(455,456))),459),(502,(454,(453,(451,452)))))"

我的数据框 (labels.csv) 最初是因子格式，但我使用以下命令将第二列的格式更改为字符：labels[,2] = as.character(labels[,2])。看起来是这样的

     v1     v2
1    1      name1
2    2      name2
3    3      name3

我的目标是用数据框中的相应名称（即 V2）替换字符串中的每个数字。这应该会产生以下结果：

"(name1,name2,((((name3),884),(((((519,((516,517),(515,(518,(513,514))))),((((((((458,(457,(455,456))),459),(502,(454,(453,(451,452)))))"

这是我用来完成此操作的代码：

for(i in 1:nrow(labels)){
  gsub(as.character(i), labels[i,2], treeString)
}

奇怪的是，如果我自己运行 gsub() 命令（使用指定的数字 - 例如 2），它会进行替换，但是，当我在循环中运行它时，它不会替换数字。

Answer 1

正如 Kumar Manglam 在 cmets 中指出的那样，您忘记将 gsub() 的结果分配回 treeString。

您还应该注意其他一些事情：您在问题中指定正则表达式的方式也会将"(241)" 等模式替换为"(name24name1)"。为避免这种行为，您应该检查要替换的数字前面是否有逗号或左括号并且后面是否有逗号或右括号：

# Option1
for(i in 1:nrow(labelnames)){
   reg_pattern <- paste0("(?<=[(,])(", i, ")(?=[),])")
   treeString  <- gsub(reg_pattern, labelnames$v2[i], treeString, perl=T)
}

另一个更好的选择是删除 for-loop 并一次性完成所有操作：

# Option2
reg_pattern <- paste0("(?<=[(,])([1-", nrow(labelnames), "])(?=[),])")
treeString  <- gsub(reg_pattern, "name\\1", treeString, perl=T)

# Result
treeString
# "(name1,name2,((((name3),884),(((((519,((516,517),(515,(518,(513,514))))),((((((((458,(457,(455,456))),459),(502,(454,(453,(451,452)))))"

---

数据

 treeString <- "(1,2,((((3),884),(((((519,((516,517),(515,(518,(513,514))))),((((((((458,(457,(455,456))),459),(502,(454,(453,(451,452)))))"
 labelnames <- structure(list(v1 = 1:3, v2 = c("name1", "name2", "name3")), .Names = c("v1", "v2"), class = "data.frame", row.names = c(NA, -3L))