ggplotly does not respect the labels argument in ggplot2:scale_fill_manual

ggplotly does not respect the labels argument in ggplot2:scale_fill_manual.

library(tidyverse)

plot_data <- ggplot2::diamonds %>%
  mutate(cut = stringr::str_to_sentence(cut)) %>%
  group_by(cut, clarity) %>%
  summarise(average_price = mean(price)) %>%
  mutate(average_price = round(average_price / 1000, 1)) %>%
  ungroup()

plot <- ggplot(data = plot_data, aes(average_price, cut, fill = clarity)) + 
  geom_col() +
  coord_flip() +
  scale_fill_manual(values = viridis::viridis(8), labels = LETTERS[1:8])

plot

plotly::ggplotly(plot)

Bắt đầu bằng cách chạy ví dụ R được cung cấp với ggplotly và so sánh các nhãn chú giải của nó với biểu đồ ggplot2. Truy tìm điểm vào của quá trình chuyển đổi ggplotly cho scale_fill_manual và xác minh cách đối số labels được xử lý; được coi là hoàn thành khi biểu đồ đã chuyển đổi hiển thị LETTERS[1:8] dưới dạng các nhãn tô màu.