# NOT RUN {
data(BCI)
pool <- poolaccum(BCI)
df <- fortify(pool)
ggplot(df, aes(x = Size, y = Richness, colour = Index)) +
geom_ribbon(aes(ymin = Lower, ymax = Upper, x = Size, fill = Index),
alpha = 0.3, inherit.aes = FALSE) +
geom_line() +
facet_wrap(~ Index)
# }
Run the code above in your browser using DataLab