ggplotly转换后多边形边框透明、白色内部丢失的解决办法？

ggplotly在转换ggplot对象时，图层渲染逻辑和原生ggplot存在差异，核心问题点：

• 用geom_polygon设置fill = "transparent"时，会错误地将边框的透明度也继承为透明，导致顶层边框消失
• 底层白色填充的多边形，可能因ggplotly的图层顺序解析偏差，被后续散点或顶层多边形覆盖，或是填充属性未被正确转换识别

方法1：用geom_path单独绘制顶层边框（推荐） #

直接用geom_path替代geom_polygon绘制高亮区域的边框——geom_path只有线条属性，不会受填充透明度的干扰，同时能保证边框始终在散点上层。

示例代码：

library(ggplot2)
library(plotly)

# 模拟数据
set.seed(123)
df <- data.frame(x = rnorm(50), y = rnorm(50), label = paste0("Point ", 1:50))

# 高亮区域多边形数据
poly_df <- data.frame(
  x = c(-1, 1, 1, -1),
  y = c(-1, -1, 1, 1)
)

# 调整后的ggplot代码
p <- ggplot(df, aes(x, y, label = label)) +
  # 底层白色填充多边形
  geom_polygon(data = poly_df, aes(x, y), fill = "white", color = NA) +
  # 散点层
  geom_point() +
  # 用geom_path单独绘制顶层边框，避免填充影响
  geom_path(data = poly_df, aes(x, y), color = "red", size = 1.5)

# 转换为ggplotly，保留悬停标签
ggplotly(p, tooltip = "label")

方法2：转换后手动调整ggplotly的图层属性 #

如果必须保留geom_polygon的实现方式，可以在转换后手动定位并修改对应图层的填充和边框属性：

# 原出现问题的ggplot代码
p <- ggplot(df, aes(x, y, label = label)) +
  geom_polygon(data = poly_df, aes(x, y), fill = "white", color = NA) +
  geom_point() +
  geom_polygon(data = poly_df, aes(x, y), fill = "transparent", color = "red", size = 1.5)

# 转换为ggplotly
p_ly <- ggplotly(p, tooltip = "label")

# 修复底层白色多边形：设置填充颜色和不透明度
p_ly$x$data[[1]]$fillcolor <- "white"
p_ly$x$data[[1]]$opacity <- 1

# 修复顶层边框：重新设置边框颜色和不透明度
p_ly$x$data[[3]]$line$color <- "red"
p_ly$x$data[[3]]$opacity <- 1

# 输出调整后的图形
p_ly

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