对于我的主要研究，我需要从产品开发平台中查找用户条目的关键字，并且我使用的是基于图的method-pagerank。我遇到了生成初始关键字网络图的代码，然后在运行pagerank代码后，我可以获得关键字。但是，问题是当我将示例文本更改为测试文本时，它不再起作用，下面的代码显示了制作初始关键字图之前的阶段。 （pagerank）不包括在内。结果应该看起来像这样** keyword network
我得到的错误是：
错误：意外的字符串常量位于：agged_words <- SplitText（as.character（tagged_text））tagged_words <- c（SelectTaggedWords（tagged_words，“ / NN”），SelectTaggedWords（tagged_words，“” tagged_words <-RemoveTags（tagged_words）＃删除未使用的标签POS as.character（x）中的错误：无法将类型'closure'强制转换为 键入'character'从以下位置调用：sub（“ / [A-Z] {2,3}”，“”，单词）浏览1> selected_words <-唯一（带有标签的单词）
封装时出错：unique（）仅适用于向量Error in class（igraph）％in％“ igraph”：找不到对象'textIgraph'
经过测试的文本：
是一款毫不妥协的两人座，街道和轨道日间车，经过雕刻 车身线条酷似60年代的优秀赛车手。 线条流畅，拉力赛车格斗DNA，带有风味 它拥有非常坚固的油管底盘，上面覆盖着一个性感的底盘 车身。它使用常规的led灯和其他oem部件。 本地赛车手，赛车手：街道两座，毫不妥协 和赛道日间赛车，其雕刻的车身线条类似于出色的赛车手 始于60年代 拉力赛车具有独特的风味，具有非常坚硬的DNA 油管底盘被性感的一件式车身覆盖。它用 常规的led灯和其他oem零件。 Amigo，轻巧 汽车兄弟，像推杆suspensión一样，恭喜您！！不错 前视图和颜色布局。这是没有的剥离的版本 挡风玻璃，您需要单击下面的文件按钮。 没有挡风玻璃的剥离的版本当地赛车手，赛车手：是 一辆毫不妥协的两人座，街道和轨道日间车，其造型优美 车身线条酷似60年代的优秀赛车手。 线条流畅，拉力赛车格斗DNA，带有风味 它拥有非常坚固的油管底盘，上面覆盖着一个性感的底盘 车身。它使用常规的led灯和其他oem部件。 令人惊讶的汽车伴侣，令人惊讶的是，您会爱上 看更多夸张的排气技巧，还有惊人的portafolio，什么 您用于建模的程序吗？希望你能过去给我一些 关于我的车的反馈很酷的车友，我喜欢顶部的小翼， 挡风玻璃和鲨鱼也很好看，这看起来像 一辆名为mono的汽车的美国版本，它们看起来很棒 与MR布局互相竞赛，与其他人竞赛 经典的帧中继布局，希望您能通过并给我一些反馈 我的车哑光漂亮的车我爱第一个观点是3D模型还是 草图？希望您经过以查看我的项目并提供一些反馈。 很棒的草图，让我想起了小时候的风火轮， 很高兴看到这样的事情，第四张草图让我思考 在月球上赛车。酷爱进取的设计，我爱“进气铲 “东西”是很酷的好车，我更喜欢vader版本，为什么重力很烂？它将东西保持在地板上！ 比那是法律！谢谢马特，很高兴听到有一个 很好的一天。谢谢伴侣很高兴听到这个消息，特别是来 来自一位伟大的设计师的非常出色的渲染，我喜欢推杆suspensión， 我还在等你的尼莫人过去，给我一些反馈 我的车，祝你有美好的一天。哇，我喜欢机器人的漂亮草图 造型5/5配偶工作出色谢谢plux出色的车身设计，有趣 分布我非常喜欢后端非常有趣的方法，我 获得试图尽力将nurburgring圈起来的帅哥的形象 他们的911和疯狂的家伙在战斗机射击 彩弹给他们jajajaja，跳出框框思考，希望你 可以经过并给我您的意见。顺便说一句我实际上是 您的设计过程无所畏惧，我认为这就是使 汽车设计向前发展。不错的素描技巧，看起来 像tron的赛车手一样，希望您能过去并留下我的意念 在我的入口上祝您好运，谢谢兄弟，我的素描！！和 比例，像第四个侧视图很多，嗨，萨尔，这看起来像 手工艺术机器，我看到你做了其他项目，对我来说，这是 最好的，我很喜欢，尽管我会给你建议 探索不同的风格，因为我看到您所有的作品都相似 风格，您可以尝试其他设计语言，当然要保持这种风格 那是你的个人风格，并把其中的一些带给你 设计，但也汲取其他灵感和元素。还有一些 意见，这是实际配置，我想我jajaja嘿 在海湾模式下，在种族模式下看起来很棒！！那使我 再看一看，一些有趣的元素，例如前部， 裸露的推杆suspensión和机翼，希望您过去给我 我输入的反馈尼斯工作，简单而现代，您使用哪种CAD 建模和渲染？希望您能通过给我反馈 入口，欢呼啊！上次尝试上传图像Gracias chavito 锡拉韦尔达德·埃斯·科梅泽·德拉巴扬多洛·科莫superficie en 发明人Cosa que es la Primera Vez que Hago，坦桑尼亚 tarde del proyecto（faltando 18días），因为没有 波尔多国家石油公司，蒂恩·拉贡·德尔翁 底盘运输工具 埃尔科斯塔多，萨卢多斯。漂亮的全能车，喜欢皮带， 前端，但不确定后端，新渲染的Chachan，在这里 是的，我做了您朋友指出的一些更正，显然 问题是当我在车身和 我不得不削减底盘的车身工作和二手和自动修补 使车身适合的工具，这是由于精加工的压力 随着时间的流逝，在A支柱周围形成了奇特的外观 在侧面打了一个圆角，我想这辆车看起来 更好。谢谢：@ charlyron，@ chavito，@ Seizmicdesign：）
虽然不喜欢福特嘉年华尾灯，我只能对你说5/5 否则做得很好，素描很好，兄弟，可惜你没完成 这个，希望您能通过并给我一些意见。很多 有趣的材料，我喜欢3erd页面的后视图， 最后一页的个人资料上的b选项，您确实很有才华 就在那儿，希望您能对我的设计给我一些反馈， 干杯。非常感谢您的评论，也很赞！ 从女性的角度来看。
非常感谢队友，如果我告诉你高辛烷值会有所帮助 燃料，管道吐火？？ jajaja只是在开玩笑，谢谢 反馈。谢谢jessydude很高兴您喜欢它，谢谢队友，我正在尝试 让它看起来像迈阿密副jajaja哦，我忘了穿上 我使用Full挡风玻璃的解释，因为我认为这更容易 剥去全身的设计，穿上条纹的:) 如果你想知道为什么我没有改变所有的观点 条纹Versión。我认为Q3看起来更好，我同意mahbuick 尝试使灯的上端线适合格栅的线 您消除了差距，为不同的图形提供了出色的整体效果 很棒的渲染工具还包括R版本。我的选择是白银 红色框和6个辐条合金。
这里是相同的车身，但经过简化（更真实） 机箱（框架）Chavito的版本，感谢您的建议， 帮助我查看所经过的细节，我更正了其中的一些 一些最终渲染图，您的输入再次很棒。 Hermano。
在这里，它具有x截面的底盘和圆角以使表面光滑 和其他小的更正
Dude，很棒的设计：D您是一位出色的设计师，请继续前进， 我相信总有一天我会看到一台不错的机器，并说我意识到 样式！！！哦，是汉蒂格男孩！并在Google上寻找它 证实我的怀疑。
library(NLP)
library(tm)
library(openNLP)
library(graph)
library(BiocGenerics)
library(parallel)
# --- FUNCTIONS
tagPOS <- function(x, ...) {
s <- as.String(x)
word_token_annotator <- Maxent_Word_Token_Annotator()
a2 <- Annotation(1L, "sentence", 1L, nchar(s))
a2 <- annotate(s, word_token_annotator, a2)
a3 <- annotate(s, Maxent_POS_Tag_Annotator(), a2)
a3w <- a3[a3$type == "word"]
POStags <- unlist(lapply(a3w$features, `[[`, "POS"))
POStagged <- paste(sprintf("%s/%s", s[a3w], POStags), collapse = " ")
list(POStagged = POStagged, POStags = POStags)
}
SplitText <- function(Phrase) {
unlist(strsplit(Phrase," "))
}
trim <- function (x) gsub("^\\s+|\\s+$", "", x)
IsPunctuated <- function(Phrase) {
length(grep("\\.|,|!|\\?|;|:|\\)|]|}\\Z",Phrase,perl=TRUE))>0 # punctuation: . , ! ? ; : ) ] }
}
SelectTaggedWords <- function(Words,tagID) {
Words[ grep(tagID,Words) ]
}
RemoveTags <- function(Words) {
sub("/[A-Z]{2,3}","",Words)
}
IsSelectedWord <- function(Word) {
ifelse(length(which(selected_words == Word))>0, TRUE, FALSE)
}
GetWordLinks <- function(position,scope) {
scope <- ifelse(position+scope>length(words),length(words),position+scope)
links <- ""
for (i in (position+1):scope) {
if ( IsSelectedWord(words[i]) ) links <- c(links,words[i])
}
if (length(links)>1) {
links[2:length(links)]
}
else {
links <- ""
}
}
ConstructTextGraph <- function(n) {
word_graph <- new("graphNEL")
i <- 1
while (i < length(words) ) {
if ( IsSelectedWord(words[i]) ) {
links <- GetWordLinks(i,n)
if (links[1] != "") {
cat(i," ",words[i]," - ",paste(c(links),collapse=" "),"\n")
if ( length(which(nodes(word_graph)==words[i]))==0 ) {
word_graph <- addNode(words[i],word_graph)
}
for (j in 1:length(links)) {
if ( length(which(nodes(word_graph)==links[j]))==0 ) {
word_graph <- addNode(links[j],word_graph)
word_graph <- addEdge(words[i],links[j],word_graph,1)
}
else {
if ( length(which(edges(word_graph,links[j])[[1]]==words[i]))>0 ) {
prev_edge_weight <- as.numeric(edgeData(word_graph,words[i],links[j],"weight"))
edgeData(word_graph,words[i],links[j],"weight") <- prev_edge_weight+1
}
else {
word_graph <- addEdge(words[i],links[j],word_graph,1)
}
}
}
}
}
i <- i+1
}
word_graph
}
library(tm)
library(NLP)
doc <- c("tested text")
corp <- Corpus(VectorSource(doc))
corp <- tm_map(corp, stripWhitespace)
corp <- tm_map(corp, tolower)
words_with_punctuation <- SplitText(as.character(corp[[1]]))
corp <- tm_map(corp, removePunctuation)
#--- GRAPH CONSTRUCTION
words <- SplitText(as.character(corp[[1]]))
tagged_text <- tagPOS(corp[[1]])
tagged_words <- SplitText(as.character(tagged_text))
tagged_words <- c(SelectTaggedWords(tagged_words,"/NN"),SelectTaggedWords(tagged_words,"/JJ")) # keep only NN & JJ tagged words
tagged_words <- RemoveTags(tagged_words) # remove un-used tag POS
selected_words <- unique(tagged_words)
text_graph <- ConstructTextGraph(2)
#Interactive Igraph plot
library(visNetwork)
library(igraph)
textIgraph<-igraph.from.graphNEL(text_graph, name = TRUE, weight = TRUE,unlist.attrs = TRUE)
textIgraph<-simplify(textIgraph,remove.loops=TRUE)
visIgraph(textIgraph) %>%
visNodes(size = 35, shape = "circle",font=list(size=28)) %>%
visOptions(highlightNearest = TRUE,
nodesIdSelection = TRUE) %>%
visInteraction(keyboard = TRUE)