Missing aesthetic on hover in geom_rect()

Ploltly is not showing in the hover all the variables used in aes().

Missing hover info with geom_rect:

library(ggplot2)
library(plotly)
test <- data.frame(C1 = c(2, 3), C2 = c(3, 4), C3 = c(2, 3), C4 = c(1, 4), C5 = c('A', 'B'))
ggplotly( ggplot(data=test) + geom_rect(aes(xmin=C1, xmax=C2, ymin=C3, ymax=C4, fill=C5)))

Result:

Complete hover info with geom_segment:

 ggplotly(ggplot(data=test) + geom_segment(aes(x=C1, xend=C2, y=C3, yend=C4, color=C5)))

Result:

首先使用 ggplot2 和 plotly 运行提供的 R 示例，并比较 geom_rect() 与 geom_segment()。追踪 plotly.R 包中的 geom_rect 转换和 hover 数据处理；完成的标准是，在 aes() 中映射的每个变量（包括 C1 到 C5）都出现在矩形的 hover 信息中。