你有一份作业未领取

点击上方内容，关于我们

快要开学了呢

文献里看到的一个小图：

于是发在 生信星球 里当成一个小作业，结合我之前写的 igraph 和 ggraph 文章，给小伙伴们投稿。自己有空了顺便写了一下，结果就自己投我自己的稿了，哈哈哈。

下面是代码：

构建数据：

# 加载R包
library(igraph)

# 构建数据
da <- data.frame(from = c('Neuronal'),
                 to = c('Muscle','Gut','Parenchymal','Secretory','Neoblast','Epidermal'))

da

      from          to
1 Neuronal      Muscle
2 Neuronal         Gut
3 Neuronal Parenchymal
4 Neuronal   Secretory
5 Neuronal    Neoblast
6 Neuronal   Epidermal

绘图：

# 绘图

# 转换为graph对象
g <- graph_from_data_frame(da,directed = T)

# 节点颜色
col = c('#986D8E','#C1AC95','#64C9CF','#CD0A0A','#61B15A','#BA135D','violetred1')

# 绘图
plot(g,
     main = expression(italic('MTNR1B')), # 标题斜体
     layout = layout.star, # 星形布局
     vertex.size = 32, # 节点大小
     vertex.frame.color = 'black', # 节点边框颜色
     edge.color = 'black', # 边颜色
     edge.width = '2', # 变粗细
     edge.arrow.size = 1, # 箭头大小
     edge.arrow.width = 1.2, # 箭头宽度
     edge.arrow.mode = 2, # 箭头样式
     vertex.label.cex = 1, # 节点标签大小
     vertex.label.color = 'black', # 节点标签颜色
     vertex.color = col, # 节点颜色
     vertex.frame.color = 'black', # 节点边框颜色
     vertex.label.degree = c(1.5,1.5,1.5,1.5,1.5,1.5,1.5), # 节点标签对齐
     vertex.label.dist = c(-4,-4,-4,-4,-4,4,4), # 节点标签离节点距离
)

关键点 1：

这里颜色的顺序和节点的顺序是这样的：

关键点 2：

按照顺序给定颜色就行了，还有文字的位置调整结合 vertex.label.degree 和 vertex.label.dist 慢慢调就好了。

关键点 3：

使用 expression(italic('字符串')) 来给字符串变成斜体。

代码 我上传到 QQ 群 老俊俊生信交流群 文件夹里。欢迎加入。加我微信我也拉你进 微信群聊 老俊俊生信交流群 哦。

群二维码：