R - 変数に保存されたレベルプロットに凡例のタイトルを追加するには？

Question

変数に保存されたレベルプロットグラフに凡例のタイトルを追加したいとします。

たとえば、このコードは動作します：

library(lattice) 
library(grid) 
x = 1:10 
y = rep(x,rep(10,10)) 
x = rep(x,rep(10)) 
z = x+y 
levelplot(z~x*y, colorkey=list(labels=list(cex=1,font=2,col="brown"),height=1,width=1.4),main=list('b',side=1,line=0.5)) 
trellis.focus("legend", side="right", clipp.off=TRUE, highlight=FALSE) 
grid.text(expression(m^3/m^3), 0.2, 0, hjust=0.5, vjust=1) 
trellis.unfocus() 

をしかし、同じプロットを変数として保存されているこのコードは、動作しません：

p1 <- levelplot(z~x*y, colorkey=list(labels=list(cex=1,font=2,col="brown"),height=1,width=1.4),main=list('b',side=1,line=0.5)) 
trellis.focus("legend", side="right", clipp.off=TRUE, highlight=FALSE) 
grid.text(expression(m^3/m^3), 0.2, 0, hjust=0.5, vjust=1) 
trellis.unfocus() 

どのように私はこれを達成することができますか？

Answer 1

これはあなたの質問に直接答えませんが、おそらくワークフローの変更を提供します。ここで、colorkey引数を使用してキーにタイトルを追加できます。

これには、draw.colorkey機能を調整する必要があります。

最も簡単な方法は、

} 
    if (!is.null(key$title)) { 
     key.gf <- placeGrob(key.gf, textGrob(key$title, hjust = key$hjust, 
      vjust = key$vjust, gp = key$gp), row = key$row, col = key$column) 
    } 
    if (draw) 
     grid.draw(key.gf) 
    key.gf 
} 

保存して終わりに最後の数行を変更する関数の最後にfixInNamespace対話的

fixInNamespace("draw.colorkey", "lattice") 

を使用することであり、以下に示すようにあなたがして使用することができます。

---

それは

library(lattice) 
library(grid) 

# Amend key function 
# Hopefully a nicer way to do this! 
mykey <- draw.colorkey 

body(mykey)[28:30] <- list(
quote(
    if(!is.null(key$title)){ 
     key.gf <- placeGrob(key.gf, 
         textGrob(key$title,hjust=key$hjust, vjust=key$vjust, gp=key$gp), 
          row=key$row, col=key$column) 
    }), 
body(mykey)[[28]], 
body(mykey)[[29]]) 

# Assign to namespace: http://stackoverflow.com/questions/6254744/override-a-function-that-is-imported-in-a-namespace 
unlockBinding("draw.colorkey", as.environment("package:lattice")) 
assign("draw.colorkey", mykey, "package:lattice") 
unlockBinding("draw.colorkey", getNamespace("lattice")) 
assign("draw.colorkey", mykey, getNamespace("lattice")) 

としてもを行うことができますので、しかし、あなたはあなたが、その後の位置に

# Draw plot 
x = 1:10 
y = rep(x,rep(10,10)) 
x = rep(x,rep(10)) 
z = x+y 
p <- levelplot(z~x*y, 
       colorkey=list(labels=list(cex=1, font=2, col="brown"), 
          height=1, width=1.4, 
          title=expression(m^3/m^3), row=3, column=1, vjust=2), 
       main=list('b',side=1,line=0.5)) 


p 

を指定して、タイトルキーを渡すことができ、対話的にこれを行うことができない場合があり

これはどれですか？