Zapisywanie działki w obiekcie

Question

W ggplot2 można łatwo zapisać grafikę w obiekcie R.

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

Standardowa funkcja plot produkuje grafikę jako funkcję void i zwraca NULL.

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

Czy to możliwe, aby zapisać grafikę stworzoną przez plot w obiekcie?

Answer 1

Podstawowa grafika narysowana bezpośrednio na urządzeniu.

Można użyć

1- recordPlot

2- niedawno wprowadzony gridGraphics package, konwertować grafiki bazowe do ich sieci równoważnej

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) 

Answer 2

You może korzystać z aktywnej funkcji wiązania pakietu pryr, jeśli nie chcesz bezpośrednio zmienić wartości utworzonego obiektu.

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

każdym razem wpisać a na konsoli wykres będzie przedrukowany na ekranie. Operator %<a-% ponownie uruchomi skrypt za każdym razem (w przypadku jednego wykresu to nie jest problem, jak sądzę). Zasadniczo za każdym razem, gdy użyjesz a, kod zostanie ponownie uruchomiony, co spowoduje powstanie wykresu, który oczywiście możesz manipulować (nakładanie kolejnego wykresu na wierzchu) lub zapisywać przy użyciu na przykład png. Jednak sama wartość nie będzie przechowywana w a. Wartość będzie nadal mieć wartość NULL.

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

Answer 3

Spóźniam się na to, ale było to pierwsze pytanie, które pojawiło się, gdy szukałem pytania. Chciałbym dodać moje rozwiązanie dla przyszłych widzów, którzy natrafiają na to pytanie.

Rozwiązałem to, używając funkcji zamiast obiektu. Załóżmy na przykład, że chcemy porównać dwie dystrybucje beta o różnych parametrach. Możemy uruchomić:

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 zapisać wykresy jak funkcji zamiast obiektów.

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

Następnie możemy wywołać każdy wykres tak, jak chcemy, po prostu wywołując dwa wykresy jako funkcje, a nie obiekty.

z.plot1() 

Działki pierwsza fabuły i

z.plot2() 

Działki drugiego.

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