R/plot_page.R

In EBukin/plotTS: Set of functions for plotting timeseries data faostat-based data

# Plotting one page
plot_page <-
  function(df, plots_var, timeseries_var, flagList, n_page, legend) {
    page_plots_list <-
      dlply(df, plots_var, build_one_plot, timeseries_var, flagList = flagList, legend_list = legend)
    grid_arrange_shared_legend(plots_list = page_plots_list, n_page = n_page)
  }