Nothing
## -----------------------------------------------------------------------------
library('burnr')
## -----------------------------------------------------------------------------
data(lgr2) # fire data from Los Griegos Peak, New Mexico
head(lgr2)
## -----------------------------------------------------------------------------
str(lgr2)
## -----------------------------------------------------------------------------
data(pgm) # Peggy Mesa fire data.
both <- lgr2 + pgm
## -----------------------------------------------------------------------------
series_names(lgr2)
series_names(both)
## -----------------------------------------------------------------------------
plot(lgr2)
## -----------------------------------------------------------------------------
plot(lgr2, ylabels = FALSE)
## -----------------------------------------------------------------------------
data(lgr2_meta)
head(lgr2_meta)
## -----------------------------------------------------------------------------
plot(lgr2,
color_group = lgr2_meta$SpeciesID,
color_id = lgr2_meta$TreeID,
ylabels = FALSE,
plot_legend = TRUE) # Include a legend!
## -----------------------------------------------------------------------------
plot(lgr2,
facet_group = lgr2_meta$SpeciesID,
facet_id = lgr2_meta$TreeID,
ylabels = FALSE)
## -----------------------------------------------------------------------------
library(ggplot2)
p <- plot_demograph(lgr2,
color_group = lgr2_meta$SpeciesID,
color_id = lgr2_meta$TreeID)
print(p)
## -----------------------------------------------------------------------------
# Add transparent box as annotation to plot.
p + annotate('rect',
xmin = 1750, xmax = 1805,
ymin = 3.5, ymax = 13.5, alpha = 0.2)
## -----------------------------------------------------------------------------
p + annotate('text', x = 1650, y = 7.5, label = 'important!')
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.