Behaviour with annotations about ggnewscale HOT 1 CLOSED

library(ggplot2)
library(ggnewscale)
topography <- expand.grid(x = 1:nrow(volcano), y = 1:ncol(volcano))
topography$z <- c(volcano)
measurements <- data.frame(x = runif(30, 1, 80), y = runif(30, 1, 60),
                           thing = rnorm(30))
p <- ggplot(mapping = aes(x, y)) + geom_contour(data = topography, aes(z = z, color = stat(level))) +
  scale_color_viridis_c(option = "D") +
  annotate("polygon", x = c(25, 50, 50, 25), y = c(20, 20, 40, 40), fill = NA, color = "red")
p

p + new_scale_color()