全文鏈接：http://tecdat.cn/?p=30478

原文出處：拓端數(shù)據(jù)部落公眾號

復(fù)雜網(wǎng)絡(luò)簡介

現(xiàn)實(shí)世界中充滿了網(wǎng)絡(luò)世界，鐵路線路網(wǎng)絡(luò)、航空網(wǎng)絡(luò)和人際關(guān)系網(wǎng)絡(luò)。復(fù)雜網(wǎng)絡(luò)是大量真實(shí)復(fù)雜系統(tǒng)的拓?fù)潢P(guān)系。在復(fù)雜網(wǎng)絡(luò)分析的幫助下，我們期望將復(fù)雜的東西簡化，找到隱藏的拓?fù)潢P(guān)系的新結(jié)構(gòu)，找到節(jié)點(diǎn)與節(jié)點(diǎn)之間的規(guī)律，同時將數(shù)據(jù)可視化。本文中我們被要求對上海公交路線進(jìn)行可視化。

讀取數(shù)據(jù)

ljhdat1=readLines("E:/shanghai_1.txt" )ljhdat2=readLines("E:/shanghai_2.txt")ljhdat3=readLines("E:/shanghai_3.txt")ljhdat4=readLines("E:/shanghai_4.txt")ljhdat5=readLines("E:/shanghai_5.txt")

建立巴士信息庫

for(i in 1:length(ljhdat1)){ ? ?if(ljhdat1[i]=="")bus=c(bus,ljhdat1[i-1])#提取每個巴士的路線信息 ?

建立路線信息

分割路線得到站點(diǎn)信息

route[[1]]=route[[1]][-which(route[[1]]=="#")]#刪除#號

建立鄰接矩陣

library(igraph) d = data.frame(route[[1]][1:n-1] ,route[[1]][2:n ]

分割所有路線得到站點(diǎn)信息

for(i in 1:length(bus)){ route[[i]]=unlist(strsplit(bus[i],split=" "))[-1]#分割巴士站點(diǎn)信息

繪制網(wǎng)絡(luò)圖

最受歡迎的見解

1.R語言動態(tài)圖可視化：如何、創(chuàng)建具有精美動畫的圖

2.R語言生存分析可視化分析

3.Python數(shù)據(jù)可視化-seaborn Iris鳶尾花數(shù)據(jù)

4.r語言對布豐投針（蒲豐投針）實(shí)驗(yàn)進(jìn)行模擬和動態(tài)

5.R語言生存分析數(shù)據(jù)分析可視化案例

6.r語言數(shù)據(jù)可視化分析案例：探索brfss數(shù)據(jù)數(shù)據(jù)分析

7.R語言動態(tài)可視化：制作歷史全球平均溫度的累積動態(tài)折線圖動畫gif視頻圖

8.R語言高維數(shù)據(jù)的主成分pca、 t-SNE算法降維與可視化分析案例報(bào)告

9.python主題LDA建模和t-SNE可視化