如何使用for循环在页面上打印多个ggplots?

时间:2018-11-26 18:17:03

标签: r ggplot2

`

for (i in 1:length(split_fill_data)) {
  new_frame <- split_fill_data[i]
  new_frame_2 <- do.call(rbind.data.frame, new_frame)
  if(is.element(head(new_frame_2["egress"],1), unlist(mkt_out_60["egress"]))) 
      {
        #print(head(arrange(new_frame_2,desc(Bytes_Outside))),5,  na.rm = TRUE)
        Mkt_top5_outside<- head(arrange(new_frame_2,desc(Bytes_Outside)),5)
        print(Mkt_top5_outside)
        mkt_top5_plot <- table(Mkt_top5_outside$Bytes_Outside)
        #barplot(mkt_top5_plot,xlab= Mkt_top5_outside$egress[1])
        print(ggplot2::ggplot(data=Mkt_top5_outside, aes(x=ingress,y=Bytes_Outside))+geom_bar(stat="identity") + ggtitle(Mkt_top5_outside$egress[1]))

      }
  }

`

如何为该循环的每次迭代打印ggplot?目标是将同一页面上的所有ggplots排列在一个网格中。

0 个答案:

没有答案