# NOT RUN {
data(penguins, package = "palmerpenguins")
gf_ash(~bill_length_mm, color = ~species, data = penguins)
gf_ash(~bill_length_mm, color = ~species, data = penguins, adjust = 2)
gf_ash(~bill_length_mm, color = ~species, data = penguins, binwidth = 1)
gf_ash(~bill_length_mm, color = ~species, data = penguins, binwidth = 1, adjust = 2)
ggplot(faithful, aes(x = eruptions)) +
geom_histogram(aes(y = stat(density)),
fill = "lightskyblue", colour = "gray50", alpha = 0.2
) +
geom_ash(colour = "red") +
geom_ash(colour = "forestgreen", adjust = 2) +
geom_ash(colour = "navy", adjust = 1 / 2) +
theme_minimal()
# }
Run the code above in your browser using DataLab