绘制比率作为R中的相关矩阵

Question

这个问题和我类似SO post.

比率的样本数据：

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")

现在，我想将每个域（ratio1、ratio2...等）内的测量值绘制为有关绘制相关矩阵的参考 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 并修改代码等。