从ggplotly图例中删除填充颜色级别

Question

是否有一种方法可以消除ggplotly图例中的填充色，因为它在构面上是多余的？换句话说，确实有四个组合，但是我只想显示图例中的Alpha级别，因为刻面会告诉您与填充值相同的信息。我不需要解释红色和绿色的含义，因为红色仅适用于构面group3==0，而绿色仅适用于构面group3==1。

---
title: "Example"
runtime: shiny
output:
  flexdashboard::flex_dashboard:
    vertical_layout: fill
---

```{r}
  library(tidyverse)
  library(plotly)
  library(flexdashboard)
```


### Chart 1

```{r}
  f <- list(family = "Poppins")
  a <- list(tickfont = f)

  p <- fortify(forecast::gold) %>%
       mutate(group1 = sample(0:1, n(), replace=TRUE),
              group2 = sample(0:1, n(), replace=TRUE),
              group3 = sample(0:1, n(), replace=TRUE)
              ) %>%
    ggplot(., aes(factor(group1), y, alpha=factor(group2), fill=factor(group3))) + 
         geom_col() + 
         scale_alpha_manual(values = c(.5, 1)) +
         facet_wrap(~group3)

  ggplotly(p)
```

Answer 1

我从Google到达这里是因为在调用ggplotly()时给出了一个没有的图例。

如果影响到其他任何人，答案是：

theme(legend.position='none')

据了解。