exemplo de dplyr e ggplot2

exemplo_hugo.R

require(dplyr)
require(ggplot2)
require(lubridate)

require(scales)


a <- c('2012-01-01')
a2 <- ymd(a)+days(1:1000)
a3 <- as.Date(a2)

d <- data.frame(X=rnorm(1000), 
                Y=c(rnorm(1000)[-1], 8),
                Z=rep(LETTERS[1:3], c(200,300,500)),
                data=a2)



d %>%
  mutate(id=1:n()) %>%
  filter(Y < quantile(Y, 0.25),
         X > quantile(Y, 0.75)) %>%
  ggplot(aes(x=as.Date(data), y=Y)) +
  geom_point() +
  geom_line() +
  scale_x_date(breaks=date_breaks('3 weeks')) +
  theme_bw() +
  theme(axis.text.x=element_text(angle=45, hjust=1))