devtools::load_all("~/packages/ggplot2")
#> ℹ Loading ggplot2

lengths <- 2^(0:24)

bms <- lapply(lengths, function(n) {
  x <- sample(LETTERS, n, TRUE)
  bench::mark(
    length(unique0(x)),
    vec_unique_count(x), 
    iterations = 50
  )
})
#> Warning: Some expressions had a GC in every iteration; so filtering is disabled.
#> Warning: Some expressions had a GC in every iteration; so filtering is disabled.

df <- do.call(rbind, bms)
df$n <- rep(lengths, each = 2)

ggplot(df, aes(n, as.numeric(median), colour = as.character(expression))) +
  geom_line() +
  scale_y_log10() +
  scale_x_log10() +
  labs(
    x = "Length of vector",
    y = "Seconds",
    colour = "Pattern"
  )