Сохранение сюжетных объектов в списке

Я спросил вчера этот вопрос о хранении сюжета внутри объекта. Я попытался реализовать первый подход (учитывая, что я не указывал, что использовал qplot() в моем исходном вопросе), и заметил, что он не работает должным образом.

library(ggplot2)               # add ggplot2

string = "C:/example.pdf"      # Setup pdf
pdf(string,height=6,width=9)

x_range <- range(1,50)         # Specify Range

# Create a list to hold the plot objects.
pltList <- list()
pltList[]

for(i in 1 : 16){

# Organise data 
y = (1:50) * i * 1000                       # Get y col
x = (1:50)                                  # get x col
y = log(y)                                  # Use natural log

# Regression
lm.0 = lm(formula = y ~ x)                  # make linear model
inter = summary(lm.0)$coefficients[1,1]     # Get intercept
slop = summary(lm.0)$coefficients[2,1]      # Get slope

# Make plot name
pltName <- paste( 'a', i, sep = '' )

# make plot object    
p <- qplot(
    x, y,   
    xlab = "Radius [km]", 
    ylab = "Services [log]",
    xlim = x_range,
    main = paste("Sample",i)
) + geom_abline(intercept = inter, slope = slop, colour = "red", size = 1)        

print(p)     

pltList[[pltName]] = p       
}

# close the PDF file
dev.off()

Я использовал примеры номеров в этом случае, поэтому код запускается, если он просто скопирован. Я потратил несколько часов на это, но я не могу понять, что происходит не так. Он записывает первый набор pdf файлов без проблем, поэтому у меня есть 16 pdf файлов с правильными графиками.

Тогда, когда я использую этот фрагмент кода:

string = "C:/test_tabloid.pdf"
pdf(string, height = 11, width = 17)

grid.newpage()
pushViewport( viewport( layout = grid.layout(3, 3) ) )

vplayout <- function(x, y){viewport(layout.pos.row = x, layout.pos.col = y)}

counter = 1

# Page 1
for (i in 1:3){    
    for (j in 1:3){     
         pltName <- paste( 'a', counter, sep = '' )   
         print( pltList[[pltName]], vp = vplayout(i,j) )
         counter = counter + 1
     }
 }

 dev.off()

результат, который я получаю, - это последняя линейная линейная модель (abline) на каждом графе, но данные не изменяются. Когда я проверяю свой список графиков, кажется, что все они перезаписываются последним сюжетом (за исключением объекта abline).

Менее важный вторичный вопрос заключался в том, как создать pdf файл с несколькими страницами на каждой странице, но главная цель моего кода заключалась в том, чтобы сохранить графики в списке, к которому я мог бы получить доступ позднее.

Ответы

Ответ 1

Хорошо, поэтому, если ваша команда графика изменена на

p <- qplot(data = data.frame(x = x, y = y),
           x, y,   
           xlab = "Radius [km]", 
           ylab = "Services [log]",
           xlim = x_range,
           ylim = c(0,10),
           main = paste("Sample",i)
           ) + geom_abline(intercept = inter, slope = slop, colour = "red", size = 1)

тогда все работает так, как ожидалось. Здесь я подозреваю, что это происходит (хотя Хэдли, возможно, мог прояснить ситуацию). Когда ggplot2 "сохраняет" данные, на самом деле это сохраняет кадр данных и имена параметров. Поэтому для команды, как я ее дал, вы получаете

> summary(pltList[["a1"]])
data: x, y [50x2]
mapping:  x = x, y = y
scales:   x, y 
faceting: facet_grid(. ~ ., FALSE)
-----------------------------------
geom_point:  
stat_identity:  
position_identity: (width = NULL, height = NULL)

mapping: group = 1 
geom_abline: colour = red, size = 1 
stat_abline: intercept = 2.55595281266726, slope = 0.05543539319091 
position_identity: (width = NULL, height = NULL)

Однако, если вы не укажете параметр data в qplot, все переменные будут оцениваться в текущей области, потому что нет прикрепленного (прочитанного: сохраненного) кадра данных.

data: [0x0]
mapping:  x = x, y = y
scales:   x, y 
faceting: facet_grid(. ~ ., FALSE)
-----------------------------------
geom_point:  
stat_identity:  
position_identity: (width = NULL, height = NULL)

mapping: group = 1 
geom_abline: colour = red, size = 1 
stat_abline: intercept = 2.55595281266726, slope = 0.05543539319091 
position_identity: (width = NULL, height = NULL)

Итак, когда график генерируется во второй раз, вместо использования исходных значений, он использует текущие значения x и y.

Ответ 2

Я думаю, вы должны использовать аргумент data в qplot, т.е. хранить ваши векторы в кадре данных.

См. книгу Хэдли, раздел 4.4:

Ограничение данных прост: это должен быть кадр данных. Это ограничение, и в отличие от других графических пакетов в функциях R. Lattice можно взять необязательный фрейм данных или использовать векторы непосредственно из глобальной среды....

Данные сохраняются в объекте plot как копия, а не ссылка. У этого есть два важные последствия: если ваши данные изменятся, сюжет не будет; и объекты ggplot2 полностью автономны, так что они могут сохранять() d на диск, а затем загружать() ed и рисовать без необходимости чего-либо еще из этого сеанса.

Ответ 3

В вашем коде есть ошибка, связанная с подпиской на список. Это должно быть

pltList[[pltName]]

не

pltList[pltName]

Примечание:

class(pltList[1])
[1] "list"

pltList [1] - это список, содержащий первый элемент pltList.

class(pltList[[1]])
[1] "ggplot"

pltList [[1]] - первый элемент pltList.

Ответ 4

Для вашего второго вопроса: Многостраничные PDF файлы просты - см. help(pdf):

 onefile: logical: if true (the default) allow multiple figures in one
          file.  If false, generate a file with name containing the
          page number for each page.  Defaults to ‘TRUE’.

Для вашего основного вопроса я не понимаю, хотите ли вы хранить входы в виде графика в списке для последующей обработки или вывода графика. Если это последний, я не уверен, что plot() возвращает объект, который вы можете хранить и извлекать.

Ответ 5

Еще одно предложение по вашему второму вопросу - использовать Sweave или Brew, поскольку они дадут вам полный контроль над тем, как вы показываете многостраничный PDF файл.

Посмотрите по этому связанному вопросу.