一径簿、參數(shù)說明
echartr(data, x, <y>, <series>, <t>, <type>, <subtype>)
● 數(shù)據(jù)結(jié)構(gòu):
● 矩陣模式: 一個數(shù)據(jù)框，其中一列為節(jié)點名俘种，余下的是一個矩陣秤标。將節(jié)點名賦值給x, 矩陣賦值給y。
● 節(jié)點/聯(lián)結(jié)模式：一個節(jié)點數(shù)據(jù)框[x, NA, series, weight]和一個聯(lián)結(jié)數(shù)據(jù)框[x, x1, relation, value]宙刘。用rbind將兩者合并苍姜。如果未提供節(jié)點數(shù)據(jù)框，recharts會基于聯(lián)結(jié)數(shù)據(jù)框自動構(gòu)建悬包。相應(yīng)地衙猪，提供[x, x1, series/relation, weight/value]數(shù)據(jù)框。
● 力導(dǎo)向布局圖和和弦圖可通過工具箱按鈕快速切換玉罐。
二屈嗤、數(shù)據(jù)準備：
grpmtx <- matrix(c(11975,5871,8916,2868,1951,10048,2060,6171,8010,16145,8090,8045,1013,990,940,6907),
byrow = TRUE, nrow = 4)
grpmtx <- as.data.frame(grpmtx)
names(grpmtx) <- paste0('Group',1:4)
grpmtx$Name <- paste0('Group',1:4)
knitr::kable(grpmtx, align=c('lllll'))
三潘拨、節(jié)點Node和聯(lián)結(jié)Link模式
str(yuNetwork)
yuNetwork數(shù)據(jù)集包含一個節(jié)點數(shù)據(jù)框(nodes)及一個聯(lián)結(jié)數(shù)據(jù)框(links)吊输。可以合并為一個數(shù)據(jù)框铁追。
● nodes節(jié)點:
○ name: 節(jié)點名稱
○ series: 節(jié)點所屬數(shù)據(jù)系列
○ value: 節(jié)點的重要性分值
● links聯(lián)結(jié):
○ source和target: 定義了聯(lián)結(jié)的方向
○ relation: 聯(lián)結(jié)的名稱
○ weight: 聯(lián)結(jié)的重要性分值
nodes <- cbind(yuNetwork$nodes[,1],NA,yuNetwork$nodes[,2:3],stringsAsFactors=FALSE)
names(nodes) <- names(yuNetwork$links)
yu <- rbind(yuNetwork$links,nodes,stringsAsFactors=FALSE)
四季蚂、圖表展現(xiàn)
1. 曲線聯(lián)結(jié)：
設(shè)type為’force’
echartr(yu, c(source,target), weight, relation, type='force') %>%
setTheme(palette=c('tan3','green3','green2','lawngreen','olivedrabl'))
2. 直線聯(lián)結(jié)圖
設(shè)type為’force_line’
echartr(grpmtx, Name, c(Group1, Group2, Group3, Group4),type='force_line')
echartr(yu, c(source,target), weight, relation, type='force_line') %>%
setTheme(palette=c('tan3','green3','green2','lawngreen','olivedrabl'))
3. 增加時間軸
echartr(deutsch, c(club,player), weight, role, t=year, type='force', sub='arrow')
更多功能請戳官方鏈接：madlogos.github.io/recharts/Basic_Plots_01_Scatterplot_cn.html#-en
