r - How to apply janitor::tabyl to several columns on data table?

Question

I have a dataframe:

ID   value    value_type
A    256       new
B    543       new
A    544       old

I want to apply janitor::tabyl to columns ID and value_type to get:

ID
     n    percent
A    2     0.66
B    1     0.33


value_type

       n    percent
new    2     0.66
old    1     0.33

How could I do that? When I do:

janitor::tabyl(dt[, c(ID, value_type)])

it doesn't separate those statistic tables by column

question from:https://stackoverflow.com/questions/65904779/how-to-apply-janitortabyl-to-several-columns-on-data-table

Answer 1

library(purrr)
library(dplyr)

df %>% map(., ~tabyl(.))

You could select the columns you need:

df %>% 
  select(ID, value_type) %>% 
  map(., ~tabyl(.))

This gives us:

$ID
 . n   percent
 A 2 0.6666667
 B 1 0.3333333

$value_type
   . n   percent
 new 2 0.6666667
 old 1 0.3333333