library(ggmap)
library(mapproj)

aus<- qmap('australia')
aus<- qmap('australia', zoom = 5)

aus