0

変数に保存された levelplot グラフの凡例のタイトルを大きくしようとしています。hereのコードを使用して、変数に保存される levelplot グラフにカラーキーの凡例のタイトルを追加しました。

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: https://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

しかし、凡例のタイトルのフォントサイズを大きくしたいと思います。引数の後にgp=gpar(fontsize=14)andを指定してみましたが、フォントサイズが変わりません。引数がどのように機能するか完全にはわかりませんが、それが次のとおりであると想定しましたが、機能していないようです?gp=gpar(cex=9)vjustgpgrid.textgpar

4

2 に答える 2