-
Notifications
You must be signed in to change notification settings - Fork 0
/
owc.Rmd
133 lines (95 loc) · 3.83 KB
/
owc.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
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
---
title: "Old Woman Creek"
output:
html_document:
toc: no
highlight: tango
editor_options:
chunk_output_type: console
---
```{r setup, include = FALSE}
knitr::opts_chunk$set(echo = FALSE)
knitr::opts_chunk$set(dpi = 300)
knitr::opts_chunk$set(warning = FALSE)
knitr::opts_chunk$set(message = FALSE)
source(here::here('R', '00_vis_custom.R'))
source(here::here('R', '00_load-packages.R'))
```
```{r load-data, include = FALSE, results = FALSE}
source(here::here('R', '02.2_load_all_data.R'))
source(here::here('R', '05_reserve-specific.R'))
source(here::here('R', '06_tables.R'))
R <- 'OWC'
```
# All Data {.tabset .tabset-pills}
## All
```{r all-data}
reserve_all_fxn(R) +
ggpubr::stat_regline_equation(label.y = 60) +
ggpubr::stat_cor(aes(label = paste(..rr.label.., ..p.label.., sep = "~`, `~")),
label.y = 57)
```
## Facet by Methods
```{r all-facet}
reserve_all_facet_fxn(R) +
ggpubr::stat_regline_equation(label.y = 60) +
ggpubr::stat_cor(aes(label = paste(..rr.label.., ..p.label.., sep = "~`, `~")),
label.y = 57)
```
{-}
# Interactive Plots for QAQC {.tabset .tabset-pills}
**How to use the interactive plot:** Hover over interactive plot for the tools panel to appear in top-right corner. Tools include: save plot, zoom, select (lasso or box), and data compare. Hover your cursor over a point for more information. You can also double click on an item in the legend to isolate that data series in the plot!
## ISCO Deployments
```{r isco, dpi = 120}
interact_reserve_fxn(site = R, isco = TRUE)
```
## Tank Samples
```{r tank, dpi = 120}
interact_reserve_fxn(site = R, isco = FALSE)
```
# Summary Tables {.tabset .tabset-pills}
## All Data
```{r table_all}
a <- reserve_sum_table_all(R)
a %>%
kbl(align = "c", caption = 'All Data from ISCO and Tank Experiments. `chla_ugl` and `chla_rfu` are from extracted chlorophyll a samples') %>%
kable_styling(fixed_thead = T) %>%
row_spec(0, bold = T) %>%
column_spec(1, border_right = T) %>%
kable_classic(c('striped', 'hover'), html_font = "Open Sans", full_width = F)
```
## ISCO Data Only
```{r table_isco}
b <- reserve_sum_table_isco(R)
b %>%
kbl(align = "c", caption = 'Only data from ISCO Experiments. `chla_ugl` and `chla_rfu` are from extracted chlorophyll a samples') %>%
kable_styling(fixed_thead = T) %>%
row_spec(0, bold = T) %>%
column_spec(1, border_right = T) %>%
kable_classic(c('striped', 'hover'), html_font = "Open Sans", full_width = F)
```
## Tank Data Only
```{r table_tank}
c <- reserve_sum_table_tank(R)
c %>%
kbl(align = "c", caption = 'Only data from Tank Experiments. `chla_ugl` and `chla_rfu` are from extracted chlorophyll a samples') %>%
kable_styling(fixed_thead = T) %>%
row_spec(0, bold = T) %>%
column_spec(1, border_right = T) %>%
kable_classic(c('striped', 'hover'), html_font = "Open Sans", full_width = F)
```
# Interactive Interference Parameters {.tabset .tabset-pills}
These are the three parameters of interest in the interference testing studies. The following is the chlorophyll a fluorescence (RFU) from the EXO total algae sensor by the extracted $\mu$g/L with the three parameters of interest overlayed as color for the specific reserve of interest.
**How to use the interactive plot:** Hover over interactive plot for the tools panel to appear in top-right corner. Tools include: save plot, zoom, select (lasso or box), and data compare. Hover your cursor over a point for more information. You can also double click on an item in the legend to isolate that data series in the plot!
## fDOM
```{r fdom-interf, dpi = 120}
interact_reserve_interf_fxn(R, param = fdom)
```
## Turbidity
```{r turb-interf, dpi = 120}
interact_reserve_interf_fxn(R, param = turbidity)
```
## Temperature
```{r temp-interf, dpi = 120}
interact_reserve_interf_fxn(R, param = temperature)
```