All right, let\'s say I have the following plot.
df = data.frame(date=c(rep(2008:2013, by=1)), value=c(303,407,538,696,881,1094)) barplot(df
Like
par(bg = 'blue') # Now do plot