data(efc)
descr(efc, e17age, c160age)
library(dplyr)
efc %>% select(e42dep, e15relat, c172code) %>% descr()
# with grouped data frames
efc %>%
  group_by(e16sex) %>%
  select(e16sex, e42dep, e15relat, c172code) %>%
  descr()
efc %>%
  group_by(e16sex, c172code) %>%
  select(e16sex, c172code, e17age, c160age) %>%
  descr()
Run the code above in your browser using DataLab