Пример который рисует отличную разноцветную диаграмму:
density <- kde2d(x1,x2,lims=c(lower1,upper1,lower2,upper2)) mycol <- function(n) gray((n+1):0/(n+1)) filled.contour(density,color.palette=mycol)filled.contour понимает title и все остальное.
density <- kde2d(x1,x2,lims=c(lower1,upper1,lower2,upper2)) mycol <- function(n) gray((n+1):0/(n+1)) filled.contour(density,color.palette=mycol)filled.contour понимает title и все остальное.