r - 通过单击识别现有 splom 中的子面板

Question

我希望能够生成一个基本的 splom在 R 中绘图，然后使用我的鼠标单击其中一个子面板(特别是 panel.pairs)并让 R 返回该子面板的坐标，或者更好的是，在该子面板中绘制相应变量的名称子面板。

这是一个例子 splom跟...共事:

require(lattice)
data(iris)
super.sym <- trellis.par.get("superpose.symbol")
splom(~iris[1:4], groups = Species, data = iris,
      panel = panel.superpose,
      key = list(title = "Three Varieties of Iris",
                 columns = 3, 
                 points = list(pch = super.sym$pch[1:3],
                               col = super.sym$col[1:3]),
                 text = list(c("Setosa", "Versicolor", "Virginica"))))

这是迄今为止我得到的最接近的，这让我可以单击其中一个子面板中的一个点，并观察该点出现在其他地方的位置。实际上不是我想要的，但它让我相信这是可能的:

trellis.focus()
panel.link.splom()

trellis.unfocus() #to close the trellis.focus session

Answer 1

您可以使用选项详细信息来获取详细信息:

 panel.link.splom(verbose=TRUE)

你进入控制台:

Click to choose one point to highlight
    Sepal.Length Sepal.Width Petal.Length Petal.Width
141          6.7         3.1          5.6         2.4

可以想象这样的场景:

然后，您可以使用 sink 重定向控制台。

con <- file("pointsselected.log")
sink(con, append=TRUE)

在图中选择一些点。

选择一个不在面板上的点(绘图外部)

恢复控制台

sink() 

读取所有选定的点

   cat(readLines("pointsselected.log"), sep="\n")

但是从帮助中，交互选项仍然是实验性的，确切的细节将来可能会发生变化。