关于如何使用ggraph复制igraph

我有个问题

如何使用ggraph复制网络图。 绘图（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()

#库
图书馆（igraph）
种子（1）
#创建数据：
链接你到底想改变什么？他们有不同的方法来绘制不同的默认布局，等等，所以我不确定你希望两者之间有什么相同之处。我只想在本例中使用GGRAPHE复制plot（g）。这是正确的吗你可以在文章中添加更多的代码。但不清楚你在问什么，因为你似乎已经有了两个情节，但还没有说清楚你想要改变什么