如何用lapply动态提取列表中DataFrame含指定标签的行？

Got it, let's work through this problem. The key here is swapping out that hardcoded row number for logic that finds exactly where your target label lives in each DataFrame. Here's how you can adjust your code to do that smoothly:

Basic Approach for a Single Label #

Let's start with one label (like "Contact") first. We'll use a custom function inside lapply to locate the matching row, then extract the content just like your original code did:

# Define your target label (swap this for "Company name" when needed)
target_label <- "Contact"

# Process each DataFrame in your list dynamically
dynamic_extract <- lapply(test, function(df) {
  # Find the row index where the first column matches the target label
  # Add trimws() and tolower() to handle messy data (extra spaces, case mismatches)
  target_row <- which(tolower(trimws(df[, 1])) == tolower(trimws(target_label)))
  
  # Handle cases where the label is missing (avoids errors)
  if (length(target_row) == 0) {
    # Return an empty data frame to keep structure consistent, or NA if preferred
    return(data.frame(NA, stringsAsFactors = FALSE))
  } else {
    # Extract the matching row's first column, keep it as a data frame (drop=FALSE)
    return(df[target_row, 1, drop = FALSE])
  }
})

Handling Multiple Labels at Once #

If you need to pull both "Contact" and "Company name" from every DataFrame, wrap the logic into a reusable function and iterate over your label list:

# Reusable function to extract a single label from a DataFrame
extract_label <- function(df, label) {
  target_row <- which(tolower(trimws(df[, 1])) == tolower(trimws(label)))
  
  if (length(target_row) == 0) {
    return(data.frame(Label = label, Value = NA, stringsAsFactors = FALSE))
  } else {
    # Adjust the column index here if your value lives in a different column (e.g., 2 for column B)
    return(data.frame(Label = label, Value = df[target_row, 1], stringsAsFactors = FALSE))
  }
}

# List of labels you want to extract
labels_to_get <- c("Contact", "Company name")

# Process each DataFrame and pull all target labels
multi_label_extract <- lapply(test, function(df) {
  do.call(rbind, lapply(labels_to_get, function(lab) extract_label(df, lab)))
})

Quick Tips #

• Messy Data Safety: The trimws() and tolower() calls fix common issues like extra spaces (" Contact ") or inconsistent capitalization ("contact") that would break exact matches.
• Error Prevention: The check for length(target_row) == 0 ensures your code doesn't crash if a DataFrame is missing a label—tweak the return value here to fit your workflow.
• Column Flexibility: If the value tied to your label is in a different column (not column 1), just change the column index in df[target_row, X, drop=FALSE] (replace X with the correct column number).

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