r<-rvmises(200,1.0)
Rs<-genR(r)
plot(Rs,center=mean(Rs),show_estimates=NULL,shape=4)
# Z is computed internally and contains information on depth
plot(Rs,center=mean(Rs),show_estimates=c("proj.mean", "geom.mean"),
label_points=sample(LETTERS, 200, replace=TRUE)) + aes(size=Z, alpha=Z) +
scale_size(limits=c(-1,1), range=c(0.5,2.5))
Run the code above in your browser using DataLab