filter()
slice()
arrange()
select()
summarize()
sum(x > 10) 和 mean(y == 0)
group_by()
dplyr::all_equal()
janitor::compare_df_cols()
vetr::alike()
diffdf::diffdf()
readr
readxl
pivot_longer()
pivot_wider()
separate()
untie()
unite()
chop()
unchop()
uncount()
map()
imap()
WDIsearch()
WDI
freq
descr()
clean_names
tabyl
get_dupes
remove_
round_half_up
excel_numeric_to_date
top_levels
row_to_names
after_join()
frq()
flat_table()
rec()
mtcars %>% map(mean) %>% str() #> List of 11 #> $ mpg : num 20.1 #> $ cyl : num 6.19 #> $ disp: num 231 #> $ hp : num 147 #> $ drat: num 3.6 #> $ wt : num 3.22 #> $ qsec: num 17.8 #> $ vs : num 0.438 #> $ am : num 0.406 #> $ gear: num 3.69 #> $ carb: num 2.81
simple_map <- function(x, fun, ...) { output <- vector("list", length = length(x)) for (i in seq_along(x)) { output[[i]] <- fun(x[[i]], ...) } output }