R Plotly - How to create 2 dropdown menus that both select a part of the data

Plotly R, MATLAB, Julia, Net Plotly R
1

I am creating an interactive barplot on Plotly (which shows the number of inhabitants - “POPULATION” - concerned by different levels of pollution - “POLLUTION”) .

Here is an extract of my data :

   CITY        TYPE_POLLUANT POLLUTION POPULATION
   <chr>       <chr>             <dbl>      <dbl>
 1 Abriès (05) O3               117             2
 2 Abriès (05) O3               118           225
 3 Abriès (05) O3               119            79
 4 Abriès (05) NO2                0           303
 5 Abriès (05) NO2                1             2
 6 Abriès (05) NO2                2             1

10 Aiglun (04) O3               126           256
11 Aiglun (04) O3               127          1128
12 Aiglun (04) NO2                2            18
13 Aiglun (04) NO2                3           150
14 Aiglun (04) NO2                4           470
15 Aiglun (04) NO2                5           601

I want the barplot to change according to the city selected, or the pollutant selected.

For that, I’m using the updatemenus option.

I achieved to add buttons to select the pollutant (NO2, O3, PM2.5 or PM10), I get something like this :

hist_no2_forum
hist_no2_forum973×492 26 KB

I also achieved to create a dropdown to select the city, I get that :

hist_commune_forum
hist_commune_forum975×459 30.8 KB

But I want both on the barplot, and I don’t achieve that.

I created the first graph (to select pollutants) with this code :

fig <- plot_ly(type = "bar", name='') 

fig <- fig %>% 
  add_bars(data = df %>% filter(NOM_COMMUNE==input_commune, TYPE_POLLUANT=="NO2"),
           x = ~POLLUTION,  y = ~POPULATION,
           name = "NO2", marker=list(color=col_no2)) %>%

  add_bars(data = df %>% filter(NOM_COMMUNE==input_commune, TYPE_POLLUANT=="O3"),
           x = ~POLLUTION,  y = ~POPULATION,
           name = "O3", marker=list(color=col_o3), visible = FALSE) #%>%

  #same for 2 other pollutants

fig <- fig %>%
  layout(updatemenus = list(

    list(
      active = -1,
      type= 'buttons', direction = "right",
      y = 0.92, x=0.95,
      buttons = list(
        list(method = "update",
             args = list(list(visible = c(FALSE, TRUE, FALSE, FALSE, FALSE))),
             label = "NO2"),

        list(method = "update",
             args = list(list(visible = c(FALSE, FALSE, TRUE, FALSE, FALSE))),
             label = "O3")

        #same for 2 other pollutants
      ))))

For the second, to select the city, I used something like that : https://stackoverflow.com/questions/53856624/r-plotly-list-of-dataframe-with-updatemenu (creating a list of cities with for each a list of “visible” parameters (TRUE/FALSE))

But mixing both solutions seems very complex.

I imagined to create a list of list of “visible” parameters (TRUE/FALSE). But have to create a list of 2 buttons in the updatemenus, since I have to set the parameters of location of the buttons on the graph. So it seems complicated to mix “visible” options of pollutants and cities.

Have you an idea of the right way to proceed ?

Thank you !