-
Notifications
You must be signed in to change notification settings - Fork 0
/
ThemeGraph.R
47 lines (36 loc) · 1.75 KB
/
ThemeGraph.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
#### Theme for all the graph (to be source at begining of graph function)
#########################################################################
#### Set theme
#######################################
MyTheme <- theme_bw() +
theme(panel.grid.major = element_blank(), # hide major grid lines
panel.grid.minor = element_blank()) # hide minor grid lines)
### Set my colors for fluxes
myColFlux <- c("Net overall" = "black",
"Net historical"="hotpink1",
"Net natural forest (sim.)"="purple",
"Net plantation (sim.)" = "goldenrod",
"Sawmill" = "dodgerblue",
"Biomass plant"= "red2",
"Logistic activities" = "slategray3",
"Decay on site"= "saddlebrown",
"Recovery in natural forest" = "darkgreen",
"Regeneration in natural forest" = "palegreen3",
"Growth in plantation" = "olivedrab3")
### Set my colors for quantity of Timber or electricity produces per year
myColQt <- c("Total" = "black",
"Historical" ="hotpink1",
"Natural forest"="purple",
"Plantation" = "goldenrod")
### Set my colors for fluxes for publication
myColFluxPub <- c("Net overall" = "black",
"Net historical"="hotpink1",
"Net natural forest (sim.)"="purple",
"Net plantation (sim.)" = "goldenrod",
"Sawmill" = "dodgerblue",
"Biomass plant"= "red2",
"Logistic activities" = "slategray3",
"Decay on site"= "saddlebrown",
"Recovery in natural forest" = "darkgreen",
"Regrowth in natural forest" = "palegreen3",
"Growth in plantation" = "olivedrab3")