Моя цель - создать цикл, который проходит по нескольким переменным и строит график для каждой из них перед сохранением их в файл PDF. На каждой странице должен быть один график, а на одной странице все они должны быть в одном графике.
Мои переменные:
y1, y2, y3 и y4. Они хранятся в yieldcurves <-c (y1, y2, y3, y4) </em>.
Все переменные имеют дату и значение, как показано ниже:
дата: 2018-04-26 last_price: 2.8310
Кроме того, я преобразовал фрейм данных в длинные данные, используя 'reshape'.
yieldcurves.long<-reshape(yieldcurves,
varying = c("y1", "y2","y3", "y4"),
direction = "long", idvar = "caseid", sep = "_", timevar = "maturity")
names(yieldcurves.long) <-c("date", "maturity", "yield", "subject")
Теперь я хочу создать цикл. Я пробовал код ниже:
pdf("yieldcurves", onefile = TRUE)
nr_yc <-length(unique(yieldcurves.long$maturity))
yc<-list(unique(yieldcurves.long$maturity))
for (i in 1:yc){
Dataplot<-subset(yieldcurves.long, yieldcurves.long$maturity==nr_yc[[1]][i])
myplot<-ggplot(Dataplot) + geom_line(aes(x=yieldcurves.long$date,
y= yieldcurves.long$yield))+
labs(x ="Year", y = "Yield (%)")
grid.arrange(myplot)
}
dev.off()
К сожалению, это не работает. Ты знаешь, что я делаю не так? Большое спасибо!