Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Da ba dee
library(ggplot2)
dat <- data.frame(x=rnorm(20,4,2),y=rnorm(20,3,2))
theme_Eiffel65 <- function(base_size = 12, base_family = "") {
# modification to theme_grey
theme_grey(base_size = base_size, base_family = base_family) %+replace%
theme(
axis.text = element_text(size = rel(0.8),colour = "blue"),
axis.title = element_text(colour = "blue"),
axis.ticks = element_line(colour = "blue"),
legend.key = element_rect(colour = "blue"),
panel.background = element_rect(fill = "white", colour = NA),
panel.border = element_rect(fill = NA, colour = "blue"),
panel.grid.major = element_blank(),
panel.grid.minor = element_line(colour = "light blue", size = 0.5),
strip.background = element_blank()
)
}
ggplot(dat,aes(x=x,y=y))+geom_point(color="blue")+theme_Eiffel65()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment