0

画面出力用に格子プロットを配列するプラットフォームに依存しない方法はありますか?

私のアプローチには、以下を使用することが含まれます。

trellis.device(device="windows")
print(chart.hist, split = c(1,1,1,2), more = TRUE)
print(chart.cdf, split = c(1,2,1,2))

私のMacでは、私は必要ですtrellis.device(device="x11",...)、仕事中の私のWindowsマシンでは、私は必要ですtrellis.device(device="windows",...)

例：

set.seed(1)
x <- rnorm(100, 0, 1)

discrete.cdf <- function(x, decreasing=FALSE){
    x <- x[order(x,decreasing=FALSE)]
    result <- data.frame(rank=1:length(x),x=x)
    result$cdf <- result$rank/nrow(result)
    return(result)
}

my.df <- discrete.cdf(x)

chart.hist <- histogram(~x, data=my.df,
                        xlab="")
chart.cdf <- xyplot(100*cdf~x, data=my.df, type="s",
                    ylab="Cumulative Percent of Total")

graphics.off()
trellis.device(device = "windows", width = 6, height = 6)
print(chart.hist, split = c(1,1,1,2), more = TRUE)
print(chart.cdf, split = c(1,2,1,2))
4

1 に答える 1

2

関数のオプション「デバイス」を省略してtrellis.device()ください。プラットフォーム固有のデフォルトを使用します (少なくとも、ここ Linux では "x11" がデフォルトのデバイスであるため、そのように動作します)。

于 2012-11-13T22:16:51.813 に答える