ggsave added

Nowosad · Nowosad · commit 90fac0b278c8 · 2017-03-07T19:42:30.000-05:00
diff --git a/R/eRum_map_publication.R b/R/eRum_map_publication.R
@@ -39,7 +39,7 @@ p <- ggmap(poz_map) +
         geom_point(data = cities_rest, aes(x = lon, y = lat), color = "black", size = 1, shape = 1) +
         geom_segment(data = cities_all, aes(x = lon, y = lat, xend = Poznan_lon, yend = Poznan_lat), size = 0.2, color = '#472b29') + 
         geom_point(data = poznan, aes(x = lon, y = lat), color = "black", size = 4, shape = 19) + 
-        coord_map()
+        labs(x='Lon', y='Lat')
 p
 
-ggsave(p)
+ggsave(p, file='maps/erum_map.pdf', height = 6.5, width = 6.5)

Original file line number	Diff line number	Diff line change
`@@ -39,7 +39,7 @@ p <- ggmap(poz_map) +`
`39`	`39`	`geom_point(data = cities_rest, aes(x = lon, y = lat), color = "black", size = 1, shape = 1) +`
`40`	`40`	`geom_segment(data = cities_all, aes(x = lon, y = lat, xend = Poznan_lon, yend = Poznan_lat), size = 0.2, color = '#472b29') +`
`41`	`41`	`geom_point(data = poznan, aes(x = lon, y = lat), color = "black", size = 4, shape = 19) +`
`42`		`- coord_map()`
	`42`	`+ labs(x='Lon', y='Lat')`
`43`	`43`	`p`
`44`	`44`
`45`		`-ggsave(p)`
	`45`	`+ggsave(p, file='maps/erum_map.pdf', height = 6.5, width = 6.5)`