R：格子函數中的傳說

我用R的格子包來想像一個矩陣以獲得10x10格子。R：格子函數中的傳說

不幸的是，我在調節時遇到了一些問題。

色條需要一個說明標題（垂直書寫）。

下面是一個示例代碼，以查看它現在的外觀如何加上圖片。

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

您是否猜測我如何解決這些小問題？

非常感謝你！

來源

2015-12-13 Arne

添加這些行調整的x和y位置根據需要：

library(grid) 
grid.text("Here is some text explaining the legend", .77, .5, rot = 270)

來源

2015-12-13 23:47:37

我無法弄清楚如何添加使用levelplot()一個傳奇，但它是非常簡單的重新使用ggplot的geom_tile你的陰謀。下面是我的了：

library("ggplot2") 
this = melt(cor, id.vars = row.names(cor)) 
ggplot(this) + 
    geom_tile(aes(x = factor(Var1), y = factor(Var2), fill = value)) + 
    scale_fill_continuous(high = "yellow", low = "slateblue4", name = "Your Legend Title") + 
    ggtitle("Your Title") + 
    xlab(expression("DAG depletion rate k"[B49] *" [ s"^"-1"*" ]")) + 
    ylab(expression("PKC activation rate k"[D5] *" [ l/(mol*s) ]")) + 
    theme_bw()

在ggplot微調是相當有據可查的，所以你可能能夠做你所需要的。儘管如此詳細披露：如果您的x和y座標不均勻分佈，geom_tile並不總是知道如何填充空格。注意到我必須將Var1和Var2轉換爲因素。 This文章提供了一些關於如何處理這個問題的好主意。

來源

2015-12-13 22:31:42 Nancy

R：格子函數中的傳說

回答

相關問題