如何从clusplot图中提取点？

Question

我正在尝试从下面的函数clusplot生成的图中提取两个椭圆中出现的点（ID）。

    library(cluster)
    # Creates a sample data set.
    y <- matrix(runif(5000,max=1,min=0), 1000, 5, dimnames=list(paste("g", 1:1000, sep=""), paste("t", 1:5, sep=""))) 
    kc <- kmeans(y, centers=2)
    # plot kmeans clusters
    clusplot(y, kc$cluster, color=TRUE, shade=TRUE,labels=4, lines=0)