How to plot the difference in means and confidence intervals using the emmeans package?

Question

I am running a mixed model containing a 2-way interaction. The model looks like this

model.1 <- glmmTMB(Weight ~ Treatment*Week + (1|Animal.ID), data=df, f