问矩阵中的颜色编号基于它们的值

EN

# you need this for the colour ramp
library(RColorBrewer)

# setup
rows <- 10
collumns <- 10

# data matrix
zVals <- round(rnorm(rows*collumns), 2)
z <- matrix(zVals, rows, collumns)

# pick the number of colours (granularity of colour scale)
nColors <- 100

# create the colour pallete
cols <-colorRampPalette(colors=c("blue", "grey", "red"))(nColors)

# get a zScale for the colours
zScale <- seq(min(z), max(z), length.out = nColors)

# function that returns the nearest colour given a value of z
findNearestColour <- function(x) {
        colorIndex <- which(abs(zScale - x) == min(abs(zScale - x)))
        return(cols[colorIndex])
}

# empty plot
plot(1, 1, type = "n", xlim = c(1, rows), ylim = c(1, collumns), 
     axes = F, xlab = "", ylab = "")

# populate it with the data
for(r in 1:rows){
    for(c in 1:collumns){
        text(c, r, z[c,r], col = findNearestColour(z[c,r])) 
    }
}