R 迭代更新字符串匹配模式

words <- c("bake", "tree", "keep", "game", "ride", "Bake", "Apple", "lame")

pattern1 <- '****'
# return "bake", "tree", "keep", "game", "ride", "lame"
pattern2 <- '*a**'
# return "bake", "game", "lame"
pattern3 <- '*a*e'
# return "bake", "game", "lame"
pattern4 <- '*ame'
# return "game", "lame"

spec_grep <- function(string, pattern) {
  pattern <- gsub("\\*", "[a-z]", pattern)
  grep(paste0("^", pattern, "$"), string, value = T)
}

words <- c("bake", "tree", "keep", "game", "da4e", "Bake", "Apple", "lame")
pattern <- "*a*e"
spec_grep(words, pattern)

[1] "bake" "game" "lame"

R相关问答推荐

如何将log 2刻度上的数字转换为自然log

gt()从gt为相同内容的单元格 colored颜色 不同？

如何改变x轴比例的列在面

即使硬币没有被抛出，也要保持对其的跟踪

解析R函数中的变量时出现的问题

查找所有站点的最小值

从多面条形图中删除可变部分

如何使用同比折线图中的个别日

如何将一些单元格的内容随机 Select 到一个数据框中？

如何计算每12行的平均数？

如何提取R中其他字符串和数字之间的字符串？

计算使一组输入值最小化的a、b和c的值

如何在使用Alpha时让geom_curve在箭头中显示恒定透明度

通过R：文件名未正确写入[已解决]将.nc文件转换和导出为.tif文件

按镜像列值自定义行顺序

生存时间序列的逻辑检验

重写时间间隔模糊连接以减少内存消耗

随机生成样本，同时在R内的随机样本中至少包含一次所有值

在具有条件的循环中添加行

使用dplyr删除具有条件的行