Запустите ggsave () в диспетчере задач - PullRequest
Новая
       33

Запустите ggsave () в диспетчере задач

0 голосов
/ 09 марта 2019

Я пытаюсь запустить этот код в диспетчере задач. Он успешно работает в Rstudio, но возникает ошибка, когда я запускаю его в диспетчере задач. Вот код R. 

grDevices::dev.set(1)
library(ggplot2)

pdf(NULL)

options(bitmapType = 'cairo', device = 'pdf')

g <- ggplot()+geom_line(data = data.frame(a = 1:10, b = 21:30), 
                        aes(x = a, y = b))

ggsave('path/graph.pdf',
       g,
       device = 'png')

Ошибка при запуске в диспетчере задач выглядит следующим образом:

Ошибка в (function (file = if (onefile) "Rplots.pdf" else "Rplot% 03d.pdf",: не могу открыть файл 'Rplots.pdf' Звонки: -> Исполнение остановлено

В приведенном ниже посте говорится о vanilla options при вызове Rscript ... но я не мог понять, каково решение ...

Rscript ggplot - проблема ggsave

1 Ответ

0 голосов
/ 11 марта 2019

Это помогло. 

grDevices::dev.set(1)
library(ggplot2)

pdf(NULL)

options(bitmapType = 'cairo', device = 'pdf')

g <- ggplot()+geom_line(data = data.frame(a = 1:10, b = 21:30), 
                        aes(x = a, y = b))

ggsave(tf<-tempfile(fileext = ".png"),
       g,
       device = 'png')
...