我可以在RStudio中识别散点图中的点并仍然使用knitr吗？

Question

我正在使用RStudio。我想在散点图中识别点，然后使用knitr将突出显示识别点的图打印到报告中。这是一个简单的示例（不起作用）：

```{r,results="hide",echo=FALSE}
checked_pts <- vector(mode = "integer", length = 0)
x <- rnorm(50)
y <- rnorm(50)
plot(x, y)
checked_pts <- identify(x, y, labels = seq_along(x), plot = FALSE)
```
# Plot with Checked Points

```{r,echo=FALSE}
plot(x,y)
points(x = x[checked_pts], y = y[checked_pts], pch = 16, col = "red")
```

该示例在knitr html中两次打印该图，但不允许我识别点。注意：我已经尝试了所有的fig.show选项。