plot <- ggplot(mpg, aes(displ, hwy)) + geom_point()
plot + theme(
  panel.background = element_blank(),
  axis.text = element_blank()
)
plot + theme(
  axis.text = element_text(colour = "red", size = rel(1.5))
)
plot + theme(
  axis.line = element_line(arrow = arrow())
)
plot + theme(
  panel.background = element_rect(fill = "white"),
  plot.margin = margin(2, 2, 2, 2, "cm"),
  plot.background = element_rect(
    fill = "grey90",
    colour = "black",
    linewidth = 1
  )
)
Run the code above in your browser using DataLab