Skip to content

Instantly share code, notes, and snippets.

@mfmakahiya
Last active October 25, 2018 12:28
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save mfmakahiya/90810ceb16580d4bfc5781b18d1daa87 to your computer and use it in GitHub Desktop.
Save mfmakahiya/90810ceb16580d4bfc5781b18d1daa87 to your computer and use it in GitHub Desktop.
# Using map_data()
worldmap <- map_data ("world")
mapplot1 <- ggplot(worldmap) +
geom_map(data = worldmap, map = worldmap, aes(x=long, y=lat, map_id=region), col = "white", fill = "gray50") +
geom_scatterpie(aes(x=longitude, y=latitude, group = country, r = multiplier*6),
data = final_data, cols = colnames(final_data[,c(2:11)]))
mapplot1
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment