ggplotly() ignores function applied to fill labels

When passing a function to the labels argument of scale_fill_discrete(), ggplotly() does not apply this function to the labels. This works fine, however, when passing the same function to scale_x_discrete().

df <- data.frame(a = c("A", "B"), b = c(7, 9))

p <- ggplot(df, aes(a, b, fill = a)) +
  geom_col() +
  scale_x_discrete(labels = tolower) +
  scale_fill_discrete(labels = tolower)
p

plotly::ggplotly(p)

首先使用 ggplotly() 运行提供的 R 示例，并将 scale_fill_discrete(labels = tolower) 的结果与 scale_x_discrete(labels = tolower) 的结果进行比较。跟踪 ggplotly() 如何处理这两个 scale 入口；当交互式绘图中的 fill 标签像 x 标签一样由所提供的函数进行转换时，即表示完成。