x1 <- labelled(1:5, c(good = 1, bad = 5), label = "rating")
x1
zap_label(x1)
x2 <- labelled_spss(c(1:4, 9), label = "score", na_values = 9)
x2
zap_label(x2)
# zap_label also works with data frames
df <- tibble::tibble(x1, x2)
str(df)
str(zap_label(df))
Run the code above in your browser using DataLab