R/plotSeedBankSeedSurvival.R

In ksauby/GTMNERRproc: Data processing functions for GTMNERR data.

#' 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"))
}