library(tidyverse)
library(gghighlight)

set.seed(47)
df <- tibble::tibble(
  a = seq(0, 100, by = 5),
  b = runif(21)
)

library(tidyverse)
library(gghighlight)

set.seed(47)
df <- tibble::tibble(
  a = seq(0, 100, by = 5),
  b = runif(21)
)

ggplot(df) +
  aes(x = a, y = b) + 
  geom_line() +
  geom_point() +
  gghighlight(b == max(b), label_key = a) +
  theme_minimal()
#> Error: `vars` must be a character vector

ggplot(df) +
  aes(x = a, y = b) + 
  geom_line() +
  geom_point() +
  gghighlight(b == max(b), label_key = a, n = 1) +
  theme_minimal()