subplot() repeats annotations when there are more traces than annotations

[cpsievert]

Minimal example

p1 <- plot_ly() %>%
    add_markers(x = 1, y = 1) %>%
    add_markers(x = 2, y = 2) %>%
    add_annotations(text = "foo", x = 1.5, y = 1.5)
  p2 <- plot_ly() %>%
    add_markers(x = 1, y = 1) %>%
    add_markers(x = 2, y = 2) %>%
    add_annotations(text = "bar", x = 1.5, y = 1.5)
  s <- subplot(p1, p2)
config(s, editable = T)

[mabreidi]

I am having the same trouble for a subplot with dual y-axes. The only difference is that the second copy of the annotation gets shifted....

x <- 1:20
y <- rnorm(20,5,1)
y2 <- rnorm(20,10,2)
df <- data.frame(x,y,y2)

library(plotly)
p1 <- plot_ly() %>% add_trace(x=df$x,y=df$y,type="scatter",mode="lines",yaxis="y") %>%
                    add_trace(x=df$x,y=df$y2,type="scatter",mode="lines",yaxis="y2") %>%
                    layout(yaxis=list(side="left"),
                           yaxis2=list(side="right",overlaying="y"),
                           showlegend=FALSE)

p2 <-plot_ly() %>% add_trace(x=df$x,y=df$y+df$y2,type="scatter",mode="lines",yaxis="y") %>%
                 add_trace(x=df$x,y=df$y2*df$y,type="scatter",mode="lines",yaxis="y2") %>%
                layout(yaxis=list(side="left"),
                       yaxis2=list(side="right",overlaying="y3"),
                       showlegend=FALSE)

#p <- subplot(p1,p2,nrows = 2)

p1 %>% add_annotations(x=df[10,1],y=df[10,2],xref="x",yref="y",text="A") -> p1

p2 %>% add_annotations(x=df[10,1],y=df[10,2]+df[10,3],xref="x",yref="y",text="B") -> p2

p <- subplot(p1,p2,nrows = 2,margin=0.1)
config(p,editable=T)

[cpsievert]

This should fix your issue (it will get merged soon) -- remotes::install_github('ropensci/plotly#1445')

[mabreidi]

Thanks, works perfectly well!