データフレームに変換するリストがありますが、ルートノード列が失われています：
my_list <- list(usdol = list(name = "Dollar", native = "US dollar"), dmk = list(name = "Mark",
native = "Deutsch Mark"))
> my_list
$usdol
$usdol$name
[1] "Dollar"
$usdol$native
[1] "US dollar"
$dmk
$dmk$name
[1] "Mark"
$dmk$native
[1] "Deutsch Mark"
qdapTools（list2df）を使用してこの方法でデータフレームに変換する
my_list %>% list2df()
Dollar usdol
US dollar usdol
Mark dmk
Deutsch Mark dmk
望ましい結果は次のとおりです。
code name secondary_name
usdol Dollar US dollar
dmk Mark Deutsch Mark
これがunnest_widerfromの1つのオプションですtidyr
library(tibble)
library(tidyr)
tibble(col = my_list) %>%
unnest_wider(col) %>%
mutate(code = names(my_list))%>%
select(code, name, secondary_name = native)
# A tibble: 2 x 3
# code name secondary_name
# <chr> <chr> <chr>
#1 usdol Dollar US dollar
#2 dmk Mark Deutsch Mark
またはを使用して base R
do.call(rbind, Map(cbind, lapply(my_list, stack), code = names(my_list)))
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加