if (FALSE) {
# Compare built-in regions
comparison <- compare_regions(
regions = c("corn_belt", "dairy_belt"),
scale = "county",
year = 2016,
nutrients = "nitrogen"
)
# Compare custom regions
comparison <- compare_regions(
regions = list(
"Upper Midwest" = c("WI", "MN", "MI"),
"Lower Midwest" = c("IL", "IN", "OH")
),
scale = "county",
year = 2016
)
# View comparison
print(comparison$summary)
comparison$plots$bar_chart
}
Run the code above in your browser using DataLab