data(apricotFFD)
attach(apricotFFD)
dev.new()
par1 <- par(family="serif")
par2 <- par(mar=c(5, 5, 2, 2))
par3 <- par(mgp=c(3, 1, 0))
plot( Year, Time, asp = 1, cex.lab = 1.5, cex.axis = 1.5,
xlab = "Year", ylab = "First flowering date (day-of-year)" )
par(par1)
par(par2)
par(par3)
# graphics.off()
Run the code above in your browser using DataLab