Bonjour, Une suggestion: library(MASS) df1 <- data.frame(x=rnorm(14000-1500), y=rnorm(14000-1500)) df2 <- data.frame(x=rnorm(1500)+1, y=rnorm(1500)) c1 <- kde2d(df1$x, df1$y) c2 <- kde2d(df2$x, df2$y) x11(12,6) par(mfrow=c(1,2)) plot(df1,col="blue",pch=16,cex=0.5,asp=1) points(df2,col=&quo...