请问grepl怎么查找某个单词及其后0或1个字母？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

例如：
example <- c("book","books","booked","booking")

需要查出
newdata <- ("book","books")

请问如何用正则来实现？

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：GRE example ExamP AMPL Exam

library(stringr)
example <- c("book","books","booked","booking")

newdata <- example[str_which(example, "(book|books)$")]

or

newdata <-example[grepl("(book|books)$", example)]

or

newdata <-example[grepl("book(s{0,1})$", example)]

ofoliao 发表于 2021-6-2 14:50
or
newdata &lt;-example[grepl("book(s{&#48;,1})$", example)]

谢谢！如果有n个单词遍历时，怎么写正则表达式呢？

huapeng66 发表于 2021-6-2 14:58
谢谢！如果有n个单词遍历时，怎么写正则表达式呢？

不太明白你的意思，请描述的详细点

ofoliao 发表于 2021-6-2 15:01
不太明白你的意思，请描述的详细点

例如：

1. library(stringr)
   
2. example <- c("book","books","booked","booking","look","looking")

复制代码

我需要提取

1. newdata <- c("book","books","look")

复制代码

ofoliao 发表于 2021-6-2 15:01
不太明白你的意思，请描述的详细点

例如：

1. library(stringr)
   
2. example <- c("book","books","booked","booking","look","looking")

复制代码

我需要提取

1. newdata <- c("book","books","look")

复制代码

huapeng66 发表于 2021-6-2 15:20
例如：我需要提取

这个答案依然适用吧，你吧开头的‘b’去掉就好了。

1. example[str_which(example, "(ook|ooks)$")]

复制代码

那需要观察需要提取的n个单词的特征，比如：

example <- c("book","books","booked","booking","look","looking")
newdata <-example[grepl("^(b|l)ook(s{0,1})$", example)]
newdata

能提取：

> newdata
[1] "book"  "books" "look" 

实际上，looks也符合这个正则表达式。