Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- p <- ggplot(mtcars, aes(x=cyl, colour=factor(vs))) +
- geom_line(stat = 'count')
- dat <- layer_data(p)
- p + stat_smooth(data = dat, aes(x, y), inherit.aes = FALSE)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement