求助：识别生成SPSS值标签输出的R代码及对应包

Hey there! Let's dig into how you were extracting value labels from SPSS in R—this is a super common task, so I’m confident we can pin down the code and packages you used.

The go-to packages for working with SPSS labelled data in R are haven (for reading SPSS files natively) and labelled (for more flexible label manipulation). Here’s the typical workflow you likely used:

1. First, load and read your SPSS data #

You almost certainly started by reading the .sav file with haven:

# Install packages if you haven't already
install.packages("haven")
library(haven)

# Read the SPSS dataset
my_spss_data <- read_sav("path/to/your/file.sav")

2. Extract value labels #

Option 1: Using haven's built-in functions #

haven has native tools to pull value labels directly:

• Get value labels for a single variable (e.g., a gender variable):

# Pull value labels for one variable
val_labels(my_spss_data$gender)

• Get value labels for all variables in your dataset:
  You might have used purrr to loop through variables cleanly:

install.packages("purrr")
library(purrr)

# Extract labels for all variables, remove empty ones
all_value_labels <- map(my_spss_data, val_labels)
all_value_labels <- compact(all_value_labels) # Filters out variables with no labels

Option 2: Using the labelled package (more flexibility) #

If you needed more control over labels, the labelled package is perfect:

install.packages("labelled")
library(labelled)

# Get value labels for a single variable
get_value_labels(my_spss_data$gender)

# Get a summary of all variable labels AND value labels
var_label_summary(my_spss_data)

# Convert labelled values to factors (great for merging with other outputs)
my_spss_data$gender <- to_factor(my_spss_data$gender)

3. Format labels for merging with other outputs #

If you wanted to turn value labels into a tidy data frame (easy to combine with other analysis outputs), you might have used code like this:

install.packages("tibble")
library(tibble)

# Create a data frame with variable name, raw value, and label
label_df <- map_dfr(names(my_spss_data), function(var_name) {
  labels <- val_labels(my_spss_data[[var_name]])
  if (!is.null(labels)) {
    tibble(
      variable = var_name,
      raw_value = as.numeric(names(labels)),
      value_label = as.character(labels)
    )
  }
})

# View the tidy label data frame
print(label_df)

This workflow matches the most common ways to extract SPSS value labels in R—chances are you used a combination of haven and either purrr or labelled for your project.

内容的提问来源于stack exchange，提问作者T.Rodgers