Muestreo en R

# generando un millón de números aleatorios
x <- rnorm(1e6)
y <- rnorm(1e6)
plot(x,y,pch=19, col="blue")

# Dispersión suavizada. El azul intenso, al centro del gráfico, muestra la ubicación de la mayor cantidad de números; los puntos dispersos en el borde, por otra parte, son outliers)
smoothScatter(x,y)

KernSmooth 2.23 loaded Copyright M. P. Wand 1997-2009

# muestreando 1000 números 
sampledValues <- sample(1:1e4, size=1000, replace=F)
plot(x[sampledValues], y[sampledValues], pch=19, col="blue")