panel S0f

furthlab · Sep 8, 2023 · 161117a · 161117a
1 parent 2c493b2
commit 161117a
Show file tree

Hide file tree

Showing 6 changed files with 60 additions and 0 deletions.
diff --git a/data/gels/csv/2023-09-07_chickenAlexa488.csv b/data/gels/csv/2023-09-07_chickenAlexa488.csv
@@ -0,0 +1,5 @@
+ ,Area,Mean,Min,Max
+1,0.005,1514.039,392,2812
+2,0.005,876.945,353,1285
+3,0.005,882.211,315,1346
+4,0.005,1089.857,349,1692
diff --git a/data/gels/roi/2023-09-07_RoiSet.zip b/data/gels/roi/2023-09-07_RoiSet.zip
diff --git a/pdf/S02f.pdf b/pdf/S02f.pdf
diff --git a/supplementary_fig02.md b/supplementary_fig02.md
@@ -546,3 +546,33 @@ quartz.save(file='./pdf/S02c.pdf', type='pdf')
 
     quartz_off_screen 
                     2 
+
+# Bargraph of TFP-ester labeling gels
+
+``` r
+gel <- read.table('./data/gels/csv/2023-09-07_chickenAlexa488.csv', header = TRUE, sep = ',')
+
+refDOL <- 5 #ThermoFisher A21200
+
+gel$norm <- (gel$Mean/gel$Mean[1])*refDOL
+
+quartz(width=3.6, height=6.1)
+
+par(mar=c(6,4,1,0))
+bar <- barplot(gel$norm, ylab='Degree of Labeling (DOL)', las=1, xaxt="n")
+labs <- c('Chicken-Alexa488', '1:3', '1:9', '1:15')
+text(cex=1, x=c(bar[1]-.55, bar[-1]), y=c(-0.8,rep(-0.4,3)), labs, xpd=TRUE, srt=45)
+text(mean(bar[-1]), -1.1, 'Goat-PEG4-TCO\nAZdye488-bis(PEG2-Tz)', xpd=TRUE)
+lines(c(bar[2]-.25, bar[4]+.25), rep(-0.75, 2), xpd = TRUE)
+```
+
+![](supplementary_fig02_files/figure-commonmark/unnamed-chunk-25-1.png)
+
+Save as PDF:
+
+``` r
+quartz.save(file='./pdf/S02f.pdf', type='pdf')
+```
+
+    quartz_off_screen 
+                    2 
diff --git a/supplementary_fig02.qmd b/supplementary_fig02.qmd
@@ -330,3 +330,28 @@ Lets save the figure as a PDF:
 ```{r}
 quartz.save(file='./pdf/S02c.pdf', type='pdf')
 ```
+
+# Bargraph of TFP-ester labeling gels
+
+```{r}
+gel <- read.table('./data/gels/csv/2023-09-07_chickenAlexa488.csv', header = TRUE, sep = ',')
+
+refDOL <- 5 #ThermoFisher A21200
+
+gel$norm <- (gel$Mean/gel$Mean[1])*refDOL
+
+quartz(width=3.6, height=6.1)
+
+par(mar=c(6,4,1,0))
+bar <- barplot(gel$norm, ylab='Degree of Labeling (DOL)', las=1, xaxt="n")
+labs <- c('Chicken-Alexa488', '1:3', '1:9', '1:15')
+text(cex=1, x=c(bar[1]-.55, bar[-1]), y=c(-0.8,rep(-0.4,3)), labs, xpd=TRUE, srt=45)
+text(mean(bar[-1]), -1.1, 'Goat-PEG4-TCO\nAZdye488-bis(PEG2-Tz)', xpd=TRUE)
+lines(c(bar[2]-.25, bar[4]+.25), rep(-0.75, 2), xpd = TRUE)
+``` 
+
+Save as PDF:
+
+```{r}
+quartz.save(file='./pdf/S02f.pdf', type='pdf')
+``` 
diff --git a/supplementary_fig02_files/figure-commonmark/unnamed-chunk-25-1.png b/supplementary_fig02_files/figure-commonmark/unnamed-chunk-25-1.png