-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathFig_S1_viz.Rmd
74 lines (57 loc) · 2.54 KB
/
Fig_S1_viz.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
---
title: "Fig_S1_Viz"
author: "Troy McDiarmid"
date: "2024-03-12"
output: html_document
---
```{r setup, include=FALSE}
library(tidyverse)
```
```{r}
##RC_Lmax visualizations
U6_Pro_combos <- read_csv("/Users/troymcdiarmid/Documents/U6_pro_series/Figs/Pub_Figs/FigS1_Final_Figure_Datasets/240208_U6_Pro_combos.csv")
ggplot(U6_Pro_combos, aes(x = A_BRC_Lmax)) +
geom_histogram(adjust=1.5, fill = "black", binwidth = 1) +
theme_classic() +
theme(axis.line = element_line(colour = 'black', size = 0.8)) +
theme(axis.ticks = element_line(colour = "black", size = 0.8)) +
scale_y_continuous(breaks = c(0,4000,8000)) +
theme(axis.ticks.length=unit(.2, "cm")) +
labs(title = "", x = "", y = "") +
theme(legend.position = "none") +
xlim(0,50) +
theme(text = element_text(family="Arial", colour = "black", size = 44))
ggsave("All_U6_RC_Lmax_Dist.jpeg", width = 16, height = 3.5, path = "/Users/troymcdiarmid/Documents/U6_pro_series/Figs/Pub_Figs/")
##Filtering for just diverse-diverse interactions
DivU6_Prom_Lmax <- U6_Pro_combos %>%
filter(!grepl("Syn", Name_A)) %>%
filter(!grepl("Syn", Name_B))
ggplot(DivU6_Prom_Lmax, aes(x = A_BRC_Lmax)) +
geom_histogram(adjust=1.5, fill = "#56B4E9", binwidth = 1) +
theme_classic() +
theme(axis.line = element_line(colour = 'black', size = 0.8)) +
theme(axis.ticks = element_line(colour = "black", size = 0.8)) +
scale_y_continuous(breaks = c(0,750,1500)) +
theme(axis.ticks.length=unit(.2, "cm")) +
labs(title = "", x = "", y = "") +
theme(legend.position = "none") +
xlim(0,50) +
theme(text = element_text(family="Arial", colour = "black", size = 44))
ggsave("Div_RC_Lmax_Dist.jpeg", width = 16, height = 3.5, path = "/Users/troymcdiarmid/Documents/U6_pro_series/Figs/Pub_Figs/")
##Filtering for just synthetic-synthetic interactions
SynU6_Pro_Lmax <- U6_Pro_combos %>%
filter(grepl("Syn", Name_A)) %>%
filter(grepl("Syn", Name_B))
ggplot(SynU6_Pro_Lmax, aes(x = A_BRC_Lmax)) +
geom_histogram(adjust=1.5, fill = "#999999", binwidth = 1) +
theme_classic() +
theme(axis.line = element_line(colour = 'black', size = 0.8)) +
theme(axis.ticks = element_line(colour = "black", size = 0.8)) +
scale_y_continuous(breaks = c(0,1000,2000)) +
theme(axis.ticks.length=unit(.2, "cm")) +
labs(title = "", x = "", y = "") +
theme(legend.position = "none") +
xlim(0,50) +
theme(text = element_text(family="Arial", colour = "black", size = 44))
ggsave("Syn_RC_Lmax_Dist.jpeg", width = 16, height = 3.5, path = "/Users/troymcdiarmid/Documents/U6_pro_series/Figs/Pub_Figs/")
```