ggplot转ggplotly后rect标注图层顺序反转问题求解

使用ggplot创建包含多个rect类型标注的柱状图时，标注被设置在柱子后方（符合预期），但将图转换为ggplotly后，标注却出现在柱子前方。请问能否通过ggplotly保留原有绘图顺序，或在转换后调整图层顺序？

示例代码 #

name = c("Phil", "Ian", "Leslie", "Darla", "Silvia", "Ron", "Emily", "Jack")
score = c(10, 12, 15, 30, 35, 40, 55.2, 75)
test1 <- data.frame(name, score)

library(ggplot2)
library(plotly)

plt <- ggplot(test1, aes(x=name, y=score)) +
  
  scale_x_discrete() +
  
  annotate("rect", xmin=0, xmax=9, ymin=0, ymax=20, fill="#2eb82e", alpha=0.4) +
  annotate("rect", xmin=0, xmax=9, ymin=20, ymax=50, fill="#ff0000", alpha=0.4) +
  
  geom_bar(stat="identity")

ggplotly(plt)

效果对比 #

• 期望效果（ggplot绘制）：
  
• 转换为ggplotly后的效果（图层顺序改变）：
  

方法1：用geom_rect替代annotate（推荐） #

annotate生成的元素在ggplotly中会被默认置于上层，换成geom_rect并绑定单独的数据框，能让ggplotly正确识别图层顺序。修改后的代码如下：

name = c("Phil", "Ian", "Leslie", "Darla", "Silvia", "Ron", "Emily", "Jack")
score = c(10, 12, 15, 30, 35, 40, 55.2, 75)
test1 <- data.frame(name, score)

# 为矩形标注创建独立数据框
rect_df <- data.frame(
  xmin = 0, xmax = 9,
  ymin = c(0, 20), ymax = c(20, 50),
  fill = c("#2eb82e", "#ff0000")
)

library(ggplot2)
library(plotly)

plt <- ggplot(test1, aes(x=name, y=score)) +
  scale_x_discrete() +
  # 将geom_rect放在geom_bar之前，确保图层顺序正确
  geom_rect(data = rect_df, aes(xmin=xmin, xmax=xmax, ymin=ymin, ymax=ymax, fill=fill), 
            inherit.aes = FALSE, alpha=0.4) +
  geom_bar(stat="identity") +
  # 隐藏矩形的图例（按需选择）
  guides(fill = "none")

ggplotly(plt)

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

如果必须使用annotate，可以在转换后修改plotly对象的图层列表，将矩形图层移到柱状图图层之前：

# 生成原始ggplot和ggplotly对象
name = c("Phil", "Ian", "Leslie", "Darla", "Silvia", "Ron", "Emily", "Jack")
score = c(10, 12, 15, 30, 35, 40, 55.2, 75)
test1 <- data.frame(name, score)

library(ggplot2)
library(plotly)

plt <- ggplot(test1, aes(x=name, y=score)) +
  scale_x_discrete() +
  annotate("rect", xmin=0, xmax=9, ymin=0, ymax=20, fill="#2eb82e", alpha=0.4) +
  annotate("rect", xmin=0, xmax=9, ymin=20, ymax=50, fill="#ff0000", alpha=0.4) +
  geom_bar(stat="identity")

p <- ggplotly(plt)

# 分离矩形图层（scatter类型）和柱状图图层（bar类型）
rect_layers <- p$x$data[sapply(p$x$data, function(x) x$type == "scatter")]
bar_layers <- p$x$data[sapply(p$x$data, function(x) x$type == "bar")]

# 重新组合图层：先矩形，后柱状图
p$x$data <- c(rect_layers, bar_layers)

# 输出调整后的图表
p

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