R plotly separate legends-CodePudding

The

As you can see, the colorbar is messed up and the two categories are entangled.

I need to have separate legends for age (young vs old) and gender (M vs F), that can be clicked independently from one another. This would be the expected outcome:

Edit
This is the equivalent with ggplot2:

gg <- ggplot(X, aes(x = xcoord, y = ycoord)) geom_point(aes(color = score, shape = gender, alpha = age), size = 5) scale_shape_manual(values = c("M" = 19, "F" = 19)) scale_alpha_manual(values = c("young" = 1, "old" = 1)) ggplotly(gg)

It does display correctly in ggplot, but breaks down when applying ggplotly().

Please note that I would favor a solution with the native plotly plot, rather than a post hoc ggplotly() fix as has been proposed in other posts.

CodePudding user response：

This isn't exactly what you're looking for. I was able to create a meaningful color bar, though.

I removed the call for interaction between the groups and created a separate trace. Then I created legend groups and named them to create separate legends for gender and age. When I pull color = out of the call to create a colorbar, this synced the color scales.

However, it assigns colors to the labels for age and gender and that's not meaningful! There are a few things that don't line up with your request, but someone may be able to build on this information.

plot_ly(data = X, x = ~xcoord, y = ~ycoord, split = ~age, legendgroup = 'age', # create first split and name it legendgrouptitle = list(text = "Age"), type = "scatter", mode = "markers", color = ~score, marker = list(colorbar = list(len = .5, y = .3))) %>% add_trace(split = ~gender, legendgroup = 'gender', # create second split and name it color = ~score, legendgrouptitle = list(text = "Gender")) %>% colorbar(title = 'Score')

CodePudding user response：

I am not sure if this is exactly what you want. I tried to made the legends for age and gender using two markers. The legends are independently clickable, but I am not sure if this is the way you want them to have clickable. It is also possible to click on the colorbar. You can use this code:

library(tidyverse) library(plotly) plot_ly() %>% add_markers(data = X, x = ~xcoord, y = ~ycoord, type = "scatter", mode = "markers", #name = "M", color = I("grey"), split = ~gender, legendgroup = 'gender', legendgrouptitle = list(text = "Gender")) %>% add_markers(data = X, x = ~xcoord, y = ~ycoord, type = "scatter", mode = "markers", #name = "M", color = I("grey"), split = ~age, legendgroup = 'age', legendgrouptitle = list(text = "Age")) %>% add_trace(data = X, x = ~xcoord, y = ~ycoord, type = "scatter", mode = "markers", name = "", marker = list(color = ~score, colorbar = list(len = .5, y = .3)))

The output looks like this: