How to use R Plotly button functionality to show/hide data?

Question

I have some code that loops through and plots 3 red blocks and 3 blue blocks. The goal is to use the button functionality to turn on/off the blocks. I.e. when TestA is selected the red blocks show and when TestB is selected the blue blocks show. The code initially shows the red blocks but when selecting either buttons the blue blocks show and changing the button selection doesn't resort back to showing the red blocks, I have been able to get this button functionality to work with single blocks but it appears that using a for loop to create the blocks causes problems? Any help figuring this out would be greatly appreciated.

#Start vertices of rectangles at (0,0)
x1 = 0
x2 = 0
y1 = 0
y2 = 0

width=4

listA= append(list(T,T,T,F,F,F)
listB= append(list(F,F,F,T,T,T)

updatemenus <- list(
  list(
    active = -1,
    type= 'buttons',
    buttons = list(
      list(
        label = "TestA",
        method = "update",
        args = list(list(visible = listA),
                    list(title = "TestA"))),
      list(
        label = "TestB",
        method = "update",
        args = list(list(visible = listB),
                    list(title = "TestB"))))))

#Begin plot with a blank baseplot
p <- plot_ly(width = 725, height = 725,visible=T)%>%
  layout(xaxis=list(range=c(0,width),showticklabels = F),yaxis=list(range=c(0,1625000),
                                                                    linewidth=2,autotick = TRUE,ticks = "outside",ticklen = 5,tickwidth = 2,tickcolor = toRGB("black"),
                                                                    title = "Volume [AF]"))


#Plot Red block
x1 = 0.05
x2 = width
y1 = 0
y2 = 500000


for(i in 1:3){
  y2 = y2+250000
  x2 = x2+1
  x1 =x1+1
p <- add_trace(p,type='scatter',mode='none',x = c(x1,x2,x2,x1,x1),
                 y = c(y1,y1,y2,y2,y1),visible=T,
                 fill = 'toself',fillcolor = 'rgb(233,87,62)',
                 opacity=1,line=list(color='black'),
                 hoveron = 'fills',
                 showlegend = F)
}


#Plot Blue block
x1 = 0.05
x2 = width
y1 = 0
y2 = 500000


for(i in 1:3){
  y2 = y2+250000
  x2 = x2+1
  x1 =x1+1
  p <- add_trace(p,type='scatter',mode='none',x = c(x1,x2,x2,x1,x1),
                 y = c(y1,y1,y2,y2,y1),visible=F,
                 fill = 'toself',fillcolor = 'blue',
                 opacity=1,line=list(color='black'),
                 hoveron = 'fills',
                 showlegend = F)
}

p = p %>% layout(updatemenus=updatemenus)
p

Dan · Accepted Answer · 2021-01-07 19:31:38Z

1

The problem was with the T/F list creation. I was using the following code to generate my list:

list=list(c(rep(T,3),rep(F,3)))

Which resulted in a list of length 1. Using the code:

list = c(rep(list(T),3),rep(list(F),3))

Results in a list of length 6 which is needed for this example.

answered Jan 7, 2021 at 19:31

Dan

3721 gold badge3 silver badges13 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

How to use R Plotly button functionality to show/hide data?

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related