在多个图中通过 identify() 选择点

Question

我有一个数据框df，它的每一列都被绘制为一个简单的散点图。我想通过identify() 在每个图表中选择一个点并将其存储在列表中s - 一个接一个的图表。这是我的方法：

x1 <- c(12:4, 5:8, NA, NA)
x2 <- c(15:8, 9:15)
df <- data.frame(x1, x2)

fun <- function(z){
    y <- na.omit(z)
    x <- seq(1:length(y))
    plot(x,y)
    s <- identify(x, n = 1, plot = F)
}

lapply(df, fun)  

在第一个图中选择一个点后出现以下错误：

> warning: no point within 0.25 inches

但似乎正确检测到第二个图中的点。 我做错了什么？

Answer 1

您需要再向identify 添加一个参数，以便它知道要查找的 y 坐标。

s <- identify(x = x, y = y, n = 1, plot = F)

更改此设置后，您的功能对我来说很好。