vignettes/ggpolypath.Rmd
      ggpolypath.Rmd## Loading required package: ggplot2
ggplot(maphome) + aes(x = x_, y = y_, group = branch_, fill = object_) +
  geom_polypath()
The same example, but using the linked per-object metadata.
ggplot(merge(maphome, dathome[, c("object_", "name")])) + 
  aes(x = x_, y = y_, group = branch_, fill = name) + 
  geom_polypath()
Something more map.
gs <- ggplot(gardenstate)
gs <- gs + aes(x = x, y = y, group = group, fill = id)
gs +  geom_polypath() + geom_path() + coord_equal()