繪圖比率作為R中的相關矩陣

Question

這個問題跟我這個SO帖子類似。

比率的樣本數據：

n=50
ratio1 <- seq(0,1.5,(1.5-0)/(n-1))
ratio2 <- seq(0,2.5,(2.5-0)/(n-1))
ratio3 <- seq(0.5,4.5,(4.5-0.5)/(n-1))
ratio4 <- seq(1,3,(3-1)/(n-1))
ratio5 <- seq(0.7,2,(2-0.7)/(n-1))

命名比率：

rname <- c("a/b","c/d","e/f","g/h","i/j") 

所以y軸標簽是c(a,c,e,g,i)和x軸c(b,d,f,h,j)

現在，讓我們說當前的測量值是：

measure.r <- data.frame(c(0.7,1.5,3.3,2.5,1.5))
colnames(measure.r) <- C("r1","r2","r3","r4","r5")

現在，我想繪制每個域內的測量值（比率1，比率2 ......等）作為關於繪制相關矩陣的參考SO帖子。

所以我想用顏色表示區間內的當前測量值位置（從綠色到紅色，其中紅色表示已達到上限）

我想將5個比率繪制為此處引用的相關矩陣。 每個方塊代表測量值的狀態（通過其顏色）。

我試圖將bwplot和晶格levelplot圖組合在一起，但沒有成功。

希望以上是有道理的。 如果您對上述說明有任何疑問，請發布。

Answer 1

很難說出你想在這里做什么，但這可以讓你開始

# some fake data
n <- 5
x <- y <- seq_len(n)
z <- outer(x, y, "/")*rnorm(n) # create a matrix of values

# color palette function
pal <- colorRampPalette(c("green", "red"))

# setup plotting regions
layout(matrix(1:2), heights=c(0.7,0.3))

# make an image of the matrix
# ("n" turns off the axis labeling)
image(x, y, z, xaxt="n", yaxt="n", col=pal(11), asp=1, pty="s")
axis(1, x, letters[1:5])
axis(2, y, letters[6:10])

# add a cheap colorbar...
cz <- pretty(range(z))
cx <- seq_along(cz)
image(x=cx, z=matrix(cz), xaxt="n", yaxt="n", col=pal(11))
axis(1, cx, cz)

給你這樣的東西：

所以你的工作就是制作z並修改代碼等。