如何在折线图中选择顶部和底部点

Question

我有一个由数据框z <- data.frame(x = c(1: 12), y = c(3,5,4,1,3,6,7,9,3,5,1,2))制作的情节。我想对与所选点对应的数据框中的行进行子集化（请参阅所附图像中的红色圆圈）。你们任何人都知道怎么做？谢谢。