R语言的dplyr应用

####### Some dplyr
	library(dplyr)
	install.packages("hflights")
	library(hflights)
	flights<- as.data.frame(hflights)
	### Filter function####
	filter(flights, UniqueCarrier %in% c("AA", "UA"))
	### Select#####
	select(flights, DepTime, ArrTime, FlightNum)
	select(flights, Year:DayofMonth, contains("Taxi"))
	### Select and Filter#####
	flights %>%
	select(UniqueCarrier, DepDelay) %>%
	filter(DepDelay >60)
	### arrange#####
	flights %>%
	select(UniqueCarrier, DepDelay) %>%
	arrange(desc(DepDelay))
	### Mutate#####
	flights<- flights %>%
	mutate(speed = Distance/AirTime*60)
	### Summarise#####
	n()
	n_distinct()