library(lattice)

#Build the horizontal and vertical axis information

hor <- c("214", "215", "216", "224", "211", "212", "213", "223", "226", "225")

ver <- paste("DM1-", hor, sep="")

#Build the fake correlation matrix

nrowcol <- length(ver)

cor <- matrix(runif(nrowcol*nrowcol, min=0.4), nrow=nrowcol, ncol=nrowcol, dimnames = list(hor, ver))

for (i in 1:nrowcol) cor[i,i] = 1

#Build the plot

rgb.palette <- colorRampPalette(c("blue", "yellow"), space = "rgb")

levelplot(cor, main="stage 12-14 array correlation matrix", xlab="", ylab="", col.regions=rgb.palette(120), cuts=100, at=seq(0,1,0.01))

非常容易使用grid :: levelplot：

z <- cor(mtcars)

require(lattice)

levelplot(z)

ggplot2庫可以使用來處理此問題geom_tile()。由于沒有任何負相關，因此上圖中似乎已進行了一些縮放，因此請在數據中考慮這一點。使用mtcars數據集：

library(ggplot2)

library(reshape)

z <- cor(mtcars)

z.m <- melt(z)

ggplot(z.m, aes(X1, X2, fill = value)) + geom_tile() + 

scale_fill_gradient(low = "blue",  high = "yellow")

編輯：

ggplot(z.m, aes(X1, X2, fill = value)) + geom_tile() + 

scale_fill_gradient2(low = "blue",  high = "yellow")

允許指定中點的顏色，默認為白色，因此此處可能是一個不錯的調整。其他選項可以在ggplot網站的此處和此處找到。