我寫了一個用於生成網絡圖的UI,服務器和global.r目前只適用於一種佈局(layout.fruchterman.reingold),我想用一個單選按鈕像徑向,對角線網絡和dendroNetwork列出的版面(對於該代碼附加下面,使用R網絡分析在發光
Global.R file for producing the graph
### Social Network Analysis /Word Network ##########
###############################################################
tdm <- TermDocumentMatrix(r_stats_text_corpus,control = list(wordLenghts = c(1,Inf)))
idx <- which(dimnames(tdm)$Terms == "call") ##change the terms to be searched
tdm2 <- removeSparseTerms(tdm, sparse = 0.994)
m2 <- as.matrix(tdm2)
m2[m2>=1] <- 1
m2 <- m2 %*% t(m2) ##Adjaceny Matrix
g <- graph.adjacency(m2, weighted=T, mode = "undirected")
g <- simplify(g)
V(g)$label <- V(g)$name
V(g)$degree <- degree(g)
set.seed(3952)
layout1 <- layout.fruchterman.reingold(g)
###Different Formats for Social Network Graphics
##Radial
radial <- as.radialNetwork(fit)
radialNetwork(radial)
#Diagonal Network
diagonalNetwork(radial, height = NULL, width = NULL, fontSize = 10,fontFamily = "serif", linkColour = "#ccc", nodeColour = "#fff",nodeStroke = "steelblue", textColour = "#111", opacity = 0.9,margin = NULL)
#Dendro Network
dendroNetwork(fit, height = 500, width = 1000, fontSize = 10,
linkColour = "#ccc", nodeColour = "#fff", nodeStroke = "steelblue",
textColour = "#111", textOpacity = 0.9, textRotate = NULL,
opacity = 0.9, margins = NULL, linkType = c("elbow", "diagonal"),
treeOrientation = c("horizontal", "vertical"), zoom = TRUE)
Here is how my server.R looks for just the graph section
output$sna <- renderPlot({
plot(g, layout=layout1)
})
And the user interface ui.r is as below
conditionalPanel(condition="input.tabselected==10",radioButtons("layout","Select the layout to be plotted",c("layout.fruchterman.reingold","kawai","graph_net","radialNetwork","dendroNetwork","diagonal Network")))
我怎樣才能實現繪製所有的不同的格式
相同的數據被列在這裏,它的大部分是文本非結構化你的數據報廢了評論http://ytcomments.klostermann.ca/
頭(data1,18) [1]「星球大戰召喚一個暈命運」
[2]「我認爲使命職責的稱呼叫的新的呼叫:ARK巨人之路」
[3]「Activision必須爲了視頻遊戲而銷燬。抵制媽的那些片。 「
[4] 」FuturisticðŸ~「
[5] 」1:09是,XM 53「
[6] 」讓我們只是不...「
[7]」請願書呼籲未來的CoD \ 「太空學員:芬妮戰\」 「
[8] 」這是很可悲......「
[9] 」BLEAH「
[10]」 我恨treyark現在的活動結束「
[11]‘這是不是一個鱈魚拖車’
[12]」這實際上是一場精彩的比賽,只是因爲你沒有得到腳踏實地24/7並不意味着你必須如果你不喜歡這個遊戲,那就哭吧然後去別的玩一些不憤怒關於它動,做我們一個忙,回去戰爭世界吧。「
[13]」 AHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHahahahahahahahahahah!噢,我的上帝,我很抱歉,我只是...... AHAHAHAHAHAHAHAHAHAHAHAHahahahah!加拿大建造牆壁! AHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAH AHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAH !!!真!?!?! 「AHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAH!」 [14]「我喜歡最後的r秒最好的」
[15]「我喜歡這個遊戲」
[16]「叢林是什麼?笑」
[17]‘爲aMatures評爲’
[18]‘菲爾普斯?’
請包括一些示例數據,使之重現性。 – HubertL
親愛的HubertL,我附上了一個樣本數據,以及我從哪裏下載數據的鏈接 –
如果我理解你的問題,你需要做的就是在'server.R'中使用'if'' else'塊檢查選擇了哪個單選按鈕,並據此調用不同的繪圖功能。 – krish