data(exampleData)
plotProfiles(data = longi.dat, response = "sPSA", times = "DAP")
plt <- plotProfiles(data = longi.dat, response = "sPSA",
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)
plotProfiles(data = longi.dat, response = "sPSA", times = "DAP",
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