сохранение участков для петель

Question

Я хочу построить сети с разными временными метками с 2014 по 2018 год и зарезервировать каждый год как отдельный объект в заранее определенной папке.Это мой код:

 library(igraph)
    plot_year <- function(year) 
              {
   months_list <-sort(unique(comm_df[comm_df$post_created_year==year,"post_created_month"]))
 df_list     <- split(comm_df[comm_df$post_created_year==year,],
                   comm_df[comm_df$post_created_year==year,"post_created_month"])

   # return (df_list)

    par(mfrow = c(6, 2), mar=c(1,1,1,1))
  for (df in df_list)
  {
     comm_network <- graph.data.frame(df, directed=F);
     comm_network <- simplify(comm_network);
     # l_mds        <- layout_with_mds(comm_network);
     main_text    <- unique(df$Yearmon);

     plot(comm_network,
          # layout=l_mds,     
          vertex.size=8,
          vertex.label.cex=0.5,
          edge.color="black",
          edge.arrow.size=2,
          main=main_text)
     }
 # dev.off()
 }

 p1<- plot_year(2018) 

Я думаю, что я должен использовать структуру for_loop в год, однако, я не знаю, как это сделать.