交互式 R 图

Question

我有一个 R 图，我希望用户能够单击图表上的某个点，并且我想知道他们单击的位置。有点像鼠标监听器。我正在使用 RStudio。这有可能吗？基本上，对于他们点击的点，我想显示另一个图，其中包含有关该点的更多详细信息。

这就是我所得到的：

data <- data.frame(x=c(1,2,3,4,5),y=c(1,2,3,4,5))
x11()
plot(data)

loc <- locator(n=1)
if(loc$x > 2) {
  x11()
  plot(c(1,2,3),c(5,6,7))
}

loc <- locator(n=1)
if(loc$x > 2) {
  x11()
  plot(c(4,5,6),c(5,6,7))
}

所以，第一个图出现了，有 5 个数据点。如果用户单击 x 值超过 2，那么我想打开另一个图，该图绘制您看到列出的数据点（3 个数据点）。然后，如果他们关闭该图并在原始的 5 个数据点图上再次单击过去 2，那么我希望它打开一个新图，其中包含您在第二个 if 语句中看到的 3 个数据点。

但它给我带来了错误和 I/O 问题。

Answer 1

如果您对内置绘图窗格执行 locator() 调用，这在 RStudio 中效果很好。我认为是针对 X11 调用 locator 导致了 RStudio 中的问题。绘制 X11 详细信息后，调用 dev.set(0) 使 RStudio 绘图窗格再次处于活动状态。

data <- data.frame(x=c(1,2,3,4,5),y=c(1,2,3,4,5))
plot(data)

loc <- locator(n=1)
if(loc$x > 2) {
        x11()
        plot(c(1,2,3),c(5,6,7))
}

dev.set(0)

loc <- locator(n=1)
if(loc$x > 2) {
        x11()
        plot(c(4,5,6),c(5,6,7))
}

（说实话，我不确定为什么 dev.set(0) 有效，必须与编写 RStudio 图形设备的开发人员核实。）

Answer 2

（我意识到这不是一个完整的答案，但它作为注释的格式不太好。）要使特定设备成为活动设备，您需要确定其编号。执行您的代码后，我可以获取设备列表并将第一个 X11 设备设置为当前设备，

dev.list()
#quartz    X11 quartz    X11    X11 
#     2      3      4      5      6 
dev.set(3)
#X11 
#  3 

因此请尝试以下操作：

x11() ; first.ID <- dev.cur()
plot(data)

loc <- locator(n=1)
if(loc$x > 2) {
  x11() ; second.ID <- dev.cur()
  plot(c(1,2,3),c(5,6,7))
}
dev.set(first.ID)
loc <- locator(n=1)
if(loc$x > 2) {
  x11() ; third.ID <- dev.cur()
  plot(c(4,5,6),c(5,6,7))
}

在我的计算机上，您还需要单击第一个图形窗口的标题来公开它，因为 Mac Gui 不带活动设备到前台。