Plot an fhx
object
# S3 method for fhx
plot(...)
Arguments passed on to plot_demograph()
.
plot_demograph()
is what does the actual plotting.
data(lgr2)
plot(lgr2)
plot(lgr2, ylabels = FALSE, plot_legend = TRUE)
data(lgr2_meta)
# With color showing species.
plot(lgr2,
color_group = lgr2_meta$SpeciesID,
color_id = lgr2_meta$TreeID,
plot_legend = TRUE
)
# With facets for each species.
plot(lgr2,
facet_group = lgr2_meta$SpeciesID,
facet_id = lgr2_meta$TreeID,
plot_legend = TRUE
)
# Append annotation onto a ggplot object.
require(ggplot2)
#> Loading required package: ggplot2
p <- plot_demograph(lgr2,
color_group = lgr2_meta$SpeciesID,
color_id = lgr2_meta$TreeID
)
# Add transparent box as annotation to plot.
p + annotate("rect",
xmin = 1750, xmax = 1805,
ymin = 3.5, ymax = 13.5, alpha = 0.2
)