用R画弧形图(Arc Diagram)
在前几篇里我用cytoscape软件构建了网络图(如何将WGCNA导出的基因共表达网络进行可视化),见下图。但是看上去好像什么信息也看不出来,因为基因和基因之间的connectivity实在是太多了,全都糊在一起,看不出有哪些基因位于网络的中心,或者说看不出哪些基因和其他基因的联系很多。
当然你可以把cytoscape里的每一个基因的degree.layout导出来,里面有每一个基因有多少条edge与其相连,然后做一个bar图(用R画Circular barplot图),但是对于图里的数字(比如60和20)并没有非常直观的展示。偶然看到简书里一篇文章写的非常好(R数据可视化18:弧形图),做出的图形是这样的:
(一)弧形图需要的数据
弧形图需要的数据是从cytoscape里导出的,你也可以自己制作(如果数据不多的话):
导出的表长这样:
我们需要的是这个表的“name”列。你需要在excel里把“ (interacts with) ”替换成空格(注意括号两边也有空格),这一步在excel里相当简单,就不赘述了。替换完成后的表长这样:
(二)数据的预处理
> x = read.csv("turquiose_weight_morethan0.35_edge_interaction_edited.csv",header = T,sep = ",")
#先从原始矩阵里提取信息,并构建需要的数据框
> data = as.data.frame(x$name)
> colnames(data) = "V"
#把这列按照空格分成2列
> library(stringr)
> data <- str_split_fixed(data$V," ", 2)
> colnames(data) = c("from","to")
#给表格加一列,这一列是注明两个基因间是否有作用,如果有作用,标注1,没有的话标注0
#这里每一行都是2个基因,所以我们要加一列“1”
> to_add = as.data.frame(rep(1,1245)) #每一行都是1,一共是1245行
> colnames(to_add) = "value"
> data = cbind(data,to_add)
> head(data)
from to value
1 Spry1 Fbln1 1
2 Pdgfrl Fbln1 1
3 Dcn Rgl1 1
4 Spry1 Prelp 1
5 Spry1 Cp 1
6 Spry1 Tgm2 1
现在得到的表格就是我们需要的。
(三)计算基因的interact次数(edge条数)
> library(tidyverse)
> c(as.character(data$from), as.character(data$to)) %>%
as_tibble() %>%
group_by(value) %>% #按照value进行分组
summarize(n=n()) -> co
#修改列名
> colnames(co) <- c("name", "n")
#排序,按照降序排列
> co <- co[order(co$n,decreasing = T),]
#分组(for color)
> A = sum(co$n >=60)
> B = sum(co$n >=50) - A
> C = sum(co$n >=40) - A - B
> D = sum(co$n >=30) - (A+B+C)
> E = sum(co$n >=20) - (A+B+C+D)
> f = sum(co$n >=10) - (A+B+C+D+E)
> G = sum(co$n < 10)
#把分组信息加到表里
> co <- data.frame(
co,
group=c(rep('A', A), rep('B', B), rep('C', C), rep('D', D),rep('E',E),rep('F',f),rep('G',G))
)
> head(co)
name n group
1 Spry1 68 A
2 C1ra 67 A
3 Hmox1 67 A
4 Timp3 55 B
5 Rgl1 54 B
6 Prelp 53 B
(四)给基因鉴定“小社区”
> library(igraph)
> mygraph <- graph_from_data_frame(data, vertices = co, directed = FALSE)
# 鉴定社区
> com <- walktrap.community(mygraph)
#重新整理数据
> coline <- co %>%
mutate(grp = com$membership) %>%
arrange(grp) %>%
mutate(name=factor(name, name))
> mygraph2 <- graph_from_data_frame(data, vertices = coline, directed = FALSE)
(五)作图
#作图
> library(RColorBrewer)
> library(ggraph)
> mycolor<-colorRampPalette(brewer.pal(7, "Set3")) #调色板请看:https://www.datanovia.com/en/blog/the-a-z-of-rcolorbrewer-palette/
> ggraph(mygraph2, layout="linear") +
geom_edge_arc(edge_colour="black", edge_alpha=0.2, edge_width=0.3, fold=TRUE) +
geom_node_point(aes(size=n, color=as.factor(grp), fill=co$group), alpha=0.6) +
scale_size_continuous(range=c(1,10)) +
scale_color_manual(values=mycolor(50)) +
geom_node_text(aes(label=name), angle=90, hjust=1, nudge_y = -1.1, size=2.8) +
theme_void() +
theme(
legend.position="none",
plot.margin=unit(c(0,0,0.5,0), "null"),
panel.spacing=unit(c(0,0,2,0), "null") ) +
expand_limits(x = c(-3, 1.2), y = c(-14, 1.2))
版权声明:
作者:lichengxin
链接:https://www.techfm.club/p/5506.html
来源:TechFM
文章版权归作者所有,未经允许请勿转载。
THE END
二维码
共有 0 条评论