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
)
)