R 返回在绘图仪散点图中选择的数据点

我使用

ggplotly

从ggplot2创建了一个plotly散点图

我想获得一个选定/放大的数据点表，但我找不到方法

library(ggplot2)
library(plotly)

p <- ggplotly(plot.rel.kinship)
htmlwidgets::saveWidget(as_widget(p), "scatterplot.html")

库（ggplot2）
图书馆（绘本）
p在
plotly
文档中，使用
串扰
，可以链接没有
光泽
的视图。您没有提供可复制的示例，因此下面是一个使用
iris
数据集的示例。你可以试试：

library(plotly)
library(crosstalk)
library(DT)


sd <- SharedData$new(iris)

a <- plot_ly(sd, x = ~Sepal.Width, y = ~Petal.Width) %>% 
  add_markers(alpha = 0.5) %>%
  highlight("plotly_selected", dynamic = TRUE)


options(persistent = TRUE)

p <- datatable(sd)

bscols(widths = c(6, 4), a, p)

shinny
可以帮助您做到这一点。shinny是实现这一点的唯一方法吗？ie是否可以只调用plotly函数？谢谢@MLavoie-一直在尝试使用
串扰
的建议，但我的数据集似乎太大（~15K个数据点），我收到一条错误消息，要求我对DT进行服务器端处理。我认为这必然涉及使用
shinny
…这（）是您在回答中提到的
表
功能吗？图形使用“此示例演示了用户在更新绘图的表格中选择数据点的能力，或相反，在更新表格上选择的图表上选择点的能力”参见此处。DT工作时没有光泽。您是否尝试过：
datatable（yourdataset）
？我尝试过-这样做会返回相同的错误：
警告消息：在实例$preRenderHook（实例）中：您的数据对于客户端数据表来说似乎太大了。您可以考虑服务器端处理：https://rstudio.github.io/DT/server.html
。观众只是一片空白。@gaelgarcia，15000分，这是个大数字。我刚刚尝试了一个40000行的数据集，它成功了。我收到了同样的警告信息，但你必须等几秒钟才能看到情节。
library(plotly)
library(crosstalk)
library(DT)


sd <- SharedData$new(iris)

a <- plot_ly(sd, x = ~Sepal.Width, y = ~Petal.Width) %>% 
  add_markers(alpha = 0.5) %>%
  highlight("plotly_selected", dynamic = TRUE)


options(persistent = TRUE)

p <- datatable(sd)

bscols(widths = c(6, 4), a, p)

d <- highlight_unit(iris)
a <- ggplotly(ggplot(data = d, aes(x = Sepal.Width, y = Petal.Width)) + geom_point()) %>%
  highlight("plotly_selected", dynamic = TRUE)

options(persistent = TRUE)

p <- datatable(d)

bscols(widths = c(6, 4), a, p)