penguins_by_species <-
penguins |>
count(species)
ggplot(
penguins_by_species,
aes(
x = species,
y = n,
fill = species,
label = n
)
) +
geom_bar(stat = "identity") +
scale_fill_viridis_d() +
scale_y_continuous(
limits = c(0, 200),
labels = c(0, 40, 80, 120, 160)
) +
geom_label(vjust = 1.5, color = "white")