# Load Data:
input_path <- system.file("extdata/in", package = "GTAPViz")
sl4.plot.data <- readRDS(file.path(input_path, "sl4.plot.data.rds"))
# Creating Sorting Rule
sorting_specs <- list(
Experiment = c("EXP2", "EXP1"), # Show EXP2 first, then EXP1
Region = c("EastAsia", "SEAsia", "Oceania") # Custom region order
)
# Sorting
sort_data <- sort_plot_data(sl4.plot.data, sort_columns = sorting_specs,
sort_by_value_desc = FALSE)
Run the code above in your browser using DataLab