library(ggplot2)
library(spbabel)
library(ggpolypath)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
## see how grouped_df now makes the grouping automatic
holey %>% group_by(branch_) %>% ggplot(aes(x_,y_, fill = object_)) + geom_polypath()