主要就是一个identify函数的应用。
plot(cars$speed,cars$dist) clicked.lines=identify(cars$dist) #此时在图中选中某个点 #打印选中点所在的记录 cars[clicked.lines,]