如何为ggplot2中geom_link/geom_segment生成的箭头设置渐变颜色

你的代码存在参数位置错误：color=abs(x2)被放在了aes()函数的括号外部，不属于ggplot的美学映射规则范围内，因此不会将颜色和abs(x2)的数值绑定，只会使用geom_link默认的黑色。

修正后的代码如下：

# 将color参数移入aes()内部完成数据映射
p <- ggplot(data = arrows, aes(x = x1, y = y1, xend = x2, yend = y2, color = abs(x2))) + 
  geom_link(arrow = grid::arrow(length = grid::unit(0.2, 'cm')))
p + ggpubr::gradient_color(c("#00AFBB", "#E7B800", "#FC4E07"))

内容的提问来源于stack exchange，提问作者tzu