Zapisz wykres w obiekcie

W programie ggplot2można łatwo zapisać grafikę do obiektu R.

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

Funkcja standardowa plottworzy grafikę jako funkcję void i zwraca NULL.

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

Czy można zapisać grafikę stworzoną przez plotw obiekcie?

grafika bazowa rysowana bezpośrednio na urządzeniu.

Możesz użyć

1- recordPlot

2- Niedawno wprowadzony gridGraphicspakiet do konwersji grafiki podstawowej do ich odpowiednika w siatce

Oto minimalny przykład,

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)

Bardzo się na to spóźniłem, ale było to pierwsze pytanie, które się pojawiło, gdy szukałem tego pytania. Dlatego chciałbym dodać moje rozwiązanie dla przyszłych widzów, którzy napotkają to pytanie.

Rozwiązałem to, używając funkcji zamiast obiektu. Załóżmy na przykład, że chcemy porównać dwa rozkłady beta z różnymi parametrami. Uciekamy:

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")
}

I zapisuj wykresy jako funkcje, a nie obiekty.

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

Następnie możemy nazwać każdy wykres tak, jak chcemy, po prostu nazywając te dwa wykresy funkcjami, a nie obiektami.

z.plot1()

kreśli pierwszą działkę i

z.plot2()

kreśli drugą.

Mam nadzieję, że pomoże to komuś, kto natknie się na to później!

Możesz użyć funkcji aktywnego wiązania pryrpakietu, jeśli nie chcesz bezpośrednio zmieniać wartości utworzonego obiektu.

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

Za każdym razem, gdy będziesz pisać ana konsoli, wykres zostanie ponownie wydrukowany na ekranie. %<a-%Operator będzie ponownie uruchomić skrypt za każdym razem (w przypadku jednego wykresu To nie jest problem, myślę). Zasadniczo więc za każdym razem, gdy użyjesz akodu, zostanie uruchomiony ponownie, co spowoduje powstanie wykresu, którym możesz oczywiście manipulować (nałożyć inny wykres na górę) lub zapisać, używając pngna przykład. aJednak żadna sama wartość nie zostanie zapisana . Wartość nadal będzie NULL.

Nie wiem, czy powyższe jest tym, czego szukasz, ale może to być akceptowalne rozwiązanie.

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