r在条形图中添加条形图的超链接？

Question

下面是一个简单的例子，展示了如何使用绘图库

绘制条形图

library(plotly)
p <- plot_ly(
  x = c("giraffes", "orangutans", "monkeys"),
  y = c(20, 14, 23),
  name = "SF Zoo",
  type = "bar"
)
p

我很想知道是否有人在条形图中的每个条形图上创建超链接，这样如果用户点击任何这些条形图，它会打开一个不同的条形图（任何r图）？