dplyr and base R filter speed comparison

library(microbenchmark)
library(dplyr)

## 
## Attaching package: 'dplyr'
## 
## The following object is masked from 'package:stats':
## 
##     filter
## 
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

data(Orange)
microbenchmark(dplyrfilter = filter(Orange, age>500, circumference >70, Tree == 1))

## Unit: microseconds
##         expr min    lq  mean median    uq  max neval
##  dplyrfilter 528 548.1 651.7  560.7 581.4 6142   100

microbenchmark(basefilter = Orange[Orange$age >500 & Orange$circumference >70 & Orange$Tree ==1,])

## Unit: microseconds
##        expr   min  lq  mean median    uq   max neval
##  basefilter 158.9 164 170.9  167.5 175.4 298.1   100