colorRampPalette (c("blue","green","red","yellow")) function (n). { x <- ramp(seq.int(0, 1, length.out = n)) if (ncol(x) == 4L) rgb(x[, 1L], x[, 2L], x[, ...
確定! 回上一頁