---
title: "Poly IC qPCR"
output:
  #word_document: default
  html_document: default
  pdf_document: default
date: "2023-07-21"
---

```{r}
library(tidyverse)
```





```{r}
qpcr <- read.csv("../data/polyic_pcr.csv", header = TRUE, na.strings = "#VALUE!") 
```

```{r}
qpcr <- qpcr %>%
  mutate(treatment = substr(Sample, 1, 1))
```


```{r}
ggplot(data = qpcr, mapping = aes(x = treatment, y = ddct)) + 
  geom_boxplot() +
  facet_wrap("Target")

```

```{r}
qpcr %>%
  filter(Target == "Cg_cGAS") %>%
ggplot(mapping = aes(x = treatment, y = ddct)) + 
  geom_boxplot() +
  geom_jitter(aes(color = Sample), width = 0.1, alpha = 0.7)


```
```{r}
qpcr %>%
  filter(Target == "Cg_citrate-synt") %>%
ggplot(mapping = aes(x = treatment, y = ddct)) + 
  geom_boxplot() +
  geom_jitter(aes(color = Sample), width = 0.1, alpha = 0.7)


```


```{r}
qpcr %>%
  filter(Target == "Cg_GAPDH") %>%
ggplot(mapping = aes(x = treatment, y = ddct)) + 
  geom_boxplot() +
  geom_jitter(aes(color = Sample), width = 0.1, alpha = 0.7)


```

```{r}
qpcr %>%
  filter(Target == "Cg_IRF2") %>%
ggplot(mapping = aes(x = treatment, y = ddct)) + 
  geom_boxplot() +
  geom_jitter(aes(color = Sample), width = 0.1, alpha = 0.7)


```

```{r}
qpcr %>%
  filter(Target == "Cg_SACSIN") %>%
ggplot(mapping = aes(x = treatment, y = ddct)) + 
  geom_boxplot() +
  geom_jitter(aes(color = Sample), width = 0.1, alpha = 0.7)


```

```{r}
qpcr %>%
  filter(Target == "Cg_VIPERIN") %>%
ggplot(mapping = aes(x = treatment, y = ddct)) + 
  geom_boxplot() +
  geom_jitter(aes(color = Sample), width = 0.1, alpha = 0.7)


```
