-
Notifications
You must be signed in to change notification settings - Fork 0
/
estilo_cess.R
78 lines (62 loc) · 2.44 KB
/
estilo_cess.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
library(ggplot2)
# install.packages("extrafont")
# library(extrafont)
# font_import()
# You may see some warnings, but you should be able to ignore them. After the fonts are imported,
# you can view the available fonts by running fonts() or fonttable():
# fonttable()
amarillo_cess <- "#FBB040"
amarillo_cess2 <- "#FDCE87"
violeta_cess <- "#A183BC"
violeta_cess2 <- "#CDBDDB"
rosado_cess <- "#EC878D"
verde_cess <- "#7FC371"
verde_cess2 <- "#BEE1B7"
gris_cess <- "#808285"
celeste_cess <- "#86abe0"
estilo_cess <- function() {
theme_minimal(base_family = "Gotham-Book",
base_size = 16) +
theme(axis.line = ggplot2::element_blank(),
panel.grid.minor = ggplot2::element_blank(),
panel.background = ggplot2::element_blank(),
plot.title = element_text(hjust = .5,
family = "Gotham-Bold"),
plot.subtitle = element_text(hjust = .5),
plot.caption = element_text(family = "Gotham-Light", hjust = 1,
margin = margin(t = 10)),
panel.grid.major.x = element_blank(),
panel.grid.minor.x = element_blank(),
axis.line.x = element_line(),
axis.ticks.x = element_line(),
legend.position = "bottom")
}
coloriza_sexo <- function(vector) {
levs <- if(is.factor(vector))
levels(vector) else levels(factor(vector))
predefinidos <- c("Mujeres", "Hombres")
pal <- c("#A183BC", "#7FC371")
pal <- pal[match(levs, predefinidos)]
blanks <- which(is.na(pal))
pal[blanks] <- sample(colours(100), length(blanks))
pal
}
# Para settear el tema en los gráficos que prosiguen:
theme_set(estilo_cess())
update_geom_defaults("text", list(family = theme_get()$text$family))
facet_wrap_custom <- function(..., scale_overrides = NULL) {
# take advantage of the sanitizing that happens in facet_wrap
facet_super <- facet_wrap(...)
# sanitize scale overrides
if(inherits(harpVis::scale_overrides, "scale_override")) {
scale_overrides <- list(scale_overrides)
} else if(!is.list(scale_overrides) ||
!all(vapply(scale_overrides, inherits, "scale_override", FUN.VALUE = logical(1)))) {
stop("scale_overrides must be a scale_override object or a list of scale_override objects")
}
facet_super$params$scale_overrides <- scale_overrides
ggproto(NULL, CustomFacetWrap,
shrink = facet_super$shrink,
params = facet_super$params
)
}