Я пишу функцию для извлечения и вывода данных из списка. Я хотел бы сохранить графики под названием, которое состоит из комбинации двух переменных TS и n_PC. Мой код ниже. Как я могу это сделать?
plot_components <- function(WL_1,WL_2,WL_3,WL_4,WL_5,WL_6,WL_7,PC,TS,n_PC) {
TS_comp<- data.frame(reconstructed_ts[[WL_1]][[PC]][[TS]],reconstructed_ts[[WL_2]][[PC]][[TS]],reconstructed_ts[[WL_3]][[PC]][[TS]],reconstructed_ts[[WL_4]][[PC]][[TS]],reconstructed_ts[[WL_5]][[PC]][[TS]],reconstructed_ts[[WL_6]][[PC]][[TS]],reconstructed_ts[[WL_7]][[PC]][[TS]])
names(TS_comp)<-c(as.character(WL_1),as.character(WL_2),as.character(WL_3),as.character(WL_4),as.character(WL_5),as.character(WL_6),as.character(WL_7))
matplot(TS_comp,type="l",xlab="Time",ylab="Reconstructed series",main=as.character(n_PC),lty = "solid")
legend("bottom",
legend = (names(TS_comp)),
col = 1:7,lty = "solid",
text.col = "black",cex = 0.7,
horiz = T,inset = c(0.01, 0.01))
dev.copy(png,'D:/forecast/',file=paste(as.character(TS,n_PC),'.png'))
dev.off()
}