# NOT RUN {
gf_histogram(~ Sepal.Length | Species, alpha = 0.2, data = iris, bins = 20) %>%
gf_freqpoly(~ Sepal.Length, data = iris, color = ~Species, bins = 20)
gf_freqpoly(~ Sepal.Length, color = ~Species, data = iris, bins = 20)
gf_dens(~ Sepal.Length, data = iris, color = "navy") %>%
gf_freqpoly(~ Sepal.Length, y = ~..density.., data = iris, color = "red", bins = 20)
# }
Run the code above in your browser using DataLab