setwd("/Users/sarcher/Desktop/R data/1_MOSAiC/")
Data_logger <- read.csv("~/Desktop/R data/1_MOSAiC/1_Original data/FLOW_031119.csv", header = TRUE)

library(tidyverse)
library(dplyr)
library(ggplot2)

FW <- Data_logger
head(FW)



Plot_1 <- ggplot(FW) +
          geom_point(mapping=(aes(x = sec, y = flow_splm_Avg, colour = switch_Avg)))
Plot_1

#dialing down the scales

Plot_2 <- ggplot(FW) +
  geom_point(mapping=(aes(x = sec, y = flow_splm_Avg, colour = switch_Avg)))+
  xlim(0, 4000) +
  ylim(4,7) +
  labs(title = "031119_SLPM")

My_Theme = theme(
  axis.title.x = element_text(size = 20),
  axis.text.x = element_text(size = 16),
  axis.title.y = element_text(size = 20),
  axis.text.y = element_text(size = 16),
  legend.title = element_text(size =),
  title = element_text(size = 20))

Plot_2 + My_Theme