Copy over more theme elements

This commit is contained in:
2024-09-25 18:59:37 -04:00
parent 4cab528772
commit 0d9f68537d

View File

@@ -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), plot.title = element_text(face = "bold", size = rel(1.2), hjust = 0.5),
text = element_text(), text = element_text(),
panel.border = element_rect(colour = NA), 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 = element_text(face = "bold", size = rel(1)),
axis.title.y = element_text(angle = 90, vjust = 2, size = 18), axis.title.y = element_text(angle = 90, vjust = 2),
axis.title.x = element_text(vjust = -0.2, size = 18), axis.title.x = element_text(vjust = -0.2),
axis.text = element_text(),
axis.line = element_line(colour = "black"), axis.line = element_line(colour = "black"),
axis.text.x = element_text(size = 16), axis.ticks = element_line(),
axis.text.y = element_text(size = 16),
panel.grid.major = element_line(colour = "#f0f0f0"), panel.grid.major = element_line(colour = "#f0f0f0"),
panel.grid.minor = element_blank(), panel.grid.minor = element_blank(),
legend.key = element_rect(colour = NA), legend.key = element_rect(colour = NA),
legend.position = legend_position, legend.position = legend_position,
legend.direction = ifelse(legend_position == "right", "vertical", "horizontal"), 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"), plot.margin = unit(c(10, 5, 5, 5), "mm"),
strip.background = element_rect(colour = "#f0f0f0", fill = "#f0f0f0"), strip.background = element_rect(colour = "#f0f0f0", fill = "#f0f0f0"),
strip.text = element_text(face = "bold") strip.text = element_text(face = "bold")