# one variable at a time, mtcars
df <- mtcars
# now, add 1-to-1 value labels
df <- add_val_labs(
data = df,
vars = "am",
vals = c(0, 1),
labs = c("automatic", "manual")
)
df <- add_val_labs(
data = df,
vars = "carb",
vals = c(1, 2, 3, 4, 6, 8),
labs = c(
"1-carb", "2-carbs",
"3-carbs", "4-carbs",
"6-carbs", "8-carbs"
)
)
# var arg can be unquoted if using add_val1()
# note that this is not add_val_labs(); add_val1() has "var" (not "vars) arg
df <- add_val1(
data = df,
var = cyl, # note, "var," not "vars" arg
vals = c(4, 6, 8),
labs = c(
"four-cyl",
"six-cyl",
"eight-cyl"
)
)
# add many-to-1 value labels
df <- add_m1_lab(
data = df,
vars = "gear",
vals = 4:5,
lab = "4+"
)
# add quartile-based numerical range value labels
df <- add_quant_labs(
data = df,
vars = "disp",
qtiles = 4
)
# add "pretty" cut-based numerical range value labels
(mpg_bins <- pretty(range(df$mpg, na.rm = TRUE)))
df <- add_quant_labs(data = df, vars = "mpg", vals = mpg_bins)
# add dummy variables for the labels of column "am"
df2 <- add_lab_dummies(df, "am",
sep = ".", simple.names = FALSE,
prefix.length = 2, suffix.length = 6
)
df2
# add dummy variables for the labels of columns "mpg", "gear", and "cyl
df3 <- add_lab_dummies(df, c("mpg", "gear", "cyl"), simple.names = TRUE) # default
df3
Run the code above in your browser using DataLab