r - 绘图图例条目显示/隐藏所有绘图字符

Question

假设我正在构建一个显示三个不同组(此处由颜色指定)的散点图。我可以通过单击图例中的组来单独显示/隐藏每个组。

library(ggplot2)
library(plotly)
d <- data.frame("a" = sample(1:50, 20, T), "b" = sample(1:50, 20, T), 
                        "col" = factor(sample(1:3, 20, T)))
        gg <- ggplot() + geom_point(aes(x = a, y = b, color = col), data = d)
        gg

plotly_build(gg)

有没有办法向图例添加一个按钮来显示/隐藏所有点？

Answer 1

这可能更接近最初要求的内容，但它只是一个“按钮”而不是图例条目，因此放置很困难。

library(ggplot2)
library(plotly)
d <- data.frame("a" = sample(1:50, 20, T), "b" = sample(1:50, 20, T), 
                "col" = factor(sample(1:3, 20, T)))
gg <- ggplot() + geom_point(aes(x = a, y = b, color = col), data = d)
gg

plotly_build(gg) %>%
layout(updatemenus = list(
    list(
        type = "buttons",
        direction = "right",
        xanchor = "center",
        yanchor = "top",
        showactive = FALSE,
        x = 1.05,
        y = 0.2,
        buttons = list(
            list(method = "restyle",
                 args = list("visible", "all"),
                 label = "show all"),
            list(method = "restyle",
                 args = list("visible", "legendonly"),
                 label = "hide all")
        )
    )
))

这会产生(取决于plotly的版本)以下下拉“按钮”:

我不知道如何根据当前可见性动态更新按钮，也不知道如何使两个按钮永久可见，而不是只能通过下拉菜单使用。