Вопрос по r, amazon-ec2 – Сетка R базового пакета не производит вывод

2

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

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

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

РЕДАКТИРОВАТЬ: еще один воспроизводимый пример, который работает на моем доме (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)

Это ожидаемый результат, как видно на моем рабочем ПК (размер изменен, чтобы соответствовать ниже):

R-log-png

Error: User Rate Limit Exceeded?DeviceError: User Rate Limit Exceededoptions("device")Error: User Rate Limit Exceededpdf(file = "file1.pdf")Error: User Rate Limit Exceededdev.off()Error: User Rate Limit Exceededplot()Error: User Rate Limit Exceededgrid.draw()Error: User Rate Limit Exceeded jthetzel
Error: User Rate Limit Exceeded attitude_stool
Error: User Rate Limit Exceededplot(1)Error: User Rate Limit Exceeded attitude_stool
Error: User Rate Limit Exceeded mdsumner
Error: User Rate Limit Exceeded mdsumner

Ваш Ответ

2   ответа
2

dev.list()Error: User Rate Limit Exceeded

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

Error: User Rate Limit Exceededdev.cur()Error: User Rate Limit Exceeded

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

Error: User Rate Limit Exceeded

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

Error: User Rate Limit Exceeded?deviceError: User Rate Limit Exceededgrid.newpage()Error: User Rate Limit Exceeded

Error: User Rate Limit Exceeded

Error: User Rate Limit Exceeded attitude_stool
Error: User Rate Limit Exceeded
Error: User Rate Limit ExceededsessionInfo()Error: User Rate Limit Exceededgrid:::drawGrob(l)Error: User Rate Limit Exceededxyplot(Sepal.Length + Sepal.Width ~ Petal.Length + Petal.Width | Species, data = iris)
Error: User Rate Limit Exceededprint(grid.draw(l)) ?
2

RError: User Rate Limit Exceeded

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()

Error: User Rate Limit Exceededpdf()Error: User Rate Limit Exceededdev.off()Error: User Rate Limit Exceeded

Error: User Rate Limit Exceededpanel.backgroundError: User Rate Limit Exceeded?annotation_rasterError: User Rate Limit Exceeded?annotation_customError: User Rate Limit Exceeded

Похожие вопросы