Skip to content

Instantly share code, notes, and snippets.

@Jianghao
Last active June 21, 2021 14:43
Show Gist options
  • Save Jianghao/d806dcc220a49df21024e0516f102b2f to your computer and use it in GitHub Desktop.
Save Jianghao/d806dcc220a49df21024e0516f102b2f to your computer and use it in GitHub Desktop.
Theme for sentiment temperature
# Ref: https://rpubs.com/Koundy/71792
library(ggplot2)
library(gridExtra)
library(ggsci)
library(extrafont)
library(grid)
library(ggthemes)
library(ggpmisc)
# ---------------------
# Theme
#----------------------
theme_Publication <- function(base_size=14, base_family="Helvetica") {
(theme_foundation(base_size=base_size, base_family=base_family)
+ theme(plot.title = element_text(face = "bold",
size = rel(1.2), hjust = 0.5),
text = element_text(),
panel.background = element_rect(colour = NA),
plot.background = element_rect(colour = NA),
panel.border = element_rect(colour = NA),
axis.title = element_text(size = rel(1)),
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.ticks = element_line(),
# panel.grid.major = element_line(colour="#f0f0f0"),
panel.grid.minor = element_blank(),
panel.grid.major = element_blank(),
legend.key = element_rect(colour = NA),
legend.position = "bottom",
legend.direction = "horizontal",
legend.key.size= unit(0.2, "cm"),
legend.margin = margin(unit(0, "cm")),
plot.margin=unit(c(10,5,5,5),"mm"),
strip.background=element_rect(colour="#f0f0f0",fill="#f0f0f0"),
strip.text = element_text(face="bold")
))
}
scale_fill_Publication <- function(...){
library(scales)
discrete_scale("fill","Publication",manual_pal(values = c("#386cb0","#fdb462","#7fc97f","#ef3b2c","#662506","#a6cee3","#fb9a99","#984ea3","#ffff33")), ...)
}
scale_colour_Publication <- function(...){
library(scales)
discrete_scale("colour","Publication",manual_pal(values = c("#386cb0","#fdb462","#7fc97f","#ef3b2c","#662506","#a6cee3","#fb9a99","#984ea3","#ffff33")), ...)
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment