SHARE
TWEET

Untitled

a guest Feb 16th, 2019 74 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. world_data <- map_data("world")
  2.  
  3. ggplot() + scale_y_continuous(limits=c(-90,90), expand=c(0,0)) +
  4. scale_x_continuous(expand=c(0,0)) +
  5. theme(axis.ticks=element_blank(), axis.title=element_blank(),
  6.       axis.text=element_blank()) +
  7. geom_polygon(data=world_data, mapping=aes(x=long, y=lat, group=group), fill='grey')
  8.    
  9. library(maptools)
  10. data(wrld_simpl)
  11.  
  12. ggplot() +
  13.   geom_polygon(data=wrld_simpl,
  14.              aes(x=long, y=lat, group=group), fill='grey20') +
  15.   coord_cartesian(xlim=c(-180,180), ylim=c(-90,90)) +
  16.   scale_x_continuous(breaks=seq(-180,180,20)) +
  17.   scale_y_continuous(breaks=seq(-90,90,10))
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top