df <- mtcars
# now, add 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"
)
)
df <- sreplace(df, mpg = mpg^2) # replace var "mpg"
df <- sreplace(df, am = ifelse(am == 0, 2, am)) # replace var "am"
head(df, 4) # show that data.frame modifications have been made
get_all_lab_atts(df)
df <- add_quant_labs(
data = df,
vars = "mpg",
vals = c(200, 400, 600, 1000, 1500),
labs = NULL
)
df <- drop_val_labs(
data = df,
vars = "am"
)
df <- add_val_labs(
data = df,
vars = "am",
vals = c(1, 2),
labs = c("manual", "automatic")
)
get_val_labs(df)
Run the code above in your browser using DataLab