r - 如何使用 plotly subplots() 删除重复的图例条目

Question

使用 plotly 的 subplots() 时，如何删除图例中的重复项？

这是我的 MWE:

library(plotly)
library(ggplot2)
library(tidyr)

mpg %>%
  group_by(class) %>%
  do(p = plot_ly(., x = ~cyl, y = ~displ, color = ~trans, type = 'bar')) %>%
  subplot(nrows = 2, shareX = TRUE, titleX = TRUE) %>%
  layout(barmode = 'stack')

Answer 1

使用 tidyverse 的另一种解决方法。原始 MWE 添加了以下步骤:

将 trans 列转换为因子。

使用 tidyr 的 complete 为每个 class 组中的缺失因子水平填充(非 NA)虚拟值。

按照 M-M 的建议设置 showlegend 到 TRUE 单个组和 legendgroup 到 0x25184312 条目之间的子图链接。

library(plotly)
library(tidyverse)

mpg %>%
    mutate_at("trans", as.factor) %>%  
    group_by(class) %>%
    group_map(.f = ~{          
          ## fill missing levels w/ displ = 0, cyl = first available value 
          complete(.x, trans, fill = list(displ = 0, cyl = head(.x$cyl, 1))) %>%
          plot_ly(x = ~cyl, y = ~displ, color = ~trans, colors = "Paired", type = "bar",
              showlegend = (.y == "2seater"), legendgroup = ~trans) %>%
          layout(yaxis = list(title = as.character(.y)), barmode = "stack")
        }) %>%
    subplot(nrows = 2, shareX = TRUE, titleY = TRUE)