In the graphic graph of substring R, how to show only one legend?

Question

I have a basic subplot with two graphs, both have a default legend, but I want to see only one of them.

I tried this:

require(plotly)
p1 <- plot_ly(data=iris,x=~Sepal.Length,y=~Sepal.Width,split=~Species) %>% layout(showlegend = FALSE)
p2 <-  plot_ly(data=iris,x=~Sepal.Length,y=~Sepal.Width,split=~Species) %>% layout(showlegend = TRUE)
subplot(p1,p2)
subplot(p2,p1)

But this does not work: it seems that only one showlegend attribute has been processed, so if I start with p1, I have two legends, if I start with p2, I have two.

Any ideas?

Answer 1

The above answer leads to a minor problem. The legend is only interactive with the first plot. You need to add a legendary group to the plot_ly function to make the legend interactive with both graphs.

library(plotly)
p1 <-
  iris%>%
  group_by(Species)%>%
  plot_ly(x=~Sepal.Length, color= ~Species, legendgroup=~Species)%>%
  add_markers(y= ~Sepal.Width)
p2 <-
  iris%>%
  group_by(Species)%>%
  plot_ly(x=~Sepal.Length, color= ~Species, legendgroup=~Species)%>%
  add_markers(y= ~Sepal.Width, showlegend=F)
subplot(p1,p2)

Answer 2

: ( ):

• :
  showlegend = FALSE plot_ly(), layout(). ?subplot:

  , , , .

  , showlegend . showlegend plot_ly() , subplot. :

  require(plotly)  
  p1 <- plot_ly(data=iris,x=~Sepal.Length,y=~Sepal.Width,split=~Species,showlegend = F)
  p2 <-  plot_ly(data=iris,x=~Sepal.Length,y=~Sepal.Width,split=~Species, showlegend = T)  
  subplot(p1,p2)
  

• 4.0 .
  %>% group_by() split :

  p1 <-
    iris%>%
    group_by(Species)%>%
    plot_ly(x=~Sepal.Length, color= ~Species)%>%
    add_markers(y= ~Sepal.Width)
  p2 <-
    iris%>%
    group_by(Species)%>%
    plot_ly(x=~Sepal.Length, color= ~Species)%>%
    add_markers(y= ~Sepal.Width, showlegend = F)
  subplot(p1,p2)
  

, . , Species, plot_ly(), , (), .
, , / .

Answer 3

, , .

, , . ( ). , , . , . legendgroup,

• ( , Species),
• , , (NA).

, :

library(plotly)
p1 <-
  iris %>%
  arrange(Species) %>%
  plot_ly(x = ~Sepal.Length, color = ~Species, legendgroup = ~Species) %>%
  add_markers(y = ~Sepal.Width)
p2 <-
  iris %>%
  arrange(Species) %>%
  plot_ly(x = ~Sepal.Length, color = ~Species, legendgroup = ~Species) %>%
  add_markers(y= ~Sepal.Width, showlegend = FALSE)

subplot(p1, p2)

:

• :

  p1 <-
    iris %>%
    arrange(Sepal.Length) %>%
    plot_ly(x = ~Sepal.Length, color = ~Species, legendgroup = ~Species) %>%
    add_markers(y = ~Sepal.Width)
  p2 <-
    iris%>%
    arrange(Sepal.Length) %>%
    plot_ly(x=~Sepal.Length, color= ~Species, legendgroup=~Species)%>%
    add_markers(y = ~Sepal.Width, showlegend = FALSE)
  
  subplot(p1, p2)
  

• :

  df <- iris
  df$Sepal.Length[2] <- NA
  head(df)
  
  #>   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
  #> 1          5.1         3.5          1.4         0.2  setosa
  #> 2           NA         3.0          1.4         0.2  setosa
  #> 3          4.7         3.2          1.3         0.2  setosa
  #> 4          4.6         3.1          1.5         0.2  setosa
  #> 5          5.0         3.6          1.4         0.2  setosa
  #> 6          5.4         3.9          1.7         0.4  setosa
  
  p1 <-
    df %>%
    arrange(Species) %>%
    plot_ly(x = ~Sepal.Length, color = ~Species, legendgroup = ~Species) %>%
    add_markers(y = ~Sepal.Width)
  p2 <-
   df %>%
    arrange(Species) %>%
    plot_ly(x = ~Sepal.Length, color = ~Species, legendgroup = ~Species)%>%
    add_markers(y = ~Sepal.Width, showlegend = FALSE)
  
  subplot(p1, p2)