001、
dat <- data.frame( rep1 = sample(1:20), rep2 = 20:1, rep3 = 1:20 ) dat image(1:20, 1:3, as.matrix(dat)) ## 参数需要是矩阵