2
的PNG/JPEG/SVG/TIFF/BMP设备
我只是想挽救一个情节到一个文件，它看起来像它没有一个整体R系列设备：任何问题R中
getgrob = function(x, y) {
require(grid)
x = 1:10
y = rnorm(10)
plotvp = plotViewport(c(5, 5, 3, 3), name='plotvp')
datavp = dataViewport(x, y, name='datavp')
datapts = pointsGrob(
x, y, pch=20,
size=unit(2.3, 'mm'),
name='datapts',
gp=gpar(col='black')
)
xaxis = xaxisGrob()
yaxis = yaxisGrob()
xlab = textGrob('X Label', y=unit(-3, 'lines'), name='xlab')
ylab = textGrob('Y Label', x=unit(-3, 'lines'), rot=90, name='ylab')
plotbox = rectGrob()
dataplot = gTree(children=gList(datapts,
xaxis, yaxis,
xlab, ylab,
plotbox),
vp=datavp, name='dataplot')
wholeplot = gTree(children=gList(dataplot),
vp=plotvp, name='wholeplot')
wholeplot
}
pdf('/tmp/a.pdf')
mygrob = getgrob(1:10, rnorm(10))
grid.draw(mygrob)
dev.off()
png('/tmp/a.png')
mygrob = getgrob(1:10, rnorm(10))
grid.draw(mygrob)
dev.off()
jpeg('/tmp/a.jpg')
mygrob = getgrob(1:10, rnorm(10))
grid.draw(mygrob)
dev.off()
tiff('/tmp/a.tiff')
mygrob = getgrob(1:10, rnorm(10))
grid.draw(mygrob)
dev.off()
bmp('/tmp/a.bmp')
mygrob = getgrob(1:10, rnorm(10))
grid.draw(mygrob)
dev.off()
svg('/tmp/a.svg')
mygrob = getgrob(1:10, rnorm(10))
grid.draw(mygrob)
dev.off()
我得到的是一个空白区域与轴和扁虱：
但PDF设备仍然有效。我在这里错过了什么吗？
这里是版本信息：
R version 3.0.1 (2013-05-16) -- "Good Sport"
Copyright (C) 2013 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)