---
title: "CSAP Figures"
output: rmarkdown::html_vignette
bibliography: refs.bib
date: "`r Sys.Date()`"
csl: stylefile.csl
vignette: >
  %\VignetteIndexEntry{CSAP Figures}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  message = F, warning = F, 
  echo = F,
  fig.align = 'center', 
  dpi = 300
)
```

```{r setup}
library(slrcsap)
library(ggplot2)
```

This vignette provides two figures that support the 2025 update of sea level rise projections for the Tampa Bay region.  The report [@tbep1425] was created by the Climate Science Advisory Panel (CSAP) to update recommendations from the previous report @tbep0519.  

The first figure shows mean monthly sea level at the St. Petersburg, FL tide gauge, with the seasonal cycle removed. Download the figure [here](https://tbep-tech.github.io/slrcsap/articles/figs_files/figure-html/sealevelplot-1.png).

```{r sealevelplot, fig.width = 8, fig.height = 3, fig.cap="1947-2025 monthly mean sea level (MSL) in St. Petersburg, FL, NOAA tide gauge 8726520.  Seasonal cycle removed."}
dat <- get_sealevel()
plot_sealevel(dat, yrng = c(-1, 1), ybrk = 5)
```

The second figure shows three recommended sea level rise scenarios for St. Petersburg, FL based on regionally corrected NOAA 2022 curves.  Download the figure [here](https://tbep-tech.github.io/slrcsap/articles/figs_files/figure-html/scenarioplot-1.png). 

```{r scenarioplot, fig.width = 8, fig.height = 4, fig.cap="Graphic relative sea level change (RSLC) scenarios for St. Petersburg, FL, as calculated using the regionally corrected NOAA 2022 curves."}
dat <- get_scenario()
plot_scenario(dat, yrng = c(0, 6)) + 
  labs(
    title = 'Relative Sea Level Change Predictions',
    subtitle = 'Gauge 8726520, St. Petersburg, FL'
  )
```

## References