R包TM中的高效自定义词干

Question

这是一个（似乎）有效的代码，但我正在寻找一种缩短代码的方法。 实现自定义词干或词组。

# Simple reproducible example:
library(tm)
vec <- c("partners, very good", "partnery SOso Goodish!", "partna goodies", 
         "Good night")
corp <- Corpus(VectorSource(vec))
corp <- tm_map(corp, tolower)
corp <- tm_map(corp, removePunctuation)

# Custom stemming (how to shorten this code and avoid reptition)
corp <- tm_map(
  corp, 
  content_transformer(gsub), 
  pattern = "good[^ ]*", 
  replacement = "good"
)
corp <- tm_map(
  corp, 
  content_transformer(gsub), 
  pattern = "partn[^ ]*", 
  replacement = "partn"
)

背景：由于以下原因，我无法使用标准的词干提取方法：

1. 尚未开发针对我正在分析的文本语言的词干算法。
2. 我正在使用代码对含义（但不是拼写）密切相关的术语进行分组，以便稍后将数据提供给聚类算法。

编辑

我已经找到了一个比较满意且更具扩展性的解决方案，但是我仍然觉得这不是应该这样做的方式...

# Make a list of pattern/replacment pairs
steml <- list(
  c("good[^ ]*", "good"),
  c("partn[^ ]*", "partn")
)

for (pair in seq_along(steml)) {
  corp <- tm_map(
    corp, 
    content_transformer(gsub), 
    pattern     = steml[[pair]][1],
    replacement = steml[[pair]][2]
  )
}