#' Plot Seed Bank Data
#'
#' @param dat Dataset
#' @param x_variable
#' @param grouping_variable
#' @param facet_grid_var
#' @param legend_title Default value is "Parent Assignment Method."
#' @param xlab_label
#' @param strip.text.size
#'
#' @export
plotSeedBankSeedSurvival <- function(dat, x_variable, grouping_variable, facet_grid_var, legend_title="Parent Assignment\nMethod", xlab_label, strip.text.size, x_breaks, x_limits, x_coord_trans, y_breaks, y_limits, strip.text.y.angle, axis.text.x.size, legend.text.size, legend.title.size) {
ggplot(
dat,
aes(
x = eval(parse(text=x_variable)),
y = lambda,
colour=factor(eval(parse(text=grouping_variable))),
linetype=factor(eval(parse(text=grouping_variable)))
)
) +
KEStheme() +
geom_line(size=2) +
facet_grid(eval(parse(text=facet_grid_var))) +
theme(
legend.title = element_text(size = legend.title.size),
legend.text = element_text(size = legend.text.size),
legend.position="bottom",
axis.text.x=element_text(angle=45, hjust=1, size=axis.text.x.size),
panel.spacing = unit(0, "lines"),
strip.background = element_blank(),
strip.placement = "outside",
strip.text = element_text(size=strip.text.size),
strip.text.y=element_text(angle=strip.text.y.angle)
) +
ylab(expression(lambda)) +
xlab(xlab_label) +
guides(
colour=guide_legend(title=legend_title),
linetype=guide_legend(title=legend_title)
) +
coord_trans(x=x_coord_trans) +
scale_x_continuous(breaks=x_breaks, limits=x_limits) +
scale_y_continuous(breaks=y_breaks, limits=y_limits) +
scale_linetype_manual(values=c("solid","dotdash","dashed")) +
scale_colour_manual(values=c("black","purple","orange"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.