Ссылка 2 легенды в R (старшая диаграмма) - PullRequest
Новая
       42

Ссылка 2 легенды в R (старшая диаграмма)

0 голосов
/ 13 мая 2019

Я бы хотел связать две легенды вроде здесь .Я работаю с R Shiny и библиотекой старших диаграмм.

В этом примере обе графики имеют одинаковые данные, но в моей я хотел бы связать графику по именам их серий : если я нажимаю на серию с именем series1, то выбирается также и названная серия series1.

Просто для уточнения: в приведенном ниже наборе данных серии являются series1,2,3,4,5 для data_plot1и серия 6,7,8,9,10 для data_plot2.Но в старшей серии1 переименовывается в серию1, а серия6 переименовывается в серию1, серия2 переименовывается в серию2, а серия7 переименовывается в серию2 и т. Д.

Если у вас есть какие-либо вопросы, не стесняйтесь,Я быстро отвечаю.

Код: 

data_plot1 <- data.frame(categories = c("A", "B", "C", "D"),
                        serie1 = c(1563, 1458, 205, 695),
                        serie2 = c(562, 258, 17, 115),
                        serie3 = c(324, 654, 23, 987),
                        serie4 = c(123, 567, 234, 12),
                        serie5 = c(376, 88, 98, 123)
)

data_plot2 <- data.frame(categories = c("A", "B", "C", "D"),
                        serie6 = c(321, 321, 44, 654),
                        serie7 = c(562, 764, 543, 543),
                        serie8 = c(32, 34, 23, 987),
                        serie9 = c(234, 234, 23,324),
                        serie10 = c(432, 45 ,745, 53)
)


ui <- dashboardPage(


  dashboardHeader(title = "My Dashboard"),

  dashboardSidebar(),

  dashboardBody(  

    highchartOutput ("hc1"), highchartOutput ("hc2")))

server <- function(input, output,session) {

  #Normal Chart
  output$hc1 <- renderHighchart ({
    Hch1 <- highchart(hcaes(x = Spring ,y = Ponctuation)) %>% 
      hc_title(text = "Graph",
               margin = 20, align = "left",
               style = list(color = "#FE8000", useHTML = TRUE)) %>% 
      hc_xAxis(categories = data_plot1$categories, title = list(text = "Number 
 of spring",color = "#FE8000")) %>%
      hc_yAxis(title = list(text = "Result", color = "#FE8000"))%>% 
      hc_add_series(name = 'serie1', data = data_plot1$serie1) %>% 
      hc_add_series(name = 'serie2', data = data_plot1$serie2)%>% 
      hc_add_series(name = 'serie3', data = data_plot1$serie3)%>% 
      hc_add_series(name = 'serie4', data = data_plot1$serie4)%>% 
      hc_add_series(name = 'serie5', data = data_plot1$serie5) 

    Hch1})

  #Normal Chart
  output$hc2 <- renderHighchart ({
    Hch2 <- highchart(hcaes(x = Spring ,y = Ponctuation)) %>% 
      hc_title(text = "Graph",
               margin = 20, align = "left",
               style = list(color = "#FE8000", useHTML = TRUE)) %>% 
      hc_xAxis(categories = data_plot2$categories, title = list(text = "Number 
 of spring",color = "#FE8000")) %>%
      hc_yAxis(title = list(text = "Result", color = "#FE8000"))%>% 
      hc_add_series(name = 'serie1', data = data_plot2$serie6) %>% 
      hc_add_series(name = 'serie2', data = data_plot2$serie7)%>% 
      hc_add_series(name = 'serie', data = data_plot2$serie8)%>% 
      hc_add_series(name = 'serie4', data = data_plot2$serie9)%>% 
      hc_add_series(name = 'serie5', data = data_plot2$serie10)

    Hch2})
}
shinyApp(ui, server)
...