在多个图中通过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)

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