積比率與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") 

現在，我想每個域內繪製測量值作爲參考的SO張貼關於繪製相關矩陣（比1，比* ...等）。 。

因此，我想表達的顏色的時間間隔內的電流測量值的位置（從綠色到紅色，其中紅色表示的上限已達到）

我想有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並修改代碼等