library(tidyverse)
## Warning: package 'ggplot2' was built under R version 4.4.1
library(ggpal2)
options(
.chores_chat = ellmer::chat_google_gemini()
)
## Using model = "gemini-2.5-flash".
diamonds |>
ggplot() +
aes(x = cut) +
geom_bar() +
aes(fill = cut) +
aes(label = after_stat(count)) +
geom_text(stat = "count",
vjust = 1)