如何比较R中的两个字符串

debugcn 发表于 Dev

伊娃·格拉博斯卡

我有一个包含两个字符串变量的数据集。两者都包含我想逐字比较的句子。我想创建一个新列（“new_var”），它应该是这样的：

var1                   var2               new_var
"sentence numer one"  "setence numer two" sentence:setence + one:two
"another one is here" "aner one are hre"  another:aner + is:are + here:hre

我不知道如何编写适用于数据集的代码：根据条件和循环添加新列。我的代码仅在我像这样定义对象 var1 和 var2 时才起作用。

library(stringr)

var1 = "this is sentence numer one"
var2 = "this is setence numer two"


new_var <- for (i in 1:(lengths(gregexpr("\\s+", var1)) + 1)) {
  if (word(string = var1, start = i, end = i) != word(string=var2, start=i, end=i)) 
  {
    cat(word(string = var1, start = i, end = i), word(string = var2, start = i, end = i), "+", sep=":")
  } else {
    cat("")
  } 
}

塞特

一种可能性是使用str_split然后map2从purrr包中取出。

首先我创建一些伪数据：

x <- c("sentence number one", "another one is here")
y <- c("setence number two", "aner one are hre")

然后我转换它：

x2 <- str_split(x, " ")
y2 <- str_split(y, " ")

library(purrr)
map2(x2, y2, ~ifelse(.x == .y, "", paste(.x, .y, sep = ":")))

    [[1]]
[1] "sentence:setence" ""                 "one:two"         

[[2]]
[1] "another:aner" ""             "is:are"       "here:hre"

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。