在使用Rwordseg的过程中，我自定义了一些词，并加入到词库中。如下：

#否定词
negWords=c("无","不","不在")
insertWords(negWords,strtype = rep("neg",length(negWords)))



#分词
x <- segmentCN(teststring3,nature=TRUE)
x[1:7]

userDefine          q          n          v          n userDefine          v          r
  "标的车"       "溜"       "车"       "撞"       "门"   "标的车"     "受损"     "三者"


我打算查看每个词的词性，根据词性再进行处理，比如：看每个词的前后二个词的词性是否是否定词。

我的问题是，怎么单独取到每个词的词性？