-
Notifications
You must be signed in to change notification settings - Fork 0
/
critical-coastal-habitat-trends.Rmd
90 lines (66 loc) · 5.27 KB
/
critical-coastal-habitat-trends.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
---
output:
html_document:
css: "styles.css"
self_contained: false
---
```{r setup, warning = F, message = F, echo = F}
source(here::here('R/setup.R'))
load(url("https://github.com/tbep-tech/hmpu-workflow/raw/master/data/acres.RData"))
load(url("https://github.com/tbep-tech/hmpu-workflow/raw/master/data/subtacres.RData"))
load(url("https://github.com/tbep-tech/hmpu-workflow/raw/master/data/chgdat.RData"))
load(url("https://github.com/tbep-tech/hmpu-workflow/raw/master/data/subtchgdat.RData"))
fluccs <- read.csv('https://github.com/tbep-tech/hmpu-workflow/raw/master/data/FLUCCShabsclass.csv', stringsAsFactors = F)
# subtidal max year
submax <- '2022'
# suptratidal max year
sprmax <- '2020'
# seagrass maximum
sgrmax <- '2016'
# chgdat and subtchgdat must remove all columns that are terminal year comparisons
chgdat <- chgdat %>%
filter(grepl('1990$', source))
subtchgdat <- subtchgdat %>%
filter(grepl('1988$', source))
subest <- lngtrmtab_fun(subtacres, 'Category', typ = 'subtidal', yrsel = '1988', topyr = sgrmax, estout = T) %>%
select(val, chgper) %>%
tibble::deframe() %>%
gsub('\\-', '', .)
sprest <- lngtrmtab_fun(acres, 'Category', typ = 'supratidal', yrsel = '1990', topyr = sprmax, estout = T) %>%
select(val, chgper) %>%
tibble::deframe() %>%
gsub('\\-', '', .)
# seagrass inline
sgsums <- sgsum_fun(seagrass, submax)
```
Prior to the 1980s, many of Tampa Bay’s habitats were damaged, reduced, or lost during development activities. Once the value of these habitats was recognized, protections were put in place and monitoring began on a regular basis to understand the effectiveness of different conservation and restoration activities.
<center><img alt="weedon" src="img/weedonback.jpg" width="400"/></center>
<p></p>
## Current Trends
When viewed as a whole, the most significant and meaningful trends in the TBEP habitats of interest over the periods of record examined include: 1) the `r subest['Seagrasses']`% gain in seagrasses from 1988 to `r sgrmax`; 2) the gains in both emergent tidal wetlands (`r sprest['Mangrove Forests']`% gain in mangroves, `r sprest['Salt Marshes']`% gain in salt marshes) and freshwater wetlands (`r sprest['Non-Forested Freshwater Wetlands']`% gain) between 1990 and `r sprmax`; and 3) the `r sprest['Native Uplands']`% loss in native upland habitats from 1990 to `r sprmax`.
The increasing trend in seagrass coverage is a testament to improved bay water quality. While some recent gains in seagrass coverage have been erased, the remaining seagrasses still reflect improvements in water quality over the past several decades and still serve as an important guidepost for successful restoration of those subtidal habitats. Seagrass losses in the upper bay segments accompanied by increases in attached algae are being studied to understand the importance of these changes.
```{r}
lngtrmtab_fun(subtacres, 'Category', typ = 'subtidal', yrsel = '1988', topyr = submax, estout = F, family = fml)
```
```{r}
alluvout2(subtchgdat, fluccs, family = fml, maxyr = submax, width = 800, height = 900, mrg = 0)
```
The intertidal habitat gains demonstrate the effectiveness of publicly-funded habitat restoration projects (see Habitat Restoration tab) and state and federal wetland regulatory programs. Increases in salt barrens may also reflect a landward expansion associated with sea level rise. However, a `r sprest['Developed']`% increase for developed lands and `r sprest['Restorable']`% loss for restorable lands in the watershed is a concern for continued habitat restoration and protection. A loss of upland habitats is the result of continued human population growth and urban development in the Tampa Bay watershed, and unless local protections for native upland habitats improve, this trend will likely continue.
```{r}
lngtrmtab_fun(acres, 'Category', typ = 'supratidal', yrsel = '1990', topyr = sprmax, estout = F, family = fml)
```
```{r}
alluvout2(chgdat, fluccs, family = fml, maxyr = sprmax, width = 1000, height = 900, mrg = 95)
```
## Seagrasses in Tampa Bay
Seagrasses are used by the Tampa Bay Estuary Program to assess progress in achieving water quality goals. Seagrasses need sunlight to grow. With improving water clarity, seagrasses can thrive in Tampa Bay.
Areal coverage of seagrasses are tracked semi-annually to determine if they are increasing or decreasing over time. From `r formals(sgsum_fun)$refyr` to `r formals(sgsum_fun)$topyr`, seagrasses `r sgsums$topdir` by `r sgsums$topcmp` acres. However, from `r formals(sgsum_fun)$topyr` to `r submax`, seagrasses `r sgsums$recdir` by `r sgsums$reccmp` acres. Most significant seagrass losses were in Old Tampa Bay, a segment that has not been meeting water quality targets in recent years.
```{r, fig.height = 4.5, fig.width = 10}
show_seagrasscoverage(seagrass, maxyr = submax, family = fml)
```
## Resources
* [Visualization tools for land use change](https://shiny.tbep.org/landuse-change/){target="_parent"}
* [Seagrass monitoring in Tampa Bay](https://tampabay.wateratlas.usf.edu/seagrass-monitoring/){target="_parent"}
* [Data products for seagrass](https://tbep.org/seagrass-assessment/){target="_parent"}
* [Visualization tool for seagrass change](https://shiny.tbep.org/seagrass-analysis/){target="_parent"}
<script type="text/javascript" src="js/iframeResizer.contentWindow.min.js"></script>