library(dplyr)
N <- 1e2 ; K = 10
df <- data_frame(
id = sample(c(NA,1:5), N/K, TRUE),
v1 = sample(1:5, N/K, TRUE)
)
tab(df[["id"]])
tab(df, id)
df %>% group_by(id) %>% tab()
df %>% group_by(id) %>% tab(v1)
tab(df, id, i = id>=3)
Run the code above in your browser using DataLab