Нарисовать контрпоток по взвешенному графику - PullRequest
Новая
       50

Нарисовать контрпоток по взвешенному графику

0 голосов
/ 03 сентября 2018

Я хотел бы нарисовать контр-график в соответствии с моими весами на графике. Я использовал следующий код для этого: 

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())

Однако он не учитывает вес графика. Мне нравится иметь плотность контрплота относительно весов. Есть идеи как их починить?

Чтобы достичь такого сюжета, я использовал приведенный выше код. Но если у вас есть лучшие предложения, я был бы рад услышать это.

...