Я спросил вчера этот вопрос о хранении сюжета внутри объекта. Я попытался реализовать первый подход (учитывая, что я не указывал, что использовал 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 файл с несколькими страницами на каждой странице, но главная цель моего кода заключалась в том, чтобы сохранить графики в списке, к которому я мог бы получить доступ позднее.