在R中的levelplot函數中調整軸標簽的字體大小

Question

我有90乘90的矩陣，我試圖得到一個數組相關矩陣。 使用以下命令：

pdf('corr.pdf')
data <- read.table("test", header=T) 
z <- cor(data)
levelplot(z)
dev.off() 

我得到這樣的圖像，我的標簽變得污跡斑斑

請提出改善圖像的建議。

謝謝

Answer 1

編輯 ：從levelplot手冊中取第一個例子，並將scales=list(log="e")參數更改為scales=list(log="e",x=list(cex=.3),y=list(cex=.3)) ：

x <- seq(pi/4, 5 * pi, length.out = 100)
y <- seq(pi/4, 5 * pi, length.out = 100)
r <- as.vector(sqrt(outer(x^2, y^2, "+")))
grid <- expand.grid(x=x, y=y)
grid$z <- cos(r^2) * exp(-r/(pi^3))
levelplot(z~x*y, grid, cuts = 50, 
      scales=list(log="e",x=list(cex=.3),y=list(cex=.3)), xlab=list(cex=.05),
      ylab=list(cex=.25), main=list(label="Weird Function", cex=5), sub="with log scales",
      colorkey = FALSE, region = TRUE)

這將減少軸標簽的字體大小，系數為.3。

Answer 2

你可以糾正這個問題

pdf('corr.pdf', width=100, height=100)
data <- read.table("test", header=T) 
z <- cor(data)
levelplot(z)
dev.off()

Answer 3

最終獲勝者是：

pdf('corr.pdf')
data <- read.table("test", header=T)
z <- cor(data)
heatmap.2(z, Rowv=FALSE, Colv=FALSE, dendrogram="none", 
          key=TRUE, density.info="none", trace="none", 
          col=colorpanel(100, lowColor, highColor), scale="none",cexRow=0.3, cexCol=0.3 )
dev.off()