Plot click interactivity

[dreamrs]

Plot click interactivity

[pvictor]

Hello Alik,

I think its easier if you use apex() instead of apexcharter (moreover there is a bug, normally it should not display NULL but the year...)

With apex() you have to format your data lightly differently: you need rows not columns, I used tidyr::pivot_longer() to make the change, here's your example modified:

library(apexcharter)
library(dplyr)
library(tidyr)
library(shiny)

ui <- fluidPage(
  apexchartOutput("main_chart"),
  verbatimTextOutput("click1"),
  apexchartOutput("secondary_chart")
)

server <- function(input, output, session) {
  df <- data.frame(
    time = c(2020, 2025, 2030, 2035, 2040),
    x1 = c(10.1, 20.3, 30.4, 40.7, 50.8),
    y1 = c(3.4, 6.7, 10.1, 13.6, 16.9),
    z1 = c(6.8, 13.6, 20.3, 27.1, 33.9),
    
    x2 = c(20.1, 30.3, 40.4, 50.7, 60.8),
    y2 = c(6.4, 12.7, 20.1, 26.6, 32.9),
    z2 = c(12.8, 26.6, 40.3, 52.1, 66.9)
  )
  
  output$main_chart <- renderApexchart({
    # summarise data by x, y, z
    df %>% 
      mutate(
        x = x1 + x2,
        y = y1 + y2,
        z = z1 + z2
      ) %>% 
      select(time, x:z) %>% 
      pivot_longer(cols = x:z) %>% # transform column in row
      apex(aes(time, value, group = name), auto_update = FALSE) %>%
      ax_grid(show = FALSE) %>%
      ax_title(text = "Output of plot 1") %>%
      set_input_click("click")
  })
  
  output$secondary_chart <- renderApexchart({
    
    req(input$click)
    
    df %>%
      select(time, contains(names(input$click))) %>% 
      pivot_longer(cols = -time) %>% # transform column in row
      apex(aes(time, value, group = name), auto_update = FALSE) %>%
      ax_grid(show = FALSE) %>%
      ax_title(text = "Output of plot 2")
  })
  
  
  output$click1 <- renderPrint({
    input$click
  })
}

shinyApp(ui = ui, server = server)

Victor

[Alik-V]

Thanks a lot!