90 x 90 の行列があり、配列相関行列を取得しようとしています。次のコマンドを使用します。
pdf('corr.pdf')
data <- read.table("test", header=T)
z <- cor(data)
levelplot(z)
dev.off()
このような画像が表示され、タグが汚れています
画像を改善するための提案をしてください。
ありがとうございました
編集: 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)
これにより、軸ラベルのフォント サイズが 0.3 分の 1 に縮小されます。
これを修正するには
pdf('corr.pdf', width=100, height=100)
data <- read.table("test", header=T)
z <- cor(data)
levelplot(z)
dev.off()
そして勝者は:
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()