How can I create subplots in plotly using R where each subplot is two traces

Question

Here is a toy example I have got stuck on

library(plotly)
library(dplyr)

# construct data.frame
df <- tibble(x=c(3,2,3,5,5,5,2),y=c("a","a","a","b","b","b","b"))

# construct data.frame of last y values
  latest <- df %>% 
   group_by(y) %>% 
   slice(n())

# plot for one value of y (NB not sure why value for 3 appears?)
  p <- plot_ly() %>% 
   add_histogram(data=subset(df,y=="b"),x= ~x) %>%   
  add_histogram(data=subset(latest,y=="b"),x= ~x,marker=list(color="red")) %>%
  layout(barmode="overlay",showlegend=FALSE,title= ~y)
  p

How can i set these up as subplots, one for each unique value of y? In the real world example, I would have 20 different y's so would ideally loop or apply the code. In addition, it would be good to set standard x scales of say c(1:10) and have, for example, 2 rows

TIA

Sorry this may only in development version 4 and up - though add-trace still functions . You will , however, also need x= ~x for the plot to work if you 'upgrade' — pssguy
– pssguy, Commented Sep 1, 2016 at 23:36

Community · Accepted Answer · 2017-05-23 10:29:08Z

2

+100

build a list containing each of the plots
set the bin sizes manually for the histograms, otherwise the automatic selection will choose different bins for each of the traces within a plot (making it look strange as in you example where the bars of each trace are different widths)
use subplot to put it all together
add titles to individual subplots using a list of annotations, as explained here

Like this:

N = nlevels(factor(df$y))
plot_list = vector("list", N)
lab_list = vector("list", N)

for (i in 1:N) {
  this_y = levels(factor(df$y))[i]
  p <- plot_ly() %>% 
    add_trace(type="histogram", data=subset(df,y==this_y), x=x, marker=list(color="blue"),
              autobinx=F, xbins=list(start=0.5, end=6.5, size=1)) %>%   
    add_trace(type="histogram", data=subset(latest,y==this_y), x = x, marker=list(color="red"), 
              autobinx=F, xbins=list(start=0.5, end=6.5, size=1)) %>%
    layout(barmode="overlay", showlegend=FALSE)
  plot_list[[i]] = p

  titlex = 0.5
  titley = c(1.05, 0.45)[i]
  lab_list[[i]] = list(x=titlex, y=titley, text=this_y, 
                       showarrow=F, xref='paper', yref='paper', font=list(size=18))
}

subplot(plot_list, nrows = 2) %>%
  layout(annotations = lab_list)

edited May 23, 2017 at 10:29

CommunityBot

11 silver badge

answered Sep 1, 2016 at 17:25

dww

31.6k8 gold badges75 silver badges126 bronze badges

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

6 Comments

pssguy Over a year ago

Thanks. I am getting close to what I need now. The issue is labeling each individual plot. With title=this_y, only the last value i.e. b gets shown at top(I think it is truncated out in your image). There is not a title shown for each subplot If i add shareX=TRUE to the subplot function I get the correct this_y showing up along the x axis BUT only for the botttom row. In the toy example it would just show b (nothing on the top subplot) . In my real life example, with 4 columns all of the bottom row have the correct this_y showing

pssguy Over a year ago

thanks. I get the general gist but am happy to wait on your answer in a few days time

dww Over a year ago

I've added in the titles using annotations

pssguy Over a year ago

Thanks will check it later. Sorry had not realized i had to click bounty button . Well merited

Rene Chan Over a year ago

I tried this solution, and I am getting :Error in add_trace(., type = "histogram", data = subset(df, y == this_y), : object 'x' not found > > subplot(plot_list, nrows = 2) %>% + layout(annotations = lab_list) Error in names(object) <- nm : attempt to set an attribute on NULL

|

Collectives™ on Stack Overflow

How can I create subplots in plotly using R where each subplot is two traces

1 Answer 1

6 Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

6 Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related