В графическом графике подстроки R, как показать только одну легенду?

Question

У меня есть базовый подзаговор с двумя графиками, у обоих есть легенда по умолчанию, но я хочу видеть только одну из них.

Я попытался это:

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) 

Но это не работает: кажется, как будто только один атрибут showlegend был обработан, поэтому, если я начну с p1 У меня есть две легенды, если я начну с p2 I есть два.

Любые идеи?

Answer 1

Приведенный выше ответ приводит к незначительной проблеме. Легенда только интерактивна с первым сюжетом. Вам нужно добавить легендарную группу в функцию plot_ly, чтобы сделать легенду интерактивной с обоими графиками.

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

Я дам вам два ответа, один прямой и один для лучшей практики и потомства (что также помогает лучше понять проблему):

1. Прямой ответ:
   Попытка добавить 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) 
   

2. Лучше практику под plotly 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) 
   

Эта практика позволяет лучше понять, как следы работы в plotly. Вы можете видеть, что данные сначала сгруппированы по Species, переданы функции plot_ly(), которая инициализирует график, и затем вы указываете свой тип трассы (маркеры), чтобы фактически сделать график.
Написание кода таким образом проще, если вы хотите добавить или удалить трассировки и их соответствующие параметры, добавить переменную группировки или разбить/суммировать таблицу.

Answer 3

В ответах, которые даются до сих пор, есть некоторые неопределенные моменты.

Прежде всего, группировка кадров данных не имеет никакого влияния, насколько я могу ее видеть. Речь идет о сортировке не группировки (как указывает Maltas comment above). Таким образом, кадр данных должен быть отсортирован по переменной, которая предназначена для группировки переменной. Но есть еще одна ошибка, которая тем не менее мешает работе кода.Кроме того, требуется legendgroup у вас есть, следовательно, обеспечить

1. , что ваш кадр данных отсортирован по переменной группировки (к счастью, данные ирис уже отсортированы по Species)
2. , что переменные вы используете не содержат пропущенных значения (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) 

Следующие примеры не работают:

1. Сортировка по неправильному переменной:

   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) 
   

2. Переменные с пропущенными значениями:

   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)