r - 根据加权图绘制对应图

Question

我想根据我在图中的权重绘制一个反图。我为此使用了以下代码：

edgelist <- read.table(text = "
V1 v2 weight
                       A B 1
                       B C 8
                       C D 6
                       D E 9
                       C F 12
                       F G 15",header=T)
g <- graph_from_data_frame(edgelist)

library(intergraph)

gnet<-asNetwork(g)

library(ggnetwork)
library(ggplot2)

#contour plot
ggnetwork(gnet) %>%
  ggplot(aes(x = x, y = y, xend = xend, yend = yend)) +
  geom_edges(aes(size = weight),color = "#c7ceab") +
  geom_nodes(color = "red", size = 9.25) +
  geom_nodetext(aes (label = vertex.names), size=1.75) +
  theme_blank() +
   geom_density_2d()
  +  theme(axis.text = element_blank(),
                            axis.title = element_blank(),
                            panel.background = element_rect(fill = "white"),
                            panel.grid = element_blank())

但是，它不考虑图形的权重。我喜欢关于权重的反情节的密度。知道如何解决它们吗？

为了达到这样的情节，我使用了上面的代码。但如果你有更好的建议，我很乐意听到。