Как по умолчанию скрыть одну строку в сгруппированном графике временных рядов ggplotly? (сюжетно, R, Javascript)

Plotly имеет эту приятную функцию, чтобы скрыть график, если вы нажмете на его название в легенде. Элементы легенды становятся серыми, и линия появляется снова, только если мы снова нажимаем на элемент легенды.

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

Я хочу, чтобы изначально в отображаемом объекте ggplotly отображалась только серия, когда пользователь открывает приложение. Все остальные диагностические графики, такие как тренд (в моем репрексе) и сезонность, должны быть скрыты по умолчанию. Только когда я нажимаю на пункт легенды Тренд (репрекс), должна дополнительно появиться линия тренда.

Я знаю, как это сделать в блестящих, с блестящими функциями, но я хочу иметь возможность решить это с помощью сюжетных или javascript-функций, как я упоминал выше.

репрекс-код (попробуйте скрыть строку "Тренд" по умолчанию):

library(plotly)
library(lubridate)
library(ggplot2)
set.seed(42)
data <- tibble(id = c(rep("A",24)),
               value = c(cumsum(rnorm(12)), seq( 1, 7, length.out = 12)),
               date = rep(c(ymd("2013-01-01")+ months(0:11)),2),
               label = c(rep("Series",12),rep("Trend", 12))
)
p <- ggplot(data, mapping = aes(x= date, y= value, color = label)) +
            geom_line()  +
            xlab("")
ggplotly(p) %>% layout(legend=list(y = -0.2,
                                   xanchor = 'left',
                                   yanchor = 'bottom',
                                   orientation = 'h')) 
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией
В JavaScript одним из самых запутанных понятий является поведение ключевого слова "this" в стрелочной и обычной функциях.
Концепция локализации и ее применение в приложениях React ⚡️
Концепция локализации и ее применение в приложениях React ⚡️
Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...
Улучшение производительности загрузки с помощью Google Tag Manager и атрибута Defer
Улучшение производительности загрузки с помощью Google Tag Manager и атрибута Defer
В настоящее время производительность загрузки веб-сайта имеет решающее значение не только для удобства пользователей, но и для ранжирования в...
Безумие обратных вызовов в javascript [JS]
Безумие обратных вызовов в javascript [JS]
Здравствуйте! Юный падаван 🚀. Присоединяйся ко мне, чтобы разобраться в одной из самых запутанных концепций, когда вы начинаете изучать мир...
Система управления парковками с использованием HTML, CSS и JavaScript
Система управления парковками с использованием HTML, CSS и JavaScript
Веб-сайт по управлению парковками был создан с использованием HTML, CSS и JavaScript. Это простой сайт, ничего вычурного. Основная цель -...
JavaScript Вопросы с множественным выбором и ответы
JavaScript Вопросы с множественным выбором и ответы
Если вы ищете платформу, которая предоставляет вам бесплатный тест JavaScript MCQ (Multiple Choice Questions With Answers) для оценки ваших знаний,...
0
0
24
1
Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Вы можете использовать style с traces, что позволит скрыть только строку Trend. Вы можете использовать следующий код:

library(plotly)
library(lubridate)
library(ggplot2)
set.seed(42)
data <- tibble(id = c(rep("A",24)),
               value = c(cumsum(rnorm(12)), seq( 1, 7, length.out = 12)),
               date = rep(c(ymd("2013-01-01")+ months(0:11)),2),
               label = c(rep("Series",12),rep("Trend", 12))
)
p <- ggplot(data, mapping = aes(x= date, y= value, color = label)) +
  geom_line()  +
  xlab("")

p <- ggplotly(p) %>% layout(legend=list(y = -0.2,
                                   xanchor = 'left',
                                   yanchor = 'bottom',
                                   orientation = 'h')) 

style(ggplotly(p),visible = "legendonly", traces = 2)

Выход:

Как вы можете видеть на изображении, в настоящее время отображаются только серии, а тенденция скрыта.

Другие вопросы по теме