ネストされたリストを、リストのベクトルにしたい

Question

前提

次のようなリストがあります。

> list_a

List of 3
 $ :List of 2
  ..$ : chr "Covid-19"
  ..$ : chr "safety net"
 $ :List of 4
  ..$ : chr "Covid-19"
  ..$ : chr "Tax"
  ..$ : chr "safety net"
  ..$ : chr "basic income"
 $ :List of 2
  ..$ : chr "Tax"
  ..$ : chr "safety net"

いくつかのChr型文字列をリストとして要素に持つ、リストです。ここではリスト要素が、それぞれ２つ、４つ、２つの文字列要素の３つのリストとなっています。

実現したいこと

これを次の形のベクトルにして、別のデータフレームに持たせたいです。

c([<１番目のリスト：２要素>], [<２番めのリスト：　４要素>], [<３番めのリスト：２要素>])

発生している問題・エラーメッセージ

 chr [1:8] "Covid-19" "safety net" "Covid-19" "Tax" "safety net" "basic income" "Tax" "safety net"
 警告:  Error in data.frame:  引数に異なる列数のデータフレームが含まれています: 3, 0 

該当のソースコード

df <- data.frame(
   chr_b = unlist(list_a)
)

試したこと

unlist を使うと、ネストされたリストがすべて解除されて、１列のベクトルになってしまうことがわかりました。

ネストを１段階だけ解除して、データに持たせたいです。
（ベクトルにリストを要素としてもたせることはできないのであれば、こういう場合はどのようにデータをデータフレームにもたせたらよいのでしょうか。配列（array）に変換するのでしょうか？）

補足情報（FW/ツールのバージョンなど）

R 4.2.2

Answer 1

非構造データなので、要素としてベクトルを持つ tibble と相性がいいのではないでしょう

library(dplyr)
library(tidyr)
library(purrr)

list_a <- list(
  list("Covid-19", "safety net"),
  list("Covid-19", "Tax", "safety net", "basic income"),
  list("Tax", "safety net"))

# 各nestされたlistをベクトルにする
list_a2 <- map(list_a, unlist)

# long形式
long_nested_tibble <- tibble::tibble(list_ind = paste0("list_", 1:length(list_a2)), 
                                     chr_col = list_a2)

# wide形式
wide_nested_tibble <- long_nested_tibble %>% 
  pivot_wider(names_from = list_ind, values_from = chr_col)

long_nested_tibble
wide_nested_tibble


# > long_nested_tibble
# # A tibble: 3 × 2
#  list_ind chr_col  
#   <chr>    <list>   
# 1 list_1   <chr [2]>
# 2 list_2   <chr [4]>
# 3 list_3   <chr [2]>
# > wide_nested_tibble
# # A tibble: 1 × 3
#   list_1    list_2    list_3   
#   <list>    <list>    <list>   
# 1 <chr [2]> <chr [4]> <chr [2]>

Comments

[T.FUSE]

map を使って、リストの要素毎にunlist する、縦横の方向を自在にコントロールするコードの書き方、すごく参考になります。かっこいいですね

Answer 2

配列（array）に変換するのでしょうか？）

matrix に変換します。

list_a <- list(
  list("Covid-19", "safety net"),
  list("Covid-19", "Tax", "safety net", "basic income"),
  list("Tax", "safety net"))

df <- data.frame(chr_b = matrix(list_a, nrow=length(list_a)))

df
str(df)

#                                     chr_b
# 1                    Covid-19, safety net
# 2 Covid-19, Tax, safety net, basic income
# 3                         Tax, safety net
#
# 'data.frame':	3 obs. of  1 variable:
#  $ chr_b:List of 3
#   ..$ :List of 2
#   .. ..$ : chr "Covid-19"
#   .. ..$ : chr "safety net"
#   ..$ :List of 4
#   .. ..$ : chr "Covid-19"
#   .. ..$ : chr "Tax"
#   .. ..$ : chr "safety net"
#   .. ..$ : chr "basic income"
#   ..$ :List of 2
#   .. ..$ : chr "Tax"
#   .. ..$ : chr "safety net"

Comments

[T.FUSE]

なるほど、matrix にしてから格納するのですね。 df$chr_b[1][[1]] とかけば、 "Covid-19" が、df$chr_b[2][[3]] とかけば　"safety net" が　取り出せますかね？

[cuttlefish44]

(横からすみません)
この形式で満足なのであれば、`tibble::tibble(chr_b = list_a)` で一発です
(実用上ほぼ一緒ですが) dfがよければ、さらに `as.data.frame` をかましてください。
(コンソール出力で見た目が違うのはtibbleとdfでデフォルトでの表示方法が違う、というだけです)

ちなみに、取り出し方の記述は `df$chr_b[[1]][[2]]` のように一つめが [[xxx]] ですよ〜。
もしくはpurrr::pluckを利用して、`df %>% pluck("chr_b", 1, 2)` とも記述できます。

[T.FUSE]

今回は、どうしてもほかのベクトルをあわせもつ data.frame にする必要があったのです。tibble から as.data.frameを行う技もあるのですね。 cuttlefish44 さん、データの前処理自由自在ですね。また別の質問をさせていただくときにもいろいろ教えてください。