Rのワードネットを使って単語階層を取得する方法

Question

Rでwordnetパッケージを使用して、 "animal"が "cat"の上位語で、 "apple"が " 「フルーツ」の下位語です。しかし、私はR WordNetのヘルプファイルから見つけることができるコードが反意語を識別するために、次のようなものです：

filter <- getTermFilter("ExactMatchFilter", "cold", TRUE) 
terms <- getIndexTerms("ADJECTIVE", 5, filter) 
synsets <- getSynsets(terms[[1]]) 
related <- getRelatedSynsets(synsets[[1]],"!") 
sapply(related, getWord) 

は、どのように私は単語の上位語と下位語を見つけるために、RのWordNetのパッケージを使用することができますか？ありがとう。

Answer 1

あなたは何が必要に応じて、他のシンボルと

related <- getRelatedSynsets(synsets[[1]],"!") 

中（反意語のためである）"!"を置き換えることができます。私はただのWordNetを使用して開始し、私は似たような探しています

： http://wordnet.princeton.edu/man/wnsearch.3WN.html#sect4

上位語が元の質問に"@"

延長のようになります。

は、このリンクを参照してください。 'りんご' の 私は私の

• 'フルーツ'
  • '食品'
    • '固形物'
      • 「物理的なエンティティの を与える上位語ツリーを希望
        • など
        WordNetのオンライン http://wordnetweb.princeton.edu/perl/webwn

        にinherited hypernymsをクリックしたときただし、次のコマンド

        filter <- getTermFilter(type="ExactMatchFilter", word="apple", ignoreCase=TRUE) 
        terms <- getIndexTerms("NOUN", 15, filter) 
        synsets <- getSynsets(terms[[1]]) 
        related <- getRelatedSynsets(synsets[[1]], "@") 
        sapply(related, getWord) 
        

        は私だけを与える見ることができるように0

[[1]] 
[1] "edible fruit" 

[[2]] 
[1] "pome"  "false fruit" 

は、したがって上位語

上位語木を登るための鍵は、使用getRelatedSynsets（）再帰であるの低いレベルを私に提供することができません。

リンゴののsynsetからのsynsetを抽出し、上記の例を続ける：

related_2 <- getRelatedSynsets(related[[1]], "@") 

をそして集め、対応する単語：

sapply(related_2, getWord) 

が得られます：

[[1]] 
[1] "produce"   "green goods"  "green groceries" "garden truck" 

[[2]] 
[1] "fruit" 

そして、ステップに行きますさらに：

related_3 <- getRelatedSynsets(related2[[1]], "@") 

sapply(related_3, getWord) 

はになります：

[,1]   
[1,] "food"  
[2,] "solid food"