4

.png デバイスまたは .pdf デバイスを使用して、データの複数のパネルと 1 つのプロットを単一の画像としてエクスポートしようとしていますが、成功していません。R ネイティブ プロッティング デバイスを使用して R 内で必要な画像を生成できますが、同じ画像を直接生成しようとすると、予期しない結果が得られます。

ここに私のコード例があります

testMat <- matrix(1:20, ncol = 5)##  create data
testMatDF <- as.data.frame(testMat)
names(testMatDF) <- c("Hey there", "Column 2", 
         "Some * Symbols", "And ^ More", 
         "Final Column")
rownames(testMatDF) <- paste("Group", 1:4)

library(gplots) ##  gplots needed for textplot()
layout(matrix(c(1, 1, 2, 3, 3, 3),  2, 3, byrow = TRUE))
curve(dnorm, -3, 4)
textplot(testMat)
textplot(testMatDF)
##  produces what I want within R

layout(matrix(c(1, 1, 2, 3, 3, 3),  2, 3, byrow = TRUE))
png(file='plot1.png')
curve(dnorm, -3, 4)
textplot(testMat)
textplot(testMatDF)
dev.off()
##  only the last function texplot(testMatDF) gets output, not what I anticipated

mfrow()また、成功せずにグラフィカルパラメーターを試しました。

par(mfrow= c(3, 1))
png(file='plot2.png')
curve(dnorm, -3, 4)
textplot(testMat)
textplot(testMatDF)
dev.off()
##  only the last function texplot(testMatDF) gets output
4

1 に答える 1

16

グラフィック デバイスを開いた後、parまたは開いた後に通話を移動すると、正常に動作するはずです。layout

png(file='plot2.png')
par(mfrow= c(3, 1))
curve(dnorm, -3, 4)
textplot(testMat)
textplot(testMatDF)
dev.off()
于 2012-12-11T22:17:30.017 に答える