Зберегти сюжет в об’єкті

У ggplot2, можна легко зберегти графіку в об'єкт R.

p = ggplot(...) + geom_point()      # does not display the graph
p                                   # displays the graph

Стандартна функція plotстворює графіку як функцію void і повертає NULL.

p = plot(1:10)     # displays the graph
p                  # NULL

Чи можна зберегти графіку, створену plotв об'єкті?

базова графіка малює безпосередньо на пристрої.

Ви могли б використовувати

1- recordPlot

2- нещодавно представлений gridGraphicsпакет для перетворення базової графіки в сітчастий еквівалент

Ось мінімальний приклад,

plot(1:10) 

p <- recordPlot()
plot.new() ## clean up device
p # redraw

## grab the scene as a grid object
library(gridGraphics)
library(grid)
grid.echo()
a <- grid.grab()

## draw it, changes optional
grid.newpage()
a <- editGrob(a, vp=viewport(width=unit(2,"in")), gp=gpar(fontsize=10))
grid.draw(a)

Я дуже запізнився з цим, але це було перше питання, яке з’явилося, коли я шукав його. Тому я хотів би додати своє рішення для майбутніх глядачів, які стикаються з цим питанням.

Я вирішив це, використовуючи функцію замість об’єкта. Наприклад, припустимо, ми хочемо порівняти два бета-розподіли з різними параметрами. Ми можемо запустити:

z1<-rbeta(10000,5,5)
z2<-rbeta(10000,20,20)
plotit<-function(vector,alpha,beta){
plot(density(vector),xlim=c(0,1))
abline(v=alpha/(alpha+beta),lty="longdash")
}

І збережіть графіки як функції, а не як об’єкти.

z.plot1<-function(){plotit(z1,5,5)}
z.plot2<-function(){plotit(z2,20,20)}

Далі ми можемо називати кожну ділянку так, як хочемо, просто називаючи дві ділянки як функції, а не як об’єкти.

z.plot1()

сюжети першого сюжету і

z.plot2()

сюжети другого.

Сподіваюся, це допоможе тому, хто пізніше натрапить на це!

Ви можете використовувати функцію активного прив’язки pryrпакета, якщо не хочете безпосередньо змінювати значення створеного об’єкта.

library(pryr)
a %<a-% plot(1:10,1:10)

Щоразу, коли ви вводите текст aна консолі, графік буде передруковуватися на екрані. %<a-%Оператор перезапуску скрипта щораз (у разі одного графа це не проблема , я думаю). Таким чином, по суті, кожного разу, коли ви використовуєте aкод, буде перезапущено, що призведе до вашої графіки, яку, звичайно, ви можете маніпулювати (накласти інший графік зверху) або зберегти, використовуючи, pngнаприклад. aОднак жодне значення не буде збережене . Значення все одно буде NULL.

Я не знаю, чи вище ви шукаєте, але це може бути прийнятним рішенням.

library(ggplot2)
# if mygraph is a plot object
ggsave("myplot1.png",mygraph)

# if the plot is in a list (e.g. created by the Bibliometrics package)
ggsave("myplot1.png",mygraphs[[1]])