在Rmarkdown中使用plotly_click缩小DT范围

Question

在Rmarkdown上绘制热图。我想通过单击热图来显示所单击数据的DT。这是可能的与闪亮。有没有可能用Rmarkdown重现这个函数？谢谢

rmarkdown.Rmd

```{r}

库(打印)；库(DT)；库(闪亮)

P <- plot_ly(data=iris，x=~Sepal.Length，y=~Sepal.Width，z=~Petal.Length，type=“热图”，来源=“热图”)

P

observeEvent(event_data("plotly_click"，observeEvent= "heat")，{

X <- event_data("plotly_click"，$x=“heat”)热源

iris_ <-滤镜(虹膜，Sepal.Length == x)

dt <-数据表(Iris_)

})

dt

Answer 1

这是我能让它工作的唯一方法，但希望你能把它转换成热图。对我来说，热图没有正确渲染。此示例使用crosstalk函数并使用刷子，并将自动呈现所选表的DT表。

```{r}

库(Ggplot2)

库(绘图)

库(DT)

M<-highlight_key(光圈)

p<-ggplot(m，aes(Sepal.Length，Sepal.Width))+geom_point(aes(颜色=种类))

gg<-highlight(ggplotly(p)，"plotly_selected")

串扰：：bscols(gg，DT::datatable(m))