Figures.Rmd

---
title: "Make your figures here"
author: "Katherine Heal"
date: "January 10 2020"
output: html_document
---
Figures for particulate arsenic manuscript and associated presentations

```{r setup, include=FALSE}
library(tidyverse)
```

# Figure with lipid ICP traces for all 4 samples (Figure 1)
Shows which lipids we IDd, other non-IDd lipids too
```{r, error = FALSE, warning=FALSE, message=FALSE}
source('Figures/Rcode/ICP_trace_plots.R')
remove(list = ls())
```

# Figure with example ICP, MS1, MS2 from AsSugPL954 (from PS1), AsHC (from BATS), unknown early (from ALOHA), and unknown late (from PS3) (Figure 3)
```{r, error = FALSE, warning=FALSE, message=FALSE}
source('Figures/Rcode/Example_individual_lipids.R')
remove(list = ls())
```

# Figure with list of lipids, names, mz, time, Y/N concentration for each sample (Figure 4)
```{r, error = FALSE, warning=FALSE, message=FALSE}
source('Figures/Rcode/Lipid_sample_tile.R')
remove(list = ls())

```

# Figure of ALOHA unknowns for MS2 (Figure S1)
```{r, error = FALSE, warning=FALSE, message=FALSE}
source('Figures/Rcode/Example_individual_lipids_unknowns_ALOHA.R')
remove(list = ls())

```


# Figure of PS3 unknowns for MS2 (Figure S2)
```{r, error = FALSE, warning=FALSE, message=FALSE}
source('Figures/Rcode/Example_individual_lipids_unknowns_PS3.R')
remove(list = ls())
```