add a Convex Hull with module
有的文章会在模块化的群落里加上Convex Hull ,类似这样,如何实现呢,可以借助ggforce的geom_mark_hul
比如我们的示例代码稍作修改
library(ggforce) 主要是加了最后一行,的geom_mark_hull...
有的文章会在模块化的群落里加上Convex Hull ,类似这样,如何实现呢,可以借助ggforce的geom_mark_hul
比如我们的示例代码稍作修改
# add a Convex Hull library(ggforce) # for geom_mark_hull or geom_encircle p1 <- ggraph(g, layout = "fr") + geom_edge_link(aes(color = type, width = abs(as.double(correlation))), alpha = 0.9, show.legend = TRUE) + geom_node_point(aes(size = as.double(node.mean.abundance), fill = node.sub.module), alpha = 0.9, color = "#000000", show.legend = TRUE, shape = 21) + scale_size(range = c(2, 6), name = "degree") + scale_fill_manual(values = myColor, name = "module") + scale_edge_width_continuous(range = c(0.1, 0.3), name = "abs(correlation)") + scale_edge_colour_manual(name = "type", values = c(positive = "#e41a1c", negative = "#377eb8")) + theme_void() + geom_mark_hull(aes(x = x, y = y, group = node.sub.module, fill = node.sub.module), concavity = 1, expand = unit(5, "mm"), alpha = 0.1) # Adjust parameters as needed p1
主要是加了最后一行,的geom_mark_hull这个参数
得到的结果如下
其他参数可以看帮助调节
- 发表于 2024-07-11 09:20
- 阅读 ( 422 )
