從文本中提取名詞和動詞

Question

我想知道是否有可能在R包openNLP中分別提取名詞，動詞？ 我使用tagPOS函數來標記句子，但如果我想分別提取動詞，名詞時要做些什麼。

Answer 1

使用一個例子：（這是提取標記爲/ VBX，其中x是任何單個字符的話）

library("openNLP") 

acq <- "Gulf Applied Technologies Inc said it sold its subsidiaries engaged in pipeline 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." 

acqTag <- tagPOS(acq) 

sapply(strsplit(acqTag,"[[:punct:]]*/VB.?"),function(x) sub("(^.*\\s)(\\w+$)", "\\2", x)) 

    [,1]       
[1,] "said"       
[2,] "sold"       
[3,] "engaged"      
[4,] "said"       
[5,] "is"       
[6,] "did"       
[7,] " not/RB explain./NN Reuter./." 

好吧，我的正則表達式，需要以一定的改善擺脫的最後一行在結果中。

編輯

另一種可能是忽略包含space字符行

sapply(strsplit(acqTag,"[[:punct:]]*/VB.?"),function(x) {res = sub("(^.*\\s)(\\w+$)", "\\2", x); res[!grepl("\\s",res)]})