library(tidyverse)
library(cowplot)
library(broom) 
library(modelr) 
library(viridis)
library(lubridate)
library(hms)

knitr::opts_chunk$set(tidy.opts=list(width.cutoff=60),tidy=TRUE, echo = TRUE, message=FALSE, warning=FALSE, fig.align="center")

source("../../tools/echem_processing_tools.R")
source("../../tools/plotting_tools.R")

theme_set(theme_1())

swv_gc_signals <- read_csv("../Processing/01_08_19_processed_swv_gc_signals.csv")

  
swv_gc_signals %>% 
  filter(reactor=='transfer' & rep>=1) %>% 
  filter(electrode_from_swv=='i1') %>% 
  ggplot(., aes(x=signal_from_swv, y=signal_from_gc,color=rep,shape=factor(run)))+
  geom_point()+geom_line()+
  facet_wrap(~treatment,scales='free')+
  scale_color_viridis()