请求协助：基于条件操作R语言DataFrame列表（需学习解决方法）

Hey there! Let's fix up that tricky DataFrame you've got. It looks like the first two rows are metadata (configuration details and labels) while the rest are your actual numeric data points. Here's a step-by-step approach to turn this into a clean, usable structure:

Step 1: Recreate the Original DataFrame (for reference) #

First, let's make sure we're working with the same data (I filled in the truncated values in Data1 for completeness):

d1 <- data.frame(
  Data0 = c("N,R,15,P,D", "_KEY_VALUE_1", -1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25),
  Data1 = c("N,15,C,D", "Garden", 0.9759, 0.7121, 0.7376, 0.7647, 0.7927, 0.8209, 0.8487, 0.8759, 0.9021, 0.9274, 0.9518, 1, 1.023, 1.045, 1.067, 1.089, 1.111, 1.133, 1.155, 1.177, 1.199, 1.221, 1.243, 1.265, 1.287, 1.309),
  stringsAsFactors = FALSE
)

Step 2: Extract and Organize Metadata #

The first two rows hold important context—let's pull that out and structure it for clarity:

# Split the comma-separated metadata from the first row
metadata_config <- strsplit(d1$Data0[1], ",")[[1]]
# Name the config values so they make sense
names(metadata_config) <- c("Group", "Type", "Number", "Code1", "Code2")

# Grab the key value and category from the second row
metadata_labels <- list(
  key_value = d1$Data0[2],
  category = d1$Data1[2]
)

Step 3: Isolate and Clean Numeric Data #

Now let's get to the actual data starting from row 3, and convert the character columns to numeric (since they're currently stored as text):

# Extract rows 3 onwards as the core data
clean_data <- d1[3:nrow(d1), ]

# Convert columns to numeric type
clean_data$Data0 <- as.numeric(clean_data$Data0)
clean_data$Data1 <- as.numeric(clean_data$Data1)

# Rename columns to something more intuitive (optional but helpful)
colnames(clean_data) <- c("X_Index", "Measurement_Value")

Step 4: Combine Metadata with Clean Data (Optional) #

If you want to keep the metadata tied to your data (great for filtering or grouping later), you can attach it as additional columns:

# Combine all into one data frame
full_clean_data <- cbind(
  as.data.frame(t(metadata_config)),
  metadata_labels,
  clean_data
)

# Check the first few rows to verify
head(full_clean_data)

Bonus: Handling a List of Such DataFrames #

If you have multiple DataFrames like d1 in a list, you can automate this process with purrr:

library(purrr)

# Define a cleaning function
clean_df <- function(df) {
  # Extract metadata
  config <- strsplit(df$Data0[1], ",")[[1]]
  names(config) <- c("Group", "Type", "Number", "Code1", "Code2")
  labels <- list(key_value = df$Data0[2], category = df$Data1[2])
  
  # Clean data
  data <- df[3:nrow(df), ]
  data$Data0 <- as.numeric(data$Data0)
  data$Data1 <- as.numeric(data$Data1)
  colnames(data) <- c("X_Index", "Measurement_Value")
  
  # Combine and return
  cbind(as.data.frame(t(config)), labels, data)
}

# Apply to all DataFrames in your list
cleaned_list <- map(your_df_list, clean_df)

This approach gives you a structured dataset that's easy to analyze, visualize, or export. If your actual data has slight variations (like different metadata formats), you can tweak the strsplit or naming steps to match!

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