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)

Bắt đầu bằng cách chạy ví dụ R được cung cấp với ggplotly() và so sánh kết quả của scale_fill_discrete(labels = tolower) với scale_x_discrete(labels = tolower). Theo dõi cách ggplotly() xử lý hai điểm đầu vào scale này; công việc được xem là hoàn tất khi các nhãn fill được hàm được cung cấp biến đổi trong biểu đồ tương tác, giống như các nhãn x.