例如：set.seed(999)
x<-rnorm(100)

y<-rnorm(100)
plot(x,y,xlim=c(min(x)-1,max(x)+1),ylim=c(min(y)-1,max(y)+1))

得如下：

但是怎么在R中能得到类似下面的那种图：把最外层用曲线连起来？