# sample data set, imported from SPSS.
data(efc)
library(sjPlot)
sjt.frq(efc$e42dep)
sjt.frq(data.frame(efc$e42dep, efc$e16sex))
# manually set value and variable labels
dummy <- sample(1:4, 40, replace = TRUE)
dummy <- set_labels(dummy, c("very low", "low", "mid", "hi"))
dummy <- set_label(dummy, "Dummy-variable")
# or use:
# set_label(dummy) <- "Dummy-variable"
# auto-detection of value labels by default, auto-detection of
# variable labels if argument "title" set to NULL.
library(sjPlot)
sjp.frq(dummy, title = NULL)
# Set variable labels for data frame
dummy <- data.frame(a = sample(1:4, 10, replace = TRUE),
b = sample(1:4, 10, replace = TRUE),
c = sample(1:4, 10, replace = TRUE))
dummy <- set_label(dummy,
c("Variable A",
"Variable B",
"Variable C"))
str(dummy)
# remove one variable label
dummy <- set_label(dummy,
c("Variable A",
"",
"Variable C"))
str(dummy)
# setting same variable labels to multiple vectors
# create a set of dummy variables
dummy1 <- sample(1:4, 40, replace = TRUE)
dummy2 <- sample(1:4, 40, replace = TRUE)
dummy3 <- sample(1:4, 40, replace = TRUE)
# put them in list-object
dummies <- list(dummy1, dummy2, dummy3)
# and set variable labels for all three dummies
dummies <- set_label(dummies, c("First Dummy", "2nd Dummy", "Third dummy"))
# see result...
get_label(dummies)
Run the code above in your browser using DataLab