data(exampleData)
plotLongitudinal(data = longi.dat, x = "xDAP", response = "sPSA")
plt <- plotLongitudinal(data = longi.dat, x = "xDAP", response = "sPSA",
x.title = "DAP", y.title = "sPSA (kpixels)",
facet.x = "Treatment.1", facet.y = "Smarthouse",
printPlot=FALSE)
plt <- plt + ggplot2::geom_vline(xintercept=29, linetype="longdash", size=1) +
ggplot2::scale_x_continuous(breaks=seq(28, 42, by=2)) +
ggplot2::scale_y_continuous(limits=c(0,750))
print(plt)
plotLongitudinal(data = longi.dat, x="xDAP", response = "sPSA",
x.title = "DAP", y.title = "sPSA (kpixels)",
facet.x = "Treatment.1", facet.y = "Smarthouse",
ggplotFuncs = list(ggplot2::geom_vline(xintercept=29,
linetype="longdash",
size=1),
ggplot2::scale_x_continuous(breaks=seq(28, 42,
by=2)),
ggplot2::scale_y_continuous(limits=c(0,750))))
Run the code above in your browser using DataLab