a = data.frame(x = 1:5, y = 6:10)
b = data.frame(y = 6:10, z = 11:15)
add_rows(a, b) # x, y, z
a %add_rows% b # the same result
add_rows(a, b, nomatch_columns = "drop") # y
# simple tables
data(mtcars)
mtcars = modify(mtcars, {
var_lab(mpg) = "Miles/(US) gallon"
var_lab(vs) = "vs"
val_lab(vs) = c("V-engine" = 0, "Straight engine" = 1)
var_lab(am) = "am"
val_lab(am) = c("automatic transmission" = 1, "manual transmission" = 0)
var_lab(gear) = "gear"
var_lab(carb) = "carb"
})
tab_mean = with(mtcars, cro_mean(mpg, am))
tab_percent = with(mtcars, cro_cpct(vs, am))
tab_mean %add_rows% tab_percent
Run the code above in your browser using DataLab