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

Question

我正在尝试使用 ggraph 包可视化一些网络。 我的网络有两种不同类型的边 A 和 B，它们具有不同的尺度。 我想按类型（我已经完成）为边缘着色，并通过值调节它们的不透明度。 但是，由于所有边缘都显示在一起并且由于 A 和 B 具有不同的比例，因此使用aes(alpha=value)会在 A 和 B 上使用整个比例，因此所有具有较小比例的边缘（此处为 A）实际上是不可见的. 如何分离 A 和 B 的 alpha 比例，以便 alpha 对应于它们的内部比例？ （即，当 A 边缘位于最大 A 且 B 边缘位于最大 B 时，alpha=1）

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

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