I think these would be easier to see the difference if you extracted out the common component (e.g. ` base <- ggplot(msleep, aes(x=sleep_total, y=awake)) + geom_point())