0byt3m1n1
Path:
C:
/
Program Files
/
R
/
R-4.2.2
/
library
/
vroom
/
bench
/
taxi
/
[
Home
]
File: vroom-dplyr.R
({ library(vroom); library(dplyr) }) x <- vroom(file, col_types = c(pickup_datetime = "c"), trim_ws = FALSE, quote = "", escape_double = FALSE, na = character()) print(x) a <- head(x) b <- tail(x) c <- sample_n(x, 100) d <- filter(x, payment_type == "UNK") e <- group_by(x, payment_type) %>% summarise(avg_tip = mean(tip_amount))