桑基圖

R包networkD3

示例

edges

nodes

edges$edgegroup = as.character(edges$from)
sankeyNetwork(
  Links = edges, Nodes = nodes, 
  Source = "from", Target = "to", 
  NodeID = "label", Value = "value",
  LinkGroup = "edgegroup",
  fontSize = 16, unit = "Letter(s)")
image.png

nodeID必須從0開始

R包ggplot2

file
library(ggalluvial)
library(ggplot2)

df<-read.table("sangji-GO.txt",header = T,sep = "\t")

ggplot(data =crc,aes(axis1=celltype,axis2=Description,weight=Count))+geom_stratum() +  #沖擊圖中的堆疊柱形圖
    geom_flow(aes.flow = 'forward') + #連接線
    geom_text(stat = 'stratum', infer.label = TRUE, size = 4)+ #填充字體
    geom_alluvium(aes(fill = celltype))+ #填充顏色
    theme_bw()+theme(text = element_text(size=14),legend.position = "NULL",panel.background = element_blank(),line = element_blank(), axis.text.y = element_blank())+
    scale_x_continuous(limits=c(0.8,2.5))#調(diào)整x軸的顯示
桑基圖
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
平臺聲明：文章內(nèi)容（如有圖片或視頻亦包括在內(nèi)）由作者上傳并發(fā)布，文章內(nèi)容僅代表作者本人觀點，簡書系信息發(fā)布平臺，僅提供信息存儲服務(wù)。

推薦閱讀更多精彩內(nèi)容