动态创建多个R数据框：从目录导入SAS数据集问题求助

Hey there! Let's walk through what's off with your current code and get you importing those SAS datasets correctly. As a new R user, this is a super common task, so let's break it down clearly.

First, What's Wrong With Your Current Code? #

Let's go through the issues one by one:

• You're using the loop index i instead of the filename: In your loop, i is a number (1, 2, 3...), not the actual filename from your files list. So strsplit(i, split='.sas7bdat') is trying to split a number, which doesn't make sense. You need to reference files[i] to get the current filename.
• Overwriting the same variable every loop: You keep assigning the imported data to domain_name, which means each iteration replaces the last dataset instead of creating a unique data frame for each file.
• strsplit returns a list, not a single string: Even if you used files[i], strsplit would output a list—you'd need to extract the first element to get a clean, usable name.

Key Concepts to Understand #

• Extracting filenames without extensions: Instead of manually splitting strings, R has a built-in function tools::file_path_sans_ext() that cleanly strips off file extensions. It's perfect for turning example.sas7bdat into example.
• Dynamic object creation: To create multiple data frames with names matching your filenames, you have two solid options:
  • Use assign() to create individual variables in your global environment (one per dataset).
  • Store all data frames in a single list (this is the recommended approach—it keeps your workspace organized and makes bulk processing way easier).

Corrected Code Options #

Option 1: Create Individual Data Frames in Global Environment

This will generate a separate variable for each dataset, named after the stripped filename:

library(haven)
library(tools) # For the file_path_sans_ext function

path <- 'C:\\XXXX\\XXX'
files <- list.files(path = path, pattern = "*.sas7bdat", full.names = FALSE)

for (file in files) {
  # Get the clean name without the .sas7bdat extension
  df_name <- file_path_sans_ext(file)
  # Build the full file path (cross-platform friendly)
  full_path <- file.path(path, file)
  # Import the SAS dataset and assign it to the named variable
  assign(df_name, read_sas(full_path))
}

Note: Using file.path() instead of paste() ensures your file paths work correctly on Windows, Mac, or Linux.

Option 2: Store All Data Frames in a List (Recommended)

This keeps all your datasets in one organized place, avoiding a cluttered workspace:

library(haven)
library(tools)

path <- 'C:\\XXXX\\XXX'
# Use full.names=TRUE to get complete file paths directly
files <- list.files(path = path, pattern = "*.sas7bdat", full.names = TRUE)

# Import all datasets into a list
sas_datasets <- lapply(files, read_sas)
# Name list elements with the stripped filenames
names(sas_datasets) <- file_path_sans_ext(basename(files))

Now you can access individual datasets like sas_datasets$my_dataset_name or sas_datasets[[1]] for the first entry. This is ideal for 30 datasets—you can loop through the list for further processing without tracking 30 separate variables.

内容的提问来源于stack exchange，提问作者Rod