Stemmers действительно не собираются сокращать это. ОП нуждается в лемматизаторе, например, в WordNet или в теге Stanford POS.

ожно превратить множественные существительные в единственные существительные, используя R? Я использую функцию tagPOS, которая помечает каждый текст, а затем извлекает все существительные во множественном числе, которые были помечены как «NNS». Но что делать, если я хочу преобразовать эти множественные существительные в единственные.?

library("openNLP")
library("tm")
acq_o <- "Gulf Applied Technologies Inc said it sold its subsidiaries engaged in pipelines and terminal operations for 12.2 mln dlrs. The company said the sale is subject to certain post closing adjustments, which it did not explain. Reuter."

acq = tm_map(Corpus(DataframeSource(data.frame(acq_o))), removePunctuation)
acqTag <- tagPOS(acq)
acqTagSplit = strsplit(acqTag," ")
qq = 0
tag = 0
for (i in 1:length(acqTagSplit[[1]])){
        qq[i] <-strsplit(acqTagSplit[[1]][i],'/')
        tag[i] = qq[i][[1]][2]
}

index = 0
k = 0
for (i in 1:(length(acqTagSplit[[1]]))) { 
    if (tag[i] == "NNS"){
        k = k +1             
        index[k] = i     
    } 
}
index

Ответы на вопрос(1)

Ваш ответ на вопрос