r - 我如何从嵌套的 tibble 中打印 ggplot 对象，并使用可扩展的行进行响应？

如何解决r - 我如何从嵌套的 tibble 中打印 ggplot 对象，并使用可扩展的行进行响应？

我在 R 中有一个带有嵌套行的小标题，我为每行创建了一个 ggplot 对象。我想使用 reactable 的可扩展行功能打印这些图形。

我认为一个例子可以最好地解释这一点。为简单起见，我将使用 iris。首先，我们取iris，按“Species”嵌套，然后创建一个名为“plot”的列，其中包含ggplot对象：

library(dplyr)
library(reactable)
library(ggplot2)

df = iris %>%
  as_tibble() %>%
  nest_by(Species) %>%
  mutate(plot = list(
    ggplot(data,aes(x=Sepal.Length,y=Sepal.Width)) + geom_point() + ggtitle(Species)
  ))

可以在我们的数据帧上创建一个可响应对象，当您单击任何行时，该对象会吐出嵌套的可响应对象：

reactable(df %>% select(Species),details = function(index) {
    reactable(df$data[[index]])
  }
)

但是......我不知道如何为打印“绘图”列做等效的事情。例如，这不起作用：

reactable(df %>% select(Species),details = function(index) {
    print(df$plot[[index]])
  }
)

我已经研究了一些 HTML 内容，例如 htmltools::img(df$plot[[index]])，但都不起作用。

有什么想法吗？？谢谢！！！！！！

解决方法

如果我们用 ggplotly 包裹，那么它会起作用

library(plotly)
library(reactable)
library(ggplot2)
library(dplyr)
reactable(df %>% 
    select(Species),details = function(index) {
 ggplotly(df$plot[[index]])
})

-输出

,

我实际上在不需要 plotly 的情况下解决了这个问题——你可以使用 htmltools::plotTag。 （谁知道？）看看：

reactable(df %>% select(Species),details = function(index) {
  htmltools::plotTag(df$plot[[index]],alt="plots")
})