r - 导出到 R 中的 powerpoint

Question

是否可以将 plotly/ggplotly 绘图导出到 Powerpoint 并保持其交互性？我的意思是，例如允许用户更改绘图线的颜色、粗细等。

示例代码：

set.seed(100)
d <- diamonds[sample(nrow(diamonds), 1000), ]
p <- ggplot(data = d, aes(x = carat, y = price)) + 
  geom_point(aes(text = paste("Clarity:", clarity))) +
  geom_smooth(aes(colour = cut, fill = cut)) + facet_wrap(~ cut)
gg <- ggplotly(p)

顺便说一句，使用webshot包将绘图导出为.png文件不是解决方案。而且我应该能够编写此解决方案并从 R 或任何其他编程语言自动化 - 在线工具或任何其他应由用户单击以获得结果的应用程序并不能解决问题。