apportion_polygon {streamDepletr} | R Documentation |
Distribute streamflow depletion within a stream network using web distance Thiessen polygons.
Description
Distribute streamflow depletion within a stream network using web distance Thiessen polygons.
Usage
apportion_polygon(
reach_dist_lon_lat,
wel_lon,
wel_lat,
coord_crs,
max_dist = Inf,
min_frac = 0,
reach_name = NULL,
dist_name = NULL,
lon_name = NULL,
lat_name = NULL
)
Arguments
reach_dist_lon_lat |
data frame with four columns: |
wel_lon |
longitude of well |
wel_lat |
latitude of well |
coord_crs |
coordinate reference system for sf or sfc object (create with |
max_dist |
the maximum distance of a stream to be depleted; defaults to |
min_frac |
the minimum |
reach_name |
The name of the column in |
dist_name |
The name of the column in |
lon_name |
The name of the column in |
lat_name |
The name of the column in |
Details
Since analytical models assume the presence of 1 (or sometimes 2) linear streams, the apportion_*
functions
can be used to distribute that depletion to various reaches within a real stream network. These geometric functions are described
in Zipper et al (2018), which found that apportion_web
a weighting factor (w
) of 2 produced the best results.
Value
A data frame with two columns:
- reach
the grouping variable input in
reach_dist
- frac_depletion
the proportion of streamflow depletion from the well occurring in that reach.
References
Zipper, SC, T Dallemagne, T Gleeson, TC Boerman, A Hartmann (2018). Groundwater Pumping Impacts on Real Stream Networks: Testing the Performance of Simple Management Tools. Water Resources Research. doi:10.1029/2018WR022707.
Examples
rdll <- prep_reach_dist(wel_lon = 295500, wel_lat = 4783200,
stream_sf = stream_lines, reach_id = "reach", stream_pt_spacing = 5)
apportion_polygon(reach_dist_lon_lat = rdll, wel_lon = 295500, wel_lat = 4783200,
max_dist = 5000, coord_crs = sf::st_crs(stream_lines))
apportion_polygon(reach_dist_lon_lat = rdll, wel_lon = 295500, wel_lat = 4783200,
max_dist = 5000, min_frac = 0.05, coord_crs = sf::st_crs(stream_lines))