Da ba dee

theme_Eiffel65

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()