Dropdown menu to select x, y and color (plotly)

Question

I am trying to create a plotly graph with selectable x, y and color variables, based in part on this previous question. The x and y variable selection appears to work, however when new x and y variables are selected, the point color is lost.

Further, I have tried to use a similar strategy to select the point colour, but unfortunately this does not seem to work.

Another option would be to use the "set visible" strategy in the previously linked question.

Example:

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)

Hi @aocall — I think I'm trying to do a similar thing as you were in this question. Did you ever figure out how to enable selecting which variable to color points by? https://stackoverflow.com/questions/50790759/plotly-select-variable-mapped-to-color-from-dropdown-menu — Carmen Sandoval, Jun 11 '18 at 05:16
Yes, but I made a custom HTMLwidget rather than using the standard plotly R API. — alan ocallaghan, Jun 11 '18 at 14:27
The author is not looking to use Shiny dropdowns, it looks like, but for those who land here that are using Shiny, please see: https://stackoverflow.com/questions/55076025/r-shiny-plotly-change-color-of-a-trace-with-javascript-without-affecting-mar/67612384#67612384 — Joe Flack, May 20 '21 at 20:41

alan ocallaghan · Accepted Answer · 2019-11-08T15:32:17.480

This is not currently possible in the R API, as mapping from variables to plot output is done on the R side, not by plotly.js.

This is explained at the following link: https://github.com/ropensci/plotly/issues/803

This functionality can be accomplished using plotly.js and HTML. One would have to add select elements to a HTML page, and add event listeners to call Plotly.newPlot() on update.

An example implementation can be seen here: https://github.com/Alanocallaghan/plotlyutils/blob/master/inst/htmlwidgets/lib/selectable_scatter_plot/selectable_scatter_plot.js

Dropdown menu to select x, y and color (plotly)

1 Answers1

Linked