美文网首页
R中名词空格

R中名词空格

作者: 医只蜗牛 | 来源:发表于2022-06-19 15:32 被阅读0次

【01】空格替代名词

rm(list = ls())
library(tidyverse)
library(stringr)
library(htmlwidgets,htmltools)
sentences
noun <- "(a|the|an) ([^ ]+)"
has_noun <- sentences %>%
  str_subset(noun) %>%
  head(10)
AA <-tibble(sentence = sentences) %>%
  tidyr::extract(
    sentence, c("article", "noun"), "(a|the) ([^ ]+)",
    remove = FALSE
  )
view(AA)
AA <- na.omit(AA)  ##删除有NA的行。
AA$sentence <-   str_replace(AA$sentence,AA$noun, " ____ ")  #替代:AA$noun用____替代。

效果展示:

image.png
noun <- "(a|the|an) ([^ ]+)" :定冠词+空格+任意单词。
任意单词也可以写成:([A-Za-z]+)
image.png
去除NA的行后:
image.png
最终效果。
image.png

【02】 交换 words 中单词的首字母和末尾字母,其中哪些字符串仍然是个单词?

library(tidyverse)
library(stringr)
library(htmlwidgets,htmltools)
BB000 <- str_replace_all(words, "^([A-Za-z])(*)([A-Za-z])$", "\\3\\2\\1")
intersect(BB000, words)

相关文章

网友评论

      本文标题:R中名词空格

      本文链接:https://www.haomeiwen.com/subject/hnyrvrtx.html