black_background_white_text_ggplot

dat <- data.frame(a=seq(1,100, by=2), b=rnorm(50,0,1))


ggplot()+geom_line(data=dat, aes(x=a, y=b), color="white")+theme(panel.background=element_rect(fill="black"),
                                                  plot.background=element_rect(fill="black"),
                                                  text=element_text(color="white"),
                                                  panel.grid=element_blank(), # removes the gridelines, comment this out to have gridlines
                                                  axis.line=element_line(color="white")) # gives you an x and y axis line since we removed the gridlines

# This code will make this graph -> http://i.imgur.com/4RT5GQ1.png