2

これは、以前の問題に関するフォローアップの質問です。10x10 の行列を視覚化levelplotし、値に応じて四角形に色を付けました。

これはうまくいきますが、色付けには if-else ステートメントも使用したいと思います。つまり、正方形の値が特定の数値よりも小さい場合、それぞれの正方形は赤に、それ以外の場合は青に色付けする必要があります。

これは非常に簡単な問題だと確信しています。解決策が見つかりません。

これが現在どのように見えるかを確認するためのコード例と画像です。

library(lattice)

#Build the horizontal and vertical axis information

hor=c("0.0005", "0.001", "0.005", "0.01", "0.05", "0.1", "0.5", "1", "5", "10")
ver=c("1000","2000","3000","4000","5000","6000","7000","8000","9000","10000")

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

rgb.palette <- colorRampPalette(c("blue", "yellow"), space = "rgb")
levelplot(cor, col.regions=rgb.palette(120), cuts=100, at=seq(0,1,0.01),
          xlab=expression("DAG depletion rate k"[B49] *" [ s"^"-1"*" ]"),
          ylab=expression("PKC activation rate k"[D5] *" [ l / (mol*s) ]"))

この小さな問題をどのように修正できるか推測できますか?

ここに画像の説明を入力

4

1 に答える 1

2 
levelplot(cor < 0.5, col.regions=c("red", "blue"), cuts = 1, 
          xlab=expression("DAG depletion rate k"[B49] *" [ s"^"-1"*" ]"),
          ylab=expression("PKC activation rate k"[D5] *" [ l / (mol*s) ]"))

凡例には満足できませんが、ラティスを使用して離散スケールに変更する方法がわかりません。

ここに画像の説明を入力

于 2015-12-21T10:37:15.087 に答える