How to do specific, custom contrasts in EMMEANs with multiple nested factor levels but without subsetting data

Question

Here is my data frame:

    rearing.temp<-c("15", "15", "15", "15", "19", "19", "19",