# Apply theme_pink to z2

z2 + theme_pink

# Change code so that old theme is saved as old

old <- theme_update(panel.background = element_blank(),

             legend.key = element_blank(),

             legend.background = element_blank(),

             strip.background = element_blank(),

             plot.background = element_rect(fill = myPink, color = "black", size = 3),

             panel.grid = element_blank(),

             axis.line = element_line(color = "black"),

             axis.ticks = element_line(color = "black"),

             strip.text = element_text(size = 16, color = myRed),

             axis.title.y = element_text(color = myRed, hjust = 0, face = "italic"),

             axis.title.x = element_text(color = myRed, hjust = 0, face = "italic"),

             axis.text = element_text(color = "black"),

             legend.position = "none")

# Display the plot z2

z2

# Restore the old plot

theme_set(old)