str(timetemp)
xyplot(time ~ temp, timetemp, groups = type,
type = c("g","p","r"), aspect = 'xy',
ylab = "Time to reach -10C (min.)",
xlab = "Temperature in freezer (degrees C)",
auto.key = list(columns = 2, lines = TRUE))
Run the code above in your browser using DataLab