r - 使用 NGramTokenize 时出错（lapply 问题）

Question

我正在使用 rWeka 包中的 NGramTokenizer。我相信我已经正确安装了所有东西。我正在执行以下代码：

Bigram_Tokenizer <- function(x) NGramTokenizer(x, Weka_control(min = 2, max = 2))
tdm <- TermDocumentMatrix(corpus, control = list(tokenize= Bigram_Tokenizer()))

我收到的错误是：

Error in lapply(x,f): argument "x" is missing with no default.

关于如何解决这个问题的任何想法？再次提前感谢。

最好的

维沙尔

Answer 1

您似乎在 TermDocumentMatrix 函数中执行 Bigram_Tokenizer() 而不是仅通过引用传递它。您只需传递它而不执行：

Bigram_Tokenizer <- function(x) NGramTokenizer(x, Weka_control(min = 2, max = 2))
tdm <- TermDocumentMatrix(corpus, control = list(tokenize= Bigram_Tokenizer))