dens1 <- density(results[,1])
dens2 <- density(results[,2])
dens3 <- density(results[,3])

plot(dens1$x, dens1$y, ...)
lines(dens2$x, dens2$y, col="blue")
lines(dens3$x, dens3$y, col="red")

太感谢了！！我这就试试~