回答編集履歴
1
a
test
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
非構造データなので、
|
|
1
|
+
非構造データなので、要素としてベクトルを持つ `tibble` と相性がいいのではないでしょう
|
|
2
2
|
|
|
3
3
|
```
|
|
4
4
|
library(dplyr)
|
|
@@ -10,10 +10,12 @@
|
|
|
10
10
|
list("Covid-19", "Tax", "safety net", "basic income"),
|
|
11
11
|
list("Tax", "safety net"))
|
|
12
12
|
|
|
13
|
+
# 各nestされたlistをベクトルにする
|
|
14
|
+
list_a2 <- map(list_a, unlist)
|
|
13
15
|
|
|
14
16
|
# long形式
|
|
15
|
-
long_nested_tibble <- tibble::tibble(list_ind = paste0("list_", 1:length(list_a)),
|
|
17
|
+
long_nested_tibble <- tibble::tibble(list_ind = paste0("list_", 1:length(list_a2)),
|
|
16
|
-
chr_col = list_a)
|
|
18
|
+
chr_col = list_a2)
|
|
17
19
|
|
|
18
20
|
# wide形式
|
|
19
21
|
wide_nested_tibble <- long_nested_tibble %>%
|
|
@@ -22,16 +24,18 @@
|
|
|
22
24
|
long_nested_tibble
|
|
23
25
|
wide_nested_tibble
|
|
24
26
|
|
|
27
|
+
|
|
25
28
|
# > long_nested_tibble
|
|
26
29
|
# # A tibble: 3 × 2
|
|
27
|
-
#
|
|
30
|
+
# list_ind chr_col
|
|
28
|
-
#
|
|
31
|
+
# <chr> <list>
|
|
29
|
-
#
|
|
32
|
+
# 1 list_1 <chr [2]>
|
|
30
|
-
#
|
|
33
|
+
# 2 list_2 <chr [4]>
|
|
31
|
-
#
|
|
34
|
+
# 3 list_3 <chr [2]>
|
|
32
35
|
# > wide_nested_tibble
|
|
33
36
|
# # A tibble: 1 × 3
|
|
34
|
-
#
|
|
37
|
+
# list_1 list_2 list_3
|
|
35
|
-
#
|
|
38
|
+
# <list> <list> <list>
|
|
36
|
-
#
|
|
39
|
+
# 1 <chr [2]> <chr [4]> <chr [2]>
|
|
40
|
+
|
|
37
41
|
```
|