保持geom_rect半透明区域，但彩色轮廓

我正在尝试使用 R 中的plotly 创建一个带有矩形的交互式绘图。

我的主要想法正在发挥作用。然而，我所坚持的是允许每个矩形都有一个彩色轮廓（如数据的“填充”列中所描绘的），但是是一个完全透明的区域。

以下是正在运行的 MWE：

library(ggplot2)
library(dplyr)
library(plotly)
set.seed(1)
data <- data.frame(Name = paste0("Name",seq(1:10)), xmin = runif(10, 0, 1), xmax = runif(10, 1, 2), ymin = runif(10, 0, 1), ymax = runif(10, 1, 2), fill = sample(c("black","purple"),10, replace=TRUE) )

p <- ggplot(data, aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax, fill = NULL, colour = fill, text = Name)) + geom_rect(size = 0.3, alpha = 0.5) + scale_colour_identity() + theme_bw()
ggplotly(p, tooltip = "text") %>% layout(dragmode = "select")

我可以将鼠标悬停在每个矩形上，并向我指示数据的名称变量。此外，数据的填充变量决定了矩形的颜色。但是，我无法使矩形透明。

I tried:

1）将 fill=NULL 更改为 fill=NA，但这会导致错误：

Error in seq.default(h[1], h[2], length.out = n) : 
  'to' cannot be NA, NaN or infinite

2）将alpha=0.5更改为alpha=0.01，但这使得每个矩形的轮廓也相当透明。

是否可以仅在矩形区域完全透明的情况下创建这种类型的绘图？我真的希望保持矩形的轮廓是彩色的，并且能够响应不同的 alpha 值。

如果您对我有任何建议，我会很高兴听到！

其实很简单。只需使用透明颜色作为填充参数即可fill=alpha("grey",0)为了geom_rect函数，您将得到想要的结果。

您可以通过如下修改代码来做到这一点

p <- ggplot(data, aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymax, colour = "purple", text = Name)) + geom_rect(size = 0.3, alpha = 0.5,fill=alpha("grey",0)) + scale_colour_identity() + theme_bw()
ggplotly(p, tooltip = "text") %>% layout(dragmode = "select")

The output looks like