# Calculating lake outlets using R

If you can’t tell from my last two posts, I’m trying to delineate watersheds for about 650 lakes. We’ve gotten to the point where we can calculate an approximate catchment using the upstream network, and call the QGIS processing algorithms we need to delineate the catchment from the outlet. The problem is, we don’t know which outlet point will give us the catchment we’re looking for. We’ll use sf for vector handling and raster for raster handling.

``````library(sf)
library(raster)
``````

Next, we’ll need some test data. I’m using the same area as in the last post, which is a tiny lake in southwest Nova Scotia. In addition to the lake (as a polygon), we also need the flow accumulation raster. This represents the number of cells that flow through any given cell, or the relative watershed area of any given cell. This is one of the outputs of GRASS’ r.watershed, and is also an output of the corresponding ArcHydro function.

``````lake <- read_sf("lakes.shp")
accumulation <- raster("accumulation.tif")

plot(accumulation)
`````` One curious feature of the default r.watershed output is that negative values indicate likely underestimates of flow accumulation. This means that what we really want is the `abs()` of the accumulation, which we will apply when we crop later.

From a delineation perspective, clicking on the points with a high flow accumulation value will give us a bigger total watershed, and for a lake, we want the maximum watershed along the lake boundary. In GIS-speak, we need the location of the maximum flow accumulation along the boundary of the lake polygon. Because the raster cell size is 20 m, I think it makes sense to include a buffer of 40 m on either side of the lake boundary, which we can calculate using `st_buffer()` and `st_boundary()`.

``````boundary <- st_boundary(lake) %>% st_buffer(40)

plot(accumulation)
plot(boundary\$geometry, add = T, border = "red")
`````` We could find the location of the maximum value with in the `boundary` using the whole `accumulation` raster, but in my case, the `accumulation` raster is 2 GB and covers the whole province of Nova Scotia. Luckily, `raster()` is lazy and doesn’t load values unless absolutely necessary, which includes a `crop()` operation.

``````accumulation_crop <- crop(accumulation, extent(lake))
``````

To extract the accumulation values only within `boundary`, I’m going to first create a “mask”, which will be `1` within the polygon and `NA` outside it. Then, I’m going to multiply that by `abs(accumulation_crop)` to get the actual accumulation cell values. This works because `NA` values propogate through the calculation.

``````mask_boundary <- rasterize(as_Spatial(boundary), accumulation_crop)

plot(accumulation_boundary)
`````` Now we need the location of the maximum value! The function for this is `which.max()`, but we also need `xyFromCell()` to convert that value into a matrix of x and y values. This is more useful as a `st_sfc()`, which plays nicely with the sf package.

``````outlet_xy <- xyFromCell(accumulation_boundary, which.max(accumulation_boundary))
outlet <- st_sfc(st_point(outlet_xy), crs = st_crs(lake))

plot(accumulation_boundary)
`````` It worked! At scale, you might run into a situation where there this returns more than one outlet per lake (most likely in tiny lakes). You also will run into situations where this returns only one outlet, but in order to capture the whole watershed of the lake you might need more than one “outlet” (because the flow accumulation raster has a mind of its own). I don’t have a good automatic solution for this, but you could convert the raster values to points using `ggspatial::df_spatial(accumulation_boundary)` and do some dplyr magic to find more than one probable outlet.

``````ggspatial::df_spatial(accumulation_boundary) %>%
dplyr::filter(!is.na(band1)) %>%
dplyr::arrange(desc(band1))
``````
``````## # A tibble: 530 x 3
##         x       y band1
##     <dbl>   <dbl> <dbl>
##  1 252858 4889828 2447.
##  2 252838 4889828 2289.
##  3 252738 4889808 1940.
##  4 252718 4889808 1895.
##  5 252818 4889828 1773.
##  6 252758 4889808 1713.
##  7 252698 4889808 1685.
##  8 252678 4889808 1618.
##  9 252798 4889828 1574.
## 10 252778 4889828 1380.
## # … with 520 more rows
`````` 