|
|
@@ -94,17 +94,23 @@ theme_publication <- function(base_size = 14, base_family = "sans", legend_posit
|
|
|
plot.title = element_text(face = "bold", size = rel(1.2), hjust = 0.5),
|
|
|
text = element_text(),
|
|
|
panel.border = element_rect(colour = NA),
|
|
|
+ panel.background = element_rect(colour = NA),
|
|
|
+ panel.border = element_rect(colour = NA),
|
|
|
+ plot.background = element_rect(colour = NA),
|
|
|
axis.title = element_text(face = "bold", size = rel(1)),
|
|
|
- axis.title.y = element_text(angle = 90, vjust = 2, size = 18),
|
|
|
- axis.title.x = element_text(vjust = -0.2, size = 18),
|
|
|
+ axis.title.y = element_text(angle = 90, vjust = 2),
|
|
|
+ axis.title.x = element_text(vjust = -0.2),
|
|
|
+ axis.text = element_text(),
|
|
|
axis.line = element_line(colour = "black"),
|
|
|
- axis.text.x = element_text(size = 16),
|
|
|
- axis.text.y = element_text(size = 16),
|
|
|
+ axis.ticks = element_line(),
|
|
|
panel.grid.major = element_line(colour = "#f0f0f0"),
|
|
|
panel.grid.minor = element_blank(),
|
|
|
legend.key = element_rect(colour = NA),
|
|
|
legend.position = legend_position,
|
|
|
legend.direction = ifelse(legend_position == "right", "vertical", "horizontal"),
|
|
|
+ legend.key.size = unit(0.2, "cm"),
|
|
|
+ legend.spacing = unit(0, "cm"),
|
|
|
+ legend.title = element_text(face = "italic"),
|
|
|
plot.margin = unit(c(10, 5, 5, 5), "mm"),
|
|
|
strip.background = element_rect(colour = "#f0f0f0", fill = "#f0f0f0"),
|
|
|
strip.text = element_text(face = "bold")
|
