将图保存在for循环中

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结构，但是，我不知道该怎么做。