R新手求助：从Matlab导入的嵌套列表中提取指定变量并转换为数据框

Hey there! I totally get it—nested lists in R can feel like a maze when you're just starting out, but let's work through this together to get that tidy data frame you need.

Looking at your structure, each entry in my_top_list has a Data object that's a named list (those dimnames are our saving grace here). Here's a step-by-step solution to extract the id, var1, and var3, then combine everything into a single data frame:

Step 1: Write a helper function to process one Data object #

First, we'll make a function that takes a single Data entry, pulls out the pieces we need, and turns them into a small data frame:

process_single_data <- function(data_obj) {
  # Extract the observer ID (convert from 1x1 matrix to character)
  observer_id <- as.character(data_obj[["observer"]])
  
  # Extract var1 and var3, convert matrices to plain vectors
  var1_values <- as.vector(data_obj[["var1"]])
  var3_values <- as.vector(data_obj[["var3"]])
  
  # Create a data frame where the ID repeats for every value in var1/var3
  data.frame(
    id = rep(observer_id, length(var1_values)),
    var1 = var1_values,
    var3 = var3_values,
    stringsAsFactors = FALSE
  )
}

Step 2: Apply the function to your entire list and combine results #

Now we'll run this function on every entry in my_top_list, then stitch all the small data frames together into one big one.

If you prefer base R, use this:

# Process all entries and combine with rbind
final_data <- do.call(rbind, lapply(my_top_list, function(x) process_single_data(x$Data)))

Or if you like the tidyverse approach (using purrr and dplyr), here's a concise version:

library(tidyverse)

final_data <- map_dfr(my_top_list, function(x) {
  data_obj <- x$Data
  tibble(
    id = as.character(data_obj[["observer"]]),
    var1 = list(as.vector(data_obj[["var1"]])),
    var3 = list(as.vector(data_obj[["var3"]]))
  ) %>%
    unnest(c(var1, var3))
})

Quick notes on why this works: #

• as.character(data_obj[["observer"]]): Your observer ID is stored as a 1x1 character matrix, so we convert it to a simple character string.
• as.vector(...): Both var1 and var3 are stored as matrices (1xN and Nx1 respectively), converting them to vectors makes it easy to pair each value with the ID.
• rep(observer_id, length(var1_values)): Ensures the ID is repeated for every row in the data frame, matching the number of values in var1/var3.

This should give you exactly the tidy data frame you're looking for, with all entries from every [[i]]$Data combined into one table.

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