Plot summary for firehistory data in R

plot_summary_example.R

source("firehistory.R")

d <- read.fhx("17P.fhx")

# Make a copy of the data we read-in in case we fuck-up.
d.new <- d

# Reverse the level ordering for the type factor -- the plotting looks better.
d.new$rings$type <- factor(d$rings$type, levels = rev(levels(d$rings$type)))

# Plots with ggplot2
p <- ggplot(d.new$rings, aes(x = year, fill = type))
p + geom_bar()  # And a plot should pop up with this command.