# NOT RUN {
gf_ash(~Sepal.Length, color = ~ Species, data = iris)
gf_ash(~Sepal.Length, color = ~ Species, data = iris, binwidth = 0.3)
gf_ash(~Sepal.Length, color = ~ Species, data = iris, adjust = 2)
ggplot(faithful, aes(x = eruptions)) +
geom_histogram(aes(y = ..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