# NOT RUN {
gf_histogram(~eruptions, data = faithful) %>%
gf_rug(~eruptions, data = faithful, color = "red", sides = "bl") %>%
gf_rug(~eruptions, data = faithful, color = "navy", sides = "tr")
gf_point(Sepal.Length ~ Sepal.Width, data = iris) %>%
gf_rug(Sepal.Length ~ Sepal.Width)
gf_point(Sepal.Length ~ Sepal.Width, data = iris) %>%
gf_rug( x = ~ Sepal.Width, data = iris, color = "navy") %>%
gf_rug( y = ~ Sepal.Length, data = iris, color = "red")
# }
Run the code above in your browser using DataLab