Plotting bar charts on map using ggplot2?

by

Update 2016-12-23: The ggsubplot-package is no longer actively maintained and is archived on CRAN:

Package ‘ggsubplot’ was removed from the CRAN repository.>
Formerly available versions can be obtained from the archive.>
Archived on 2016-01-11 as requested by the maintainer [email protected].

ggsubplot will not work with R versions >= 3.1.0. Install R 3.0.3 to run the code below:

You can indeed achieve this by means of the ggsubplot package like Baptiste suggests.

library(ggsubplot)
library(ggplot2)
library(maps)
library(plyr)

#Get world map info
world_map <- map_data("world")

#Create a base plot
p <- ggplot()  + geom_polygon(data=world_map,aes(x=long, y=lat,group=group))

# Calculate the mean longitude and latitude per region, these will be the coördinates where the plots will be placed, so you can tweak them where needed.
# Create simulation data of the age distribution per region and merge the two.

centres <- ddply(world_map,.(region),summarize,long=mean(long),lat=mean(lat))
mycat <- cut(runif(1000), c(0, 0.1, 0.3, 0.6, 1), labels=FALSE) 
mycat <- as.factor(mycat)
age <- factor(mycat,labels=c("<15","15-30","20-60",">60"))
simdat <- merge(centres ,age)
colnames(simdat) <- c( "region","long","lat","Age" )

# Select the countries where you want a subplot for and plot
simdat2 <- subset(simdat, region %in% c("USA","China","USSR","Brazil", "Australia"))
(testplot <- p+geom_subplot2d(aes(long, lat, subplot = geom_bar(aes(Age, ..count.., fill = Age))), bins = c(15,12), ref = NULL, width = rel(0.8), data = simdat2))

Result:enter image description here

More Related Contents:

  1. Position geom_text on dodged barplot
  2. Stacked Bar Plot in R
  3. ggplot2 3D Bar Plot
  4. Maps, ggplot2, fill by state is missing certain areas on the map
  5. Plot two graphs in same plot in R
  6. Force the origin to start at 0
  7. Remove space between plotted data and the axes
  8. Wrap long axis labels via labeller=label_wrap in ggplot2
  9. What do hjust and vjust do when making a plot using ggplot?
  10. How to plot a function curve in R
  11. How to set multiple legends / scales for the same aesthetic in ggplot2?
  12. Rotating x axis labels in R for barplot
  13. Difference between passing options in aes() and outside of it in ggplot2
  14. Combining Bar and Line chart (double axis) in ggplot2
  15. Filling area under curve based on value
  16. Pretty ticks for log normal scale using ggplot2 (dynamic not manual)
  17. Expand spacing between tick marks on x axis
  18. Getting a stacked area plot in R
  19. ggplot2 : Plot mean with geom_bar
  20. plots generated by ‘plot’ and ‘ggplot’ side-by-side
  21. What type of graph is this? And can it be created using ggplot2?
  22. Drawing a barchart to compare two sets of data using ggplot2 package?
  23. Creating multi column legend in ggplot
  24. Programmatically insert header and plot in same code chunk with R markdown using results=’asis’
  25. Add raster to ggmap base map: set alpha (transparency) and fill color to inset_raster() in ggplot2
  26. How to order bars within all facets?
  27. Creating a vertical color gradient for a geom_bar plot
  28. How to get a barplot with several variables side by side grouped by a factor
  29. heatmap-like plot, but for categorical variables
  30. In ggplot2, coord_flip and free scales don’t work together

Leave a Comment