str_替换所有基于数据帧的句子，使用r

例句

sentence <-"Mr. Smith moved to San Francisco in December."

和查找列表我想为ent_类型分配我自己的十六进制代码

ent_type <- c('PERSON', 'ORG', 'LOC',  'DATE')
hex      <- c('#336',  '#F3C', '#7F7', '#FF0')

---

要使此代码正常工作，您需要首先安装此软件包：

devtools:：install\u github（“bmewing/mgsub”）

我还使用

tibble

包来创建您在原始帖子中共享的模型数据帧

注意：

str\u replace\u all

from

stringr

将不起作用，因为它不会对同一字符串进行多次替换。有关详细的讨论，请参见：

#您需要安装mgsub:devtools:：install\u github（“bmewing/mgsub”）
要使此代码正常工作，您需要首先安装此软件包：
devtools:：install\u github（“bmewing/mgsub”）

我还使用
tibble
包来创建您在原始帖子中共享的模型数据帧

注意：
str\u replace\u all
from
stringr
将不起作用，因为它不会对同一字符串进行多次替换。有关详细的讨论，请参见：


#您需要安装mgsub:devtools:：install\u github（“bmewing/mgsub”）
我想你需要更多的数据来训练一个模型。什么是人？什么是位置？…实际上我有一个示例句子，我使用spacyr包来提取实体。我想用str_replace_all函数替换句子中的ent_类型和十六进制代码谢谢..我想你需要更多数据来训练模型。什么是人？什么是位置？…实际上我有一个示例句子，我使用spacyr包来提取实体。我想要的是使用str_replace_all函数替换句子中的ent_类型和十六进制代码谢谢..非常感谢。！！还有一个问题是，如何使用带有HTML标记的paste（）函数来获取字体颜色的十六进制代码以及文本和ent_类型。示例：paste0（“”，text，“”，ent#u type，“”）我的意思是mgsub中的替换将是使用paste0（）的html标记，如下所示：paste0（“”，text，“”，ent#u type，“”）@bea:我发现很难理解你的下一个问题是什么。但是，也许会发布另一个关于这个具体问题的问题，我会尽力帮助你。同时，如果这个答案正确，您可以将其标记为正确答案。：）很好，谢谢。！！还有一个问题是，如何使用带有HTML标记的paste（）函数来获取字体颜色的十六进制代码以及文本和ent_类型。示例：paste0（“”，text，“”，ent#u type，“”）我的意思是mgsub中的替换将是使用paste0（）的html标记，如下所示：paste0（“”，text，“”，ent#u type，“”）@bea:我发现很难理解你的下一个问题是什么。但是，也许会发布另一个关于这个具体问题的问题，我会尽力帮助你。同时，如果这个答案正确，您可以将其标记为正确答案。：）
ent_type <- c('PERSON', 'ORG', 'LOC',  'DATE')
hex      <- c('#336',  '#F3C', '#7F7', '#FF0')

Mr. Smith(PERSON)-#336 moved to San Francisco(LOC)-#7F7 in December(DATE)-#FF0.