使用子图循环遍历 R Plotly 并隐藏除一个之外的所有图例

Question

我需要循环遍历因子的 i 次迭代，并且每个因子都需要绘制为子图中的一个图。我想做的是为每个迭代条隐藏第一个图例，并使用 legendgroup 将所有图例联系在一起。这是我到目前为止所做的：

library(plotly)
library(dplyr)

mtcars %>%
  mutate(vs = as.factor(vs)) %>%
  group_split(cyl) %>%
  lapply(function(i) {

    #show.legend <- ifelse(i == 1, TRUE, FALSE)

    show.legend <- if(i == 1) {TRUE} else {FALSE}

    plot_ly(
      data = i
      ,x = ~gear
      ,y = ~mpg
      ,color = ~vs
      ,type = "bar"
      ,legendgroup = ~vs
    ) %>%
      layout(
        barmode = "stack"
        ,showlegend = show.legend
      )
  }) %>%
  subplot(
    nrows = NROW(.)
    ,shareX = TRUE
    ,shareY = TRUE
    ,titleX = TRUE
    ,titleY = TRUE
    ,margin = 0.05
  )

但是这会产生错误并且没有图例：

Warning messages:
1: In if (i == 1) { :
  the condition has length > 1 and only the first element will be used

如果我使用show.legend <- ifelse(i == 1, TRUE, FALSE)（上面已注释掉），我会得到多个图例而不是一次。

我知道我可以执行以下操作，但我需要循环执行此操作。

p1 <- plot_ly(blah, showlegend = TRUE)
p2 <- plot_ly(blah, showlegend = FALSE)
P3 <- plot_ly(blah, showlegend = FALSE)

subplot(p1,p2,p3)

我相信我没有正确调用 i 迭代。作为另一种选择，我尝试了case_when：

show.legend <- case_when(
      i == 1 ~ TRUE
      ,i != 1 ~ FALSE
    )

但是，这会产生与 ifelse 相同的结果。

Answer 1

您的代码中有两个问题：

1. i 不是 1:3 而是您当前正在通过 lapply 迭代的小标题（请参阅下面的 seq_along）。 这就是您收到警告的原因：

在 if (i == 1) { : 条件长度 > 1 并且只有第一个 将使用元素

1. showlegend 必须是 plot_ly 的参数，而不是 layout 的参数，因为 subplot 总是采用 one 中的 layout。请参阅?subplot 及其参数which_layout。

稍后在绘图序列中找到的布局选项将覆盖 在序列前面找到的选项

---

这就是我认为你所追求的：

library(plotly)
library(dplyr)

tibble_list <- mtcars %>%
  mutate(vs = as.factor(vs)) %>%
  group_split(cyl)

lapply(seq_along(tibble_list), function(i) {
  show_legend <- if (i == 1) {TRUE} else {FALSE}
  plot_ly(
    data = tibble_list[[i]],
    x = ~ gear,
    y = ~ mpg,
    color = ~ vs,
    type = "bar",
    legendgroup = ~ vs,
    showlegend = show_legend
  ) %>% layout(barmode = "stack")
}) %>% subplot(
  nrows = NROW(.),
  shareX = TRUE,
  shareY = TRUE,
  titleX = TRUE,
  titleY = TRUE,
  margin = 0.05,
  which_layout = 1
)

请查找官方示例here。

Answer 2

library(plotly)
library(dplyr)

    ## store plot as variable p
        p <- mtcars %>%
            mutate(vs = as.factor(vs)) %>%
            group_split(cyl) %>%
            lapply(function(i) {
                plot_ly(
                    data = i
                    ,x = ~gear
                    ,y = ~mpg
                    ,color = ~vs
                    ,type = "bar"
                    ,showlegend = TRUE ## include all legends in stored variable
                ) %>%
                    layout(
                        barmode = "stack"
                    )
            }) %>%
            subplot(
                nrows = NROW(.)
                ,shareX = TRUE
                ,shareY = TRUE
                ,titleX = TRUE
                ,titleY = TRUE
                ,margin = 0.05
            )
    ## remove unwanted legends from plot
        for (i in seq(3, length(p[["x"]][["data"]]))) {
            p[["x"]][["data"]][[i]][["showlegend"]] <- FALSE
        }
    ## show plot
        p