-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathProvenance_Figure.R
128 lines (107 loc) · 4.52 KB
/
Provenance_Figure.R
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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
# Oiling Height calc_MesoExpt2013.r
### TempLight_HOBO_MesoExpt_2013.r
### Sulfides_MesoExpt_2013.r
#
# Snails_MesoExpt_2013.r
# Insects_MesoExpt_2013.r
#
# Expected_Stressor_Effects_Function.r
### Expected_Stressor_Effects_MesoExp2013.r
# Multi-stressor calc_MesoExpt2013.r
#
# Oil Chem Analysis_MesoExpt2013.r
### Oiling_FINAL_Data_MesoExpt2013.r
#
# Effect_Size_Calc_Plant_Phys_MesoExpt_2013.R
# Initial Sp Bmss_MesoExpt 2013.R
### Photosyn_MesoExpt_2013.r
# Spartina_Bmss_MesoExpt_2013.R
# Curves_Light_ACi_MesoExpt2013.R
#
### Figures_MS2013_Manuscript1.R
#
### SEM_All_MesoExpt 2013.r
### ALL_DATA_SEM_MesoExpt2013.csv
#
### test_plot.R
#
### Mesocosm_Expt_2013_SIA Figs.Rmd
# Isotope_figures.txt
#
library(DiagrammeR) ; library(DiagrammeRsvg) ; library(rsvg)
flowchar <- grViz("digraph {
graph[overlap = true, fontsize = 16, rankdir = LR,
outputorder = edgesfirst]
node[shape = rectangle, style = filled, fontname = Helvetica, color = black]
node[fillcolor = Plum2, margin = 0.2]
A1[label = 'Table 1: ANOVA Biomass']
A[label = 'Figure 1: Final Biomass']
B[label = 'Figure 2: SEM']
C[label = 'Figure 3: Ecophysiology']
D[label = 'Figure 4: Isotopes']
E[label = 'Supp Fig 1: Expt. Design']
F[label = 'Supp Fig 2: Expt. Sampling']
G[label = 'Supp Fig 3: Env. Conditions']
H[label = 'Supp Table 1: ANOVA Isotopes']
I[label = 'Supp Fig 4: Isotopes']
J[label = 'Supp Fig 5: Stressor Effects']
node[fillcolor = CornflowerBlue, margin = 0.2]
K[label = 'Figures_MS2013_Manuscript1.R']
M[label = 'SEM_All_MesoExpt 2013.r']
O[label = 'Mesocosm_Expt_2013_SIA Figs.Rmd']
node[fillcolor = PaleTurquoise1, margin = 0.2]
L[label = 'test_plot.R']
N[label = 'SEM_Figs.pptx']
P[label = 'Experimental Design_MesoExpt2013.pptx']
Q[label = 'Google Calendar']
node[fillcolor = DarkSeaGreen1, margin = 0.2]
AA[label = 'Photosyn_MesoExpt 2013.r']
BB[label = 'TempLight_HOBO_MesoExpt_2013.r']
CC[label = 'Sulfides_MesoExpt_2013.r']
DD[label = 'Oiling_FINAL Data_MesoExpt2013.r']
EE[label = 'Expected_Stressor_Effects_MesoExp2013.r']
node[fillcolor = YellowGreen, margin = 0.2]
LL[label = 'ALL_DATA_SEM_MesoExpt2013.csv']
MM[label = 'Isotope_figures.txt']
NN[label = 'Temp_Data_MASTER_MesoExpt2013.csv']
OO[label = 'Sulfide_MesoExpt2013.csv']
PP[label = 'OilConc_FINAL_MesoExpt 2013.csv']
QQ[label = 'LICOR_PhotosynMeas_MesoExpt_2013.csv']
node[fillcolor = invis, color = invis, margin = 0.2]
YY[label = '']
ZZ[label = '']
edge[color = black, arrowhead = vee, arrowsize = 1.25]
K -> L
L -> J
K -> A
K -> C
K -> G
AA -> K
BB -> K
CC -> K
DD -> K
EE -> K
M -> B
N -> B
O -> D
O -> H
O -> I
P -> E
Q -> F
LL -> M
LL -> DD
LL -> EE
MM -> O
NN -> BB
OO -> CC
PP -> DD
QQ -> AA
AA -> A1
{rank = same; A1 -> A -> B -> C -> D -> E -> F -> G -> H -> I -> J [color=invis]}
{rank = same; L -> ZZ [color=invis]}
{rank = same; N -> P -> Q -> L [color=invis]}
{rank = same; M -> K -> O [color=invis]}
{rank = same; AA -> EE -> DD -> CC -> BB [color=invis]}
{rank = same; PP -> OO -> MM -> NN [color=invis]}
{rank = same; LL -> YY [color=invis]}
}")