同一图上不同类型边缘的不同美学尺度

Question

我正在尝试使用Ggraph软件包可视化一些网络。我的网络有两种不同类型的边缘A和B，它们具有不同的尺度。我想按类型（我已经完成）为边缘上色，并根据值调节它们的不透明度。但是，由于所有边缘都一起显示在一起，并且由于A和B具有不同的尺度，因此使用aes（alpha = value）在A和B上都使用整个比例，因此所有具有较小比例的边缘（这里a）实际上是看不见的。如何将A和B的alpha量表分开，以使Alpha对应其内部尺度？ （即，alpha = 1当a边缘在最大a处，b边缘在最大b）

我在下面包含一个小示例：

library(ggplot2)
library(igraph)
library(ggraph)
nodes <- data.frame(id=seq(1,5),label=c('a','b','c','d','e'))
edges <- data.frame(from=c(3,3,4,1,5,3,4,5),
                    to=  c(2,4,5,5,3,4,5,1),
                    type=c('A','A','A','A','A','B','B','B'),
                    value=c(1,.2,.5,.3,1,5,12,8))
net <- graph_from_data_frame(d=edges,vertices=nodes,directed=T)
ggraph(net,layout='stress') + 
  geom_edge_fan(aes(color=type,alpha=value)) + 
  geom_node_label(aes(label=label),size=5)

这是图当前的样子：

，我想要看起来像这样的东西：

理想情况下，我可以在r中执行此操作，并且在gimp中不做令人费解的编辑过程。

我希望使用set_scale_edge_alpha可以做到这一点，但是我在任何地方都找不到解决方案。我从在这里，这可以用ggnewscale ，但这似乎需要绘制两个单独的对象，而且似乎也没有一个专门更改边缘美学的函数。有没有简单的方法可以在不绘制两个重叠图的情况下进行操作？

谢谢！

Answer 1

在绘制之前，自己重新销售价值观可能会更好。您可以将值扩展到每个组中的0-1比例

edges <- edges %>% 
  group_by(type) %>% 
  mutate(value = scales::rescale(value))