Проблемы с преобразованием списка в датафрейм

Question

У меня есть список, который называется my_list и выглядит так:

$love 
playing working sleeping 
   0.43    0.56     0.88
$will 
otherwise rework rule 
    0.87    0.23  0.11
$new
car  shirt
0.23   0.12

Я хочу преобразовать его в следующий фрейм данных, с выводом, похожим на это:

Column 1 Column 2 Column 3 
love     playing     0.43
love     working     0.56
love     sleeping    0.88
will     otherwise   0.87
will     rework      0.23
will     rule        0.11
new      car         0.23
new      shirt       0.12

Я пробовал это

  df <- do.call(rbind,lapply(cor1,as.data.frame))

, но затем столбцы становятся столбцами по умолчанию для фрейма данных:

love.playing 0.43 
love.working .56

и т. Д. (В основном у меня есть только один столбец с числами). Любая помощь будет высоко ценится.

Answer 1

out <- stack(my_list)
out$col2 <- row.names(out)
row.names(out) <- NULL
out
#   values  ind      col2
# 1   0.43 love   playing
# 2   0.56 love   working
# 3   0.88 love  sleeping
# 4   0.87 will otherwise
# 5   0.23 will    rework
# 6   0.11 will      rule
# 7   0.23  new       car
# 8   0.12  new     shirt

Воспроизводимые данные (пожалуйста, поделитесь в следующий раз):

my_list <- list(
  love = c(playing = 0.43, working = 0.56, sleeping = 0.88),
  will = c(otherwise = 0.87, rework = 0.23, rule = 0.11),
  new = c(car = 0.23, shirt = 0.12)
)

Answer 2

Один tibble и purrr параметр может быть:

map_df(my_list, ~ enframe(., name = "Column2", value = "Column3"), .id = "Column1")

  Column1 Column2   Column3
  <chr>   <chr>       <dbl>
1 love    playing      0.43
2 love    working      0.56
3 love    sleeping     0.88
4 will    otherwise    0.87
5 will    rework       0.23
6 will    rule         0.11
7 new     car          0.23
8 new     shirt        0.12

Answer 3

Вы можете сделать это:

df <- as.data.frame(do.call(rbind, strsplit(names(unlist(my_list)), "[.]")))
df$Column3 <- unlist(my_list)
names(df)[1:2] <- c("Column1", "Column2")
df
#>   Column1   Column2 Column3
#> 1    love   playing    0.43
#> 2    love   working    0.56
#> 3    love  sleeping    0.88
#> 4    will otherwise    0.87
#> 5    will    rework    0.23
#> 6    will      rule    0.11
#> 7     new       car    0.23
#> 8     new     shirt    0.12