主页 / coding / 问题 / 77975456
Accepted
bill999
Asked: 2024-02-11 11:15:24 +0800 CST

使用 alpha 时如何让 geom_curve 在箭头中显示恒定的透明度

  • 772

我的目标是在地图上创建曲线（连接点），一侧有一个箭头。这些线将是半透明的。似乎实现我的目标的最佳方法是使用geom_curve（尽管其他ggplot2解决方案也很棒）。

因此，假设我有这个玩具情节：

library(tidyverse)
library(ggplot2)
data <- data.frame(x = 4, y = 20, xend = 7, yend = 15)

ggplot(data) + geom_curve(aes(x = x, y = y, xend = xend, yend = yend),
    arrow = arrow(length = unit(0.17, "npc"), type="closed", angle=20),
    colour = "red",
    linewidth = 5,
    angle = 90, 
    alpha=.2,
    lineend = "butt",
    curvature = -0.4,
)

这将创建： 在此输入图像描述

我面临的问题是，当使用geom_curve半透明线时，当我希望箭头保持一致时，箭头会显示不同级别的透明度。我怎样才能防止这种情况发生？

这个问题与以下问题密切相关：阿尔法美学显示箭头的骨架而不是简单的形状 - 如何防止它？，只不过它使用geom_curve而不是geom_segment. 精彩的答案（https://stackoverflow.com/a/60587296/2049545）定义了一个新的几何形状（geom_arrowbar）。是否可以修改它以用于geom_curve？我还将标记另一个指向geom_gene_arrow（https://stackoverflow.com/a/60655018/2049545）的答案 - 这可以与曲线一起使用吗？或者还有其他可行的解决方案吗？

1 个回答

  1. Best Answer

    要真正正确地做到这一点，需要编写一个新版本curveGrob和一个全新的 geom。

    幸运的是，已经有人这么做了。Teunbrand未发布的ggarrowgeom_arrow_curve包包含一个，所以你可以这样做：

    remotes::install_github("teunbrand/ggarrow")

library(ggplot2)
library(ggarrow)

data <- data.frame(x = 4, y = 20, xend = 7, yend = 15)

ggplot(data) + 
  geom_arrow_curve(aes(x = x, y = y, xend = xend, yend = yend),
              colour = "red",
              linewidth = 5,
              angle = 90, 
              alpha = 0.2,
              lineend = "butt",
              curvature = -0.5)

    在此输入图像描述

    • 2

相关问题