Пример который рисует отличную разноцветную диаграмму:
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 и все остальное.
wlan0: offered 192.168.1.1 from 192.168.0.1 `host.local' wlan0: got subsequent offer of 192.168.1.2, ignoring wlan0: checking 192.168.1.1 is available on attached networks wlan0: ARPOP_REPLY received from 192.168.1.1 (00:12:34:56:78:9a)
22 Jun 14:13:15 ntpd[2165]: GPS_NMEA(0) serial /dev/gps0 open at 4800 bps
remote refid st t when poll reach delay offset jitter ============================================================================== *127.127.20.0 .GPS. 0 l 11 64 77 0.000 -99.226 59.612 127.127.1.0 .LOCL. 10 l - 64 0 0.000 0.000 0.000