+ - 0:00:00
Notes for current slide
Notes for next slide

OPEN SCIENCE INDICATOR PRODUCTS: SEAGRASS TRANSECT DATA AND DASHBOARD

Dr. Marcus Beck • @fawda123 • #TampaBayOpensci

TAMPA BAY ESTUARY PROGRAM

3/24/2021

1 / 21

GOALS FOR TODAY

  • Overview of open science products
  • Accessing transect data
  • Seagrass status and trends (transect only)

2 / 21

Open data

Open process

Open products

3 / 21

THE OPEN SCIENCE CAKE

4 / 21

THE OPEN SCIENCE PROCESS

5 / 21

EXISTING SEAGRASS DATA

District coverage maps

  • Photointerpretation of aerial imagery
  • Coverage estimates for tracking programmatic goals
  • Updated every two years, beginning 1988

Transect data

  • Field data collected annually by TBEP and partners
  • Information on species abundance, location
  • 61 transects monitored since 1998
6 / 21

TRANSECT DATA

+−
Monitoring Agency
EPCHC
FDEP
FWRI
HC-ES
HCCB
MCNRD
PCDEM
TBEP
TBWI
10 km
5 mi
Leaflet | © OpenStreetMap contributors © CARTO
7 / 21

TOP OF THE CAKE

https://tbep.org/seagrass-assessment/

8 / 21

BOTTOM OF THE CAKE: TBEPTOOLS

  • Import raw data, estimate indicators, and report outcomes
  • Freely available on GitHub for version control and to engage with users
  • Workhorse for report cards and dashboards

https://tbep-tech.github.io/tbeptools

9 / 21

TBEPTOOLS: DATA ACCESS

library(tbeptools)
transect <- read_transect()
transect
## # A tibble: 132,354 x 7
##    Date       Transect Site  Depth Savspecies  var                 aveval
##    <date>     <chr>    <chr> <int> <chr>       <chr>                <dbl>
##  1 2020-11-04 S5T8     0        -5 No Cover    Abundance                0
##  2 2020-11-04 S5T8     0        -5 No Cover    Blade Length             0
##  3 2020-11-04 S5T8     0        -5 No Cover    Short Shoot Density    NaN
##  4 2020-11-04 S5T8     10      -12 Halodule    Abundance                5
##  5 2020-11-04 S5T8     10      -12 Halodule    Blade Length             0
##  6 2020-11-04 S5T8     10      -12 Halodule    Short Shoot Density    NaN
##  7 2020-11-04 S5T8     100    -180 Syringodium Abundance                4
##  8 2020-11-04 S5T8     100    -180 Syringodium Blade Length             0
##  9 2020-11-04 S5T8     100    -180 Syringodium Short Shoot Density    NaN
## 10 2020-11-04 S5T8     11      -20 Halodule    Abundance                2
## # ... with 132,344 more rows

date x transect x site x species x variable

10 / 21

TBEPTOOLS: DATA ACCESS

transectocc <- anlz_transectocc(transect)
transectocc
## # A tibble: 11,709 x 6
## # Groups:   Date, Transect [1,301]
##    Date       Transect Savspecies  nsites  foest bbest
##    <date>     <chr>    <chr>        <int>  <dbl> <dbl>
##  1 1997-10-11 S2T3     AA              41 0      0    
##  2 1997-10-11 S2T3     Caulerpa        41 0      0    
##  3 1997-10-11 S2T3     DA              41 0      0    
##  4 1997-10-11 S2T3     Halodule        41 0.0488 0.146
##  5 1997-10-11 S2T3     Halophila       41 0      0    
##  6 1997-10-11 S2T3     No Cover        41 0.951  4.76 
##  7 1997-10-11 S2T3     Ruppia          41 0      0    
##  8 1997-10-11 S2T3     Syringodium     41 0      0    
##  9 1997-10-11 S2T3     Thalassia       41 0      0    
## 10 1997-10-11 S2T5     AA              34 0      0    
## # ... with 11,699 more rows

date x transect x species x variable

11 / 21

TBEPTOOLS: TRANSECT SUMMARY

show_transect(transect, site = 'S1T16', plotly = T)
025050075010002005201020152020
HaloduleSyringodiumThalassiaRuppiaCaulerpaS1T16, abundance (BB)Transect distance (m)Year
12 / 21

TBEPTOOLS: TRANSECT SUMMARY

show_transectsum(transectocc, site = 'S1T16')
200220042006200820102012201420162018202000.20.40.60.811.21.4
SpeciesRuppiaThalassiaSyringodiumHaloduleCaulerpaS1T16Frequency occurrence
13 / 21

TBEPTOOLS: BAYWIDE SUMMARY

show_transectavespp(transectocc, plotly = T, family = 'Lato')
20002005201020152020020406080
totalHaloduleSyringodiumThalassiaHalophilaRuppiaCaulerpaSeagrass estimates for OTB, HB, MTB, LTB, BCB% frequency occurrence
14 / 21

TBEPTOOLS: BAYWIDE SUMMARY

show_transectmatrix(transectocc, neutral = T, plotly = T, family = 'Lato')
70711557808263671057677258541250687357552259607754582360587853602245477651542244477955781552548659712045608163703254509261653347518366753465567975907073648574835082628376825582648378875577678981907276799683967378738078843372809877805168709875836178727884856580809768732660719219981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020Tampa BayOTBHBMTBLTBBCB
15 / 21

TBEPTOOLS: PLAIN LANGUAGE VIGNETTE

https://tbep-tech.github.io/tbeptools/articles/seagrasstransect.html

16 / 21

MIDDLE OF THE CAKE

https://shiny.tbep.org/seagrassransect-dash

17 / 21
  • Transect data show reduction in f.o., all species baywide
  • Change was recent (2019-2020) and most dramatic in OTB, HB, MTB
  • Notable increase in attached algae (Caulerpa)
  • Need to link f.o. estimates with 2020 coverage (~April)
70711557808263671057677258541250687357552259607754582360587853602245477651542244477955781552548659712045608163703254509261653347518366753465567975907073648574835082628376825582648378875577678981907276799683967378738078843372809877805168709875836178727884856580809768732660719219981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020Tampa BayOTBHBMTBLTBBCB
18 / 21

FORTHCOMING COVERAGE DASHBOARD

19 / 21

GOALS FOR TODAY

  • Overview of open science products
  • Accessing transect data
  • Seagrass status and trends (transect only)

20 / 21

RESOURCES

21 / 21

GOALS FOR TODAY

  • Overview of open science products
  • Accessing transect data
  • Seagrass status and trends (transect only)

2 / 21
Paused

Help

Keyboard shortcuts

↑, ←, Pg Up, k Go to previous slide
↓, →, Pg Dn, Space, j Go to next slide
Home Go to first slide
End Go to last slide
Number + Return Go to specific slide
b / m / f Toggle blackout / mirrored / fullscreen mode
c Clone slideshow
p Toggle presenter mode
t Restart the presentation timer
?, h Toggle this help
Esc Back to slideshow