Question

嗨：我如何让R替换＆＃34; no＆＃34;与＆＃34;不是＆＃34;但不能取代＆＃34;不是＆＃34;用＆＃34; nott＆＃34;

下面的代码与我当前的词典非常相似，但与另一个用一些标准化词代替否定词的词典没有关系。

#patterns
replace<-('no')
#replacements
with<-c('not')
#data frame
neg<-data.frame(replace=replace, with=with)
#text to modify
out<-c('not acceptable no good')
#current code
stri_replace_all_fixed(out, neg$replace, neg$with, vectorize_all=FALSE)

Answer 1

您需要传递一个与no完整匹配的正则表达式：

> replace<-('\\bno\\b')  ## <= \b is a word boundary
> with<-c('not')
> neg<-data.frame(replace=replace, with=with)
> out<-c('not acceptable no good')
> stri_replace_all_regex(out, neg$replace, neg$with, vectorize_all=FALSE)
[1] "not acceptable not good"

使用stri_replace_all_fixed匹配精确单词

1 个答案: