R中带有paste0的新列答案

【问题标题】：new column with paste0 in RR中带有paste0的新列
【发布时间】：2019-08-13 16:56:29
【问题描述】：

我正在寻找一个函数，它允许我添加一个新列来将称为 ID 的值添加到一个字符串中，即：

我有一个带有你 ID 的单词列表：

car = 9112
red = 9512
employee = 6117
sky = 2324

words<- c("car", "sky", "red", "employee", "domestic")
match<- c("car", "red", "domestic", "employee", "sky")

比较是通过读取一个excel文件进行的，如果它发现值等于我的向量单词，它会用它的ID替换单词，但保留原始单词

    x10<- c(words)# string

words.corpus <-  c(L4$`match`) #  pattern
idwords.corpus <- c(L4$`ID`) # replace
words.corpus <- paste0("\\A",idwords.corpus, "\\z|\\A", words.corpus,"\\z")

vect.corpus <- idwords.corpus
names(vect.corpus) <- words.corpus

data15 <- str_replace_all(x10, vect.corpus)

结果：

数据15：

" 9112", "2324", "9512", "6117", "employee"

我正在寻找的是用 ID 添加一个新列，而不是用 ID 替换单词

words      ID
car           9112
red          9512
employee 6117
sky            2324
domestic domestic

【问题讨论】：

很难在没有更多信息的情况下完全帮助您。但您可以使用data.frame 或data.table。 data15 <- cbind(x10,ID=str_replace_all(x10, vect.corpus))

标签： r string tm

【解决方案1】：

我会使用 data.table 根据固定的单词值进行快速查找。虽然不是 100% 清楚您的要求，但听起来您想在匹配时用索引值替换单词，或者如果没有匹配则将单词保留为单词。此代码将执行此操作：

library("data.table")

# associate your ids with fixed word matches in a named numeric vector
ids <- data.table(
  word = c("car", "red", "employee", "sky"),
  ID = c(9112, 9512, 6117, 2324)
)
setkey(ids, word)

# this is what you would read in
data <- data.table(
  word = c("car", "sky", "red", "employee", "domestic", "sky")
)
setkey(data, word)

data <- ids[data]
# replace NAs from no match with word
data[, ID := ifelse(is.na(ID), word, ID)]

data
##        word       ID
## 1:      car     9112
## 2: domestic domestic
## 3: employee     6117
## 4:      red     9512
## 5:      sky     2324
## 6:      sky     2324

这里的“国内”不匹配，所以它仍然作为 ID 列中的单词。我还重复了“天空”来说明这将如何适用于每个单词的实例。

如果要保留原始排序顺序，可以在合并之前创建一个索引变量，然后按该索引变量重新排序输出。

【讨论】：