在R中，传递变量给正则表达式的替代方法是什么？

Question

我编写的代码可以从一些文本中删除短单词和长单词:

# Remove Words based on lowerCutOff & upperCutOff
removeByLength<- function(text,lowerCutOff=2,upperCutOff=12){
  text<- gsub("\\b[a-zA-Z0-9]{1,lowerCutOff}\\b|\\b[a-zA-Z0-9]{upperCutOff,}\\b"," ",text)
  return(text)
}

我该如何在不硬编码下限和上限的情况下实现所需的功能？

- jackStinger

---

请使用 paste() 或 sprintf()。 - Andrie

Answer 1

使用paste函数连接字符串以创建模式：

removeByLength<- function(text,lowerCutOff=2,upperCutOff=12){
  pattern <- paste("\\b[a-zA-Z0-9]{1,",lowerCutOff,
                 "}\\b|\\b[a-zA-Z0-9]{",upperCutOff,",}\\b", sep="")
  text <- gsub(pattern, " ", text)
  return(text)
}

- Joshua Ulrich