Функция синонимов пакета wordnet пропускает очевидные синонимы, которых нет в приложении wordnet. Как получить эти другие данные из wordnet, используя пакет wordnet R?
Я использую R 3.4.4. Приложение показывает 9 чувств компании
Sense 1 company - (учреждение, созданное для ведения бизнеса; «он инвестирует только в крупные устоявшиеся компании»; «он основал компанию в своем гараже») => учреждение, создание - (организация, основанная и объединенная для определенной цели) Компания Sense 2 - (небольшая воинская часть; обычно два или три взвода) => армейская часть - (воинская часть, являющаяся частью армии)
Sense 3 компания, общение, общение, общество - (состояние с кем-то; "он скучал по их компании"; "он наслаждался обществом своих друзей") => дружба, дружеские отношения - (состояние дружбы (или дружелюбия)
```R
syns<-vector()
filter <- getTermFilter("ExactMatchFilter", "company", TRUE)
for(i in c("ADJECTIVE", "ADVERB", "NOUN", "VERB")){
try({
terms <- getIndexTerms( i, 1, filter)
gsyn<-getSynonyms(terms[[1]])
synsets <- getSynsets(terms[[1]])
related <- getRelatedSynsets(synsets[[1]], "+")
gsyn <- c(gsyn,unlist(sapply(related, getWord)))
if(length(gsyn)>0){
syns <- c(syns,i)
syns <- c(syns,unique(gsyn))
}
}, silent = T)
}
print(syns)
```
[1] "NOUN" "caller"
[3] "companionship" "company"
[5] "fellowship" "party"
[7] "ship's company" "society"
[9] "troupe" "VERB"
[11] "accompany" "companion"
[13] "company" "keep company"
[15] "escort" "accompaniment"
[17] "fellow traveler" "fellow traveller"
[19] "comrade" "fellow"
[21] "familiar" "associate"
[23] "party"
Ни предлагать бизнес или => учреждение, учреждение. Sense 3s "компания, товарищество, общение, общество" все появляются.