R 如何将这个小列表转换为数据帧

发布于02月17日

我有一个小小的 list :

my_list <- list(time = structure(c(0, 1), dim = 2:1, dimnames = list(c("Pre", 
"Post"), "Post")), treatment = structure(c(0, 1), dim = 2:1, dimnames = list(
    c("Control", "Treatment"), "Treatment")))

# that gives me: 
$time
     Post
Pre     0
Post    1

$treatment
          Treatment
Control           0
Treatment         1

我想将其转换为数据帧，如下所示:

I have tried everything from this link, but it did not give me my desired df:
Convert a list to a data frame

推荐答案

以下是我们如何解决此任务的函数:

final_df <- do.call(cbind, lapply(names(my_list), function(name) {
  df <- as.data.frame(my_list[[name]])
  transformed_df <- apply(df, 2, function(y) paste(names(y), y, sep = " "))
  colnames(transformed_df) <- paste("Levels of", name)
  transformed_df
}))

final_df

  Levels of Time Levels of Treatment
1          Pre 0           Control 0
2         Post 1         Treatment 1

下面是一步一步的相同过程:

df1 <- as.data.frame(my_list[1]$time)
df2 <- as.data.frame(my_list[2]$treatment)

transformed_df1 <- apply(df1, 2, function(x) paste(names(x), x, sep = " "))
transformed_df1 <- as.data.frame(transformed_df1)
                    
transformed_df2 <- apply(df2, 2, function(x) paste(names(x), x, sep = " "))
transformed_df2 <- as.data.frame(transformed_df2)

final_df <- cbind(transformed_df1, transformed_df2)
colnames(final_df) <- c("Levels of Time", "Levels of Treatment")
final_df