str(yield)
xyplot(yield ~ temp|cut(pH, seq(6.25,6.85,len = 4), ordered = TRUE),
yield, type = c("g","p","r"),
xlab = "Temperature of the slurry (degrees C)",
ylab = "Yield (tons)")
Run the code above in your browser using DataLab