R базовая сетка пакета не производит вывод

Question

Я запускаю 64-разрядную версию R 2.15.0 на экземпляре Amazon EC2 для Windows Server 2008 R2. grid не производит выход. Например, следующий код должен содержать одну диагональную линию в окне устройства:

grid.newpage() 
l <- linesGrob() 
grid.draw(l) 

Я, однако, ничего не вижу. Есть ли флаг или параметр, который я должен использовать в Windows Server 2008 R2 для включения вывода grid?

EDIT: Еще один воспроизводимый пример, который работает на моем доме (Windows 7 x64) и работы ПК (Windows XP):

library(grid) 
library(png) 

img.path <- system.file("img", "Rlogo.png", package="png") 
bg <- readPNG(img.path) 
background <- rasterGrob(unclass(bg)) 

grid.draw(background) 

Это ожидаемый выход, как видно на моем рабочем компьютере (размер подгоняется ниже):

Answer 1

R не создает растровые изображения правильно в окне устройства через подключение к удаленному рабочему столу. Если требуется растровое изображение, график должен выводиться на другое устройство.

library(ggplot2) 
library(grid) 
library(maps) 
library(mapproj) 
library(png) 
library(RgoogleMaps) 

counties <- map_data("county", region="virginia") 
states <- map_data("state") 

tmp <- tempfile(fileext=".png") 
bg <- GetMap.bbox(range(counties$long), range(counties$lat), destfile=tmp, 
    maptype="satellite", format="png32") 
background <- readPNG(tmp) 
background <- rasterGrob(unclass(background)) 

p <- ggplot(counties, aes(long, lat)) + 
    coord_map(xlim=c(bg$BBOX$ll[2], bg$BBOX$ur[2]), 
      ylim=c(bg$BBOX$ll[1], bg$BBOX$ur[1])) + 
    geom_path(aes(group=group), color="darkgrey") + 
    geom_path(data=states, aes(group=group), color="white", size=1) + 
    opts(axis.line=theme_blank(), 
     axis.text.x=theme_blank(), 
     axis.text.y=theme_blank(), 
     axis.ticks=theme_blank(), 
     axis.title.x=theme_blank(), 
     axis.title.y=theme_blank(), 
     axis.ticks.length=unit(0, "lines"), 
     axis.ticks.margin=unit(0, "lines"), 
     panel.border=theme_blank(), 
     panel.background=function(...)background, 
     panel.grid.major=theme_blank(), 
     panel.grid.minor=theme_blank(), 
     panel.margin=unit(0, "lines"), 
     legend.position="none", 
     legend.title=theme_blank(), 
     legend.background=theme_blank(), 
     plot.margin=unit(0*c(-1.5, -1.5, -1.5, -1.5), "lines")) 

pdf("plot.pdf", height=7, width=7) 
p 
dev.off() 

Я обнаружил, что писать Plotting команды между pdf() и dev.off() производит пустые файлы. Хранение сюжета в объекте и его вызов будут работать.

Answer 2

dev.list() можно назвать вернуть имя вектора открытых графических устройств. В Windows, например:

windows() 
pdf() 
dev.list() 
# windows  pdf 
#  2  3 
dev.off(); dev.off() 
dev.list() 
# NULL 

И dev.cur() возвращает текущее активное устройство. Если есть нет устройства открыты, вы можете открыть один:

windows() 
grid.newpage() 
l <- linesGrob() 
grid.draw(l) 

Для PDF, вы должны быть уверены, чтобы закрыть устройство или иначе файл PDF не будет оказывать:

pdf() # plot saved by default to Rplots.pdf 
grid.newpage() 
l <- linesGrob() 
grid.draw(l) 
dev.off() 

?device помощь страница перечисляет другие графические устройства. Обычно вызов grid.newpage() автоматически открывает новое устройство, если никто не открыт, но, возможно, не в вашем случае. Вышеприведенные примеры работают для меня в Windows 7 x64 и Ubuntu 11.10 x64.

@attitude_stool: Вызывает ли какое-либо из вышеуказанных вопросов вашу проблему?