TESS3Article/figureParams.R at master · cayek/TESS3Article · GitHub

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
#############################################################
# color and linetype
color <- list(TESS3 = "blue",
              APLS = "orange",
              AQP = "darkgrey",
              snmf = "chartreuse4",
              before.admixure = "azure4")
linetype <- list(TESS3 = "solid",
                 APLS = "solid",
                 AQP = "dashed",
                 snmf = "solid",
                 before.admixure = "dashed")

################################################################################
# ggplot param
library(ggplot2)

scale.linetype <- scale_linetype_manual(values = c("APLS" = linetype$APLS,
                                                   "TESS3" = linetype$TESS3,
                                                   "AQP" = linetype$AQP,
                                                   "sNMF" = linetype$snmf,
                                                   "before-admixure" = linetype$before.admixure))
scale.color <-  scale_color_manual(values = c("APLS" = color$APLS,
                                              "TESS3" = color$TESS3,
                                              "AQP" = color$AQP,
                                              "sNMF" = color$snmf,
                                              "before-admixure" = color$before.admixure))

gtheme <- theme_bw(base_size = 11) +
  theme(strip.background = element_rect(fill = NA))

################################################################################
# page size
page <- list(width = 8.26772, heigth = 11.69291)
fig.prop <- list(width = 0.65, heigth = 0.35)