`
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排列在一个网格中。