将颜色渐变应用于ggraph'；s'geom_连接束`

上下文

我正在使用

ggraph

将节点（树的叶子）排列成圆形树状图，然后在一些节点之间添加连接（使用

geom\u conn\u bundle

使用分层绑定）：

库（ggraph）
图书馆（igraph）
#示例数据
边一些用于绘制边的
ggraph
geom，包括
geom\u conn\u bundle
和
geom\u edge\u diagonal
，都有一个计算的索引统计。它是一个从0到1的数字，表示点沿边的距离。请注意，这些几何图形的简化版本（
geom_*0
）不计算它。
ggraph
作者在文章中提到了它

在这种情况下，将索引
stat（index）
映射到包的
aes
中的颜色，然后使用（
scale\u edge\u color\u gradient
，而不是我最初尝试的
scale\u color\u gradient
）设置渐变比例

在示例图片中，我无法判断宽度是否也进行了缩放，但同样可以，例如
edge\u width=stat（index）

库（ggraph）
图书馆（igraph）
ggraph（树，布局=“树状图”，圆形=真）+
几何边对角线（α=0.2）+
几何连接束（aes（颜色=统计（索引）），
数据=get_con（从=23到=42），
α=0.8，
宽度=3，
#color=“天蓝色”，
张力=0.9
) +
缩放\边缘\颜色\渐变（低=“绿色”，高=“红色”）


创建于2019-03-09，由（v0.2.1）创建。
我们需要一个能够真正提供帮助的网站。感谢您花时间发表评论。我在问题上加了三行R代码。它们生成示例数据。不确定这是否有助于人们回答，因为对我来说，问题似乎更多地是关于
ggraph
而不是关于我（或任何）特定的实现：）除此之外，你可以使用
geom\u conn\u bundle2（）
在端点的缩放值之间插值。请参阅文档以了解更多信息
library(ggraph)
library(igraph)

# Example data
edges <- data.frame(from="root", to=paste("leaf", seq(1,100), sep=""))
vertices <- data.frame(name = unique(c(as.character(edges$from), as.character(edges$to))) ) 
tree <- graph_from_data_frame( edges, vertices=vertices )

# Drawing nodes
pr <- ggraph(tree, layout = "dendrogram", circular = TRUE) + 
    geom_edge_diagonal(alpha = 0.2)

# Example connection
pr <- pr + geom_conn_bundle(
    data = get_con(from = 23, to = 42),
    alpha=0.8, 
    width=3, 
    colour="skyblue", 
    tension = 0.9
)
print(pr)