Syncing charts

library(apexcharter)
data("economics", package = "ggplot2")
economics <- tail(economics, 150)

With Apexcharts you can sync (tooltip, zoom) several charts together by providing a group and id to each charts. This works in Shiny and Markdown. Here a basic example :

apex(
  data = economics, 
  mapping = aes(x = date, y = pce),
  type = "line"
) %>% 
  ax_stroke(width = 2) %>% 
  ax_chart(
    group = "economics", id = "pce" # <- define common group and unique id
  ) %>% 
  ax_yaxis(
    labels = list(
      minWidth = 15
    )
  )

apex(
  data = economics, 
  mapping = aes(x = date, y = psavert),
  type = "line"
) %>% 
  ax_stroke(width = 2) %>% 
  ax_chart(
    group = "economics", id = "psavert" # <- define common group and unique id
  ) %>% 
  ax_yaxis(
    labels = list(
      minWidth = 15
    )
  )