In May 2018, I visisted sites in Central San Francisco Estuary looking for potential field sites. I recorded the GPS endpoints of Fucus distichus beds. I converted GPS points to length using ArcGIS online measure tool. I revisted sites in 2019 and did the same process. This was an opportunistic comparison.
Sites in the table are listed from north to south.
Load packages, read in table, change column names
setwd("C:/Users/chels/Box Sync/Thesis/Data/Working data")
rm(list=ls())
library(sjPlot)
library(tibble)
table<-read.csv("C:/Users/chels/Box Sync/Thesis/Data/Working data/20182019table.csv", header = TRUE, sep=",", fileEncoding="UTF-8-BOM", stringsAsFactors = FALSE)
colnames(table)=c("Site","2018","2019")Format table and save
table2<-tab_df(table, alternate.rows=TRUE, title="Table x. Length of Fucus distichus beds in 2018 versus 2019")
tab_df(table, title="Table x. Length of Fucus distichus beds in 2018 versus 2019",alternate.rows=TRUE,encoding="UTF-8", file="C:/Users/chels/Box Sync/Thesis/Data/Working data/GitHubReady/length_table_pic.html")| Site | 2018 | 2019 |
|---|---|---|
| Dunphy Park | 0.25 m | 97.4 m |
| Bar Boccee | Not Observed | 10 m |
| Pelican Harbor | Not Observed | Not Observed |
| Sausalito | Not Observed | Not Observed |
| Spinnaker Dr. | Not Observed | 40.8 m |
| Hoseshoe Bay | 20 m | 114.1 m |
| Baker Beach | Wrack only | Wrack only |