Question

我正在尝试创建一个包含可选x，y和color变量的图表图表，部分基于this previous question。 x和y变量选择似乎有效，但是当选择新的x和y变量时，点颜色会丢失。

此外，我尝试使用类似的策略来选择点颜色，但不幸的是，这似乎不起作用。

另一种选择是在先前链接的问题中使用set visible策略。

示例：

library(plotly)
library(pcaMethods)

pca <- pcaMethods::pca(mtcars, nPcs=3)

df <- as.data.frame(pca@scores)

colors1 <- sample(c("red", "green", "blue"), nrow(df), replace=TRUE)
colors2 <- sample(c("red", "green", "blue"), nrow(df), replace=TRUE)

p <- plotly::plot_ly(df, x = ~PC1, y = ~PC2, type = "scatter",
    color = sample(c("red", "green", "blue"), nrow(df), replace=TRUE),
    mode = "markers") 

p <-  plotly::layout(
    p,
    title = "Dropdown PCA plot",
    updatemenus = list(
        list(
            y = 0.7,
            buttons = list(
                list(method = "restyle",
                   args = list(
                    "x", list(df$PC1)
                    ),
                   label = "PC1"),
                list(method = "restyle",
                   args = list(
                    "x", list(df$PC2)
                    ),
                   label = "PC2"),
                list(method = "restyle",
                   args = list(
                    "x", list(df$PC3)
                    ),
                   label = "PC3")
                )
            ),
        list(
            y = 0.5,
            buttons = list(
                list(method = "restyle",
                   args = list(
                    "y", list(df$PC1)
                    ),
                   label = "PC1"),
                list(method = "restyle",
                   args = list(
                    "y", list(df$PC2)
                    ),
                   label = "PC2"),
                list(method = "restyle",
                   args = list(
                    "y", list(df$PC3)
                    ),
                   label = "PC3")
                )
            )
        )
    )

htmlwidgets::saveWidget(p, "test.html", selfcontained=FALSE)

Answer 1

这在R API中目前是不可能的，因为从变量到绘图输出的映射是在R端完成的，而不是由plotly.js完成的。

以下链接对此进行了解释：https://github.com/ropensci/plotly/issues/803

可以使用plotly.js和HTML来完成此功能。必须将select元素添加到HTML页面，并添加事件侦听器以在更新时调用Plotly.newPlot()。

下拉菜单选择x，y和颜色（绘图）

1 个答案: