rates

#Load packages
library(janitor)
library(readr)
library(dplyr)
library(GWalkR)
library(ggplot2)

Read data

Rate <- read_csv("data/rate_vs_abs - Sheet1 (1).csv") %>%
  clean_names()

## Rows: 210 Columns: 3
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr (1): replicate
## dbl (2): Time, absorbance
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.

Make a plot

Rate %>%
  ggplot(aes(x = time, y = absorbance, color = replicate)) +
  geom_point() +
  geom_line()+
  facet_wrap(~replicate, ncol =1, scales = "free_y")