Create a bar chart showing effective fetch by site.
Arguments
- fetch_data
Results from
fetch_calculate- title
Optional plot title
Examples
if (FALSE) { # interactive()
csv_path <- system.file("extdata", "sample_sites.csv", package = "lakefetch")
sites <- load_sites(csv_path)
lake <- get_lake_boundary(sites)
results <- fetch_calculate(sites, lake)
plot_fetch_bars(results)
}