# Simuler des donnéesx <- rnorm(500,20,10) ; y <- rnorm(500,20,10) ; tableau <- data.frame(Axis1 = x,Axis2 = y)# Charger ggplot2library("ggplot2")# Tracer le graphique de densitésp <- ggplot(tableau, aes(x=Axis1, y=Axis2)) + geom_point()sp + stat_density_2d(aes(fill = ..level..), geom="polygon")+ scale_fill_gradient(low="blue", high="red")