我有一些相關(guān)值的矩陣?，F(xiàn)在，我想在一個(gè)看起來或多或少像這樣的圖形中繪制該圖形：我該如何實(shí)現(xiàn)？
3 回答
慕容森
TA貢獻(xiàn)1853條經(jīng)驗(yàn) 獲得超18個(gè)贊
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))
一只名叫tom的貓
TA貢獻(xiàn)1906條經(jīng)驗(yàn) 獲得超3個(gè)贊
非常容易使用grid :: levelplot：
z <- cor(mtcars)
require(lattice)
levelplot(z)
三國(guó)紛爭(zhēng)
TA貢獻(xiàn)1804條經(jīng)驗(yàn) 獲得超7個(gè)贊
ggplot2庫(kù)可以使用來處理此問題geom_tile()。由于沒有任何負(fù)相關(guān)，因此上圖中似乎已進(jìn)行了一些縮放，因此請(qǐng)?jiān)跀?shù)據(jù)中考慮這一點(diǎn)。使用mtcars數(shù)據(jù)集：
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")
允許指定中點(diǎn)的顏色，默認(rèn)為白色，因此此處可能是一個(gè)不錯(cuò)的調(diào)整。其他選項(xiàng)可以在ggplot網(wǎng)站的此處和此處找到。
- 3 回答
- 0 關(guān)注
- 562 瀏覽
添加回答
舉報(bào)
0/150
提交
取消