``` r library(ggplot2) library(metR) v <- reshape2::melt(volcano) g <- ggplot(v, aes(Var1, Var2)) + geom_contour(aes(z = value)) g + geom_text_contour(aes(z = value), label.placer = label_placer_n(3)) ``` <!-- --> <sup>Created on 2024-12-06 with [reprex v2.1.1](https://reprex.tidyverse.org)</sup>