r - 关于如何使用 ggraph 复制 igraph
问题描述
我有个问题。
如何使用 ggraph 复制网络图。plot(g) 来自 igraph 和 ggraph() 来自 ggraph 包。我得到了一个不同的数字。我正在使用权重,但是如何使用 ggraph 复制图表?
# library
library(igraph)
set.seed(1)
# create data:
links <- data.frame(
source=c("A","A", "A", "A", "A","J", "B", "B", "C", "C", "D","I"),
target=c("B","B", "C", "D", "J","A","E", "F", "G", "H", "I","I"),
weight=(sample(1:20, 12, replace=T))
)
links$weight
nodes <- data.frame(
name=LETTERS[1:10],
carac=c( rep("young",3),rep("adult",2), rep("old",5))
)
# Turn it into igraph object
network <- graph_from_data_frame(d=links, vertices=nodes, directed=F)
# Make a palette of 3 colors
library(RColorBrewer)
coul <- brewer.pal(3, "Set1")
# Create a vector of color
my_color <- coul[as.numeric(as.factor(V(network)$carac))]
library(ggraph)
library(tidygraph)
#
g<-tbl_graph(nodes, links, directed = FALSE)
# igraph
plot(g)
#ggraph
g %>% ggraph() +
geom_node_point() +
geom_edge_link()+geom_node_point(aes(colour = carac))+ geom_node_text(aes(label = name), repel = TRUE) +
theme_graph()
解决方案
推荐阅读
- modelica - 以可变频率测量平均值
- c++ - ld:尝试编译项目时找不到架构 x86_64 的符号
- python - 从文本文件中的嵌套字典中提取值到 JSON
- php - 使用 2 个条件验证 textarea 联系表 7
- java - 多个一对一自引用关系的 JPA 注释
- python - 如何迭代列表python
- ios - 如何将Object参数数组快速传递给Alamofire
- blazor - NavigateTo 不会立即显示新页面
- python - 我应该从 Python 运行单个并行化 C 脚本还是运行一组并行的串行 C 脚本?
- android-room - RoomDB 是否支持 dropAllTables() 和 createAllTables()?