ネストされたリストの要素をRにグループ化したいのですが、それを行うための最良の解決策は何ですか?
nest1 <- list(item1 = 1, item2 = "a")
nest2 <- list(item1 = 3, item2 = "b")
li <- list(nest1, nest2)
> li
[[1]]
[[1]]$item1
[1] 1
[[1]]$item2
[1] "a"
[[2]]
[[2]]$item1
[1] 3
[[2]]$item2
[1] "b"
私が達成しようとしているのは次のようなものです:
[[1]]
[[1]]$item1
[[1]] 1 3
[[1]]$item2
[[1]] "a" "b"
私はlapply
いくつかの方法で試しましたが、期待した結果が得られません。
lapply(li, "[[", c("item1", "item2"))
使用できます transpose
library(purrr)
transpose(li) %>%
map(~unlist(., recursive = FALSE)) %>%
list()
#[[1]]
#[[1]]$item1
#[1] 1 3
#[[1]]$item2
#[1] "a" "b"
またはを使用して base R
v1 <- unlist(li)
list(lapply(split(unname(v1), names(v1)), type.convert, as.is = TRUE))
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加