是否可以在rmarkdown中将ggplot2图形包含可点击的刻度标记标签？

Question

在rmarkdown中创建图形确实非常强大，但是在绊倒这篇文章（https://stackoverflow.com/a/53487862/1960261）之后表明ggplot2可以生成带有可单击标签的图形，这些图形可以在浏览器中打开和查看，我一直想使用这些图形在rmarkdown报告（pdf / html）中。

我尝试将图像导出为svg（https://stackoverflow.com/a/53487862/1960261），该图像在浏览器中打开时可以很好地与链接一起使用。但是，我似乎无法再次导入它或仅以允许rmarkdown中具有相同功能的方式对其进行打印。

# (Source of code https://stackoverflow.com/a/53487862/1960261)
library(tidyverse)

links <- c('https://en.wikipedia.org/wiki/Plymouth_Duster',
           'https://de.wikipedia.org/wiki/AMC_Hornet', 
           'https://en.wikipedia.org/wiki/Mercedes-Benz_W123',
           'https://en.wikipedia.org/wiki/Plymouth_Valiant')

mtcars %>%
    rownames_to_column('car') %>%
    slice(5:8) %>%
    mutate(
        link = links
    ) %>%
    ggplot(aes(x = mpg, y = car)) +
        geom_point(size = 2)


library(grid)
## Force 'grid' grobs from 'ggplot2' plot
grid.force()
## List all grobs in plot
grid.ls()
## Find the grobs representing the text labels on the axes
tickLabels <- grid.grep("axis::text", grep=TRUE, global=TRUE)
## Check which one is the y-axis
lapply(tickLabels, function(x) grid.get(x)$label)

## Add hyperlinks to the axis tick labels
library(gridSVG)
grid.hyperlink(tickLabels[[1]],
               href=links,
               group=FALSE)
## Export to SVG (and view in a browser)
grid.export("linked-plot.svg")

我希望有人知道一种将该功能纳入rmarkdown报告的方法。