[英]how can I create a list combining elements from tibble?
我有以下小標題:
ID group val_1 val_2
<chr> <chr> <dbl> <dbl>
1 A RED 1 3
2 A BLUE 2 4
3 A BLACK 1 5
4 B RED 2 5
5 B BLUE 1 6
6 B BLACK 2 6
而我想通過這個tibble來go創建一個列表列表每個嵌套列表應該是具有以下元素的每個 ID 的列表。 例如對於 ID==A:
A
$BLACK
[1] 1 5
$RED
[1] 1 3
$BLUE
[1] 2 4
列表的第二個元素應該是 ID==B 的列表。 我已經嘗試過purrr::transpose()
但它並沒有完全滿足我的要求,因為它創建了一個包含 6 個元素的列表(每行一個)。 我嘗試了group_by(ID)
,但它沒有生成預期的 output。 我將不勝感激任何建議。
一種選擇是split
lapply(split(df1, df1$ID), function(x) lapply(split(x[3:4],
x$group), unlist, use.names = FALSE))
#$A
#$A$BLACK
#[1] 1 5
#$A$BLUE
#[1] 2 4
#$A$RED
#[1] 1 3
#$B
#$B$BLACK
#[1] 2 6
#$B$BLUE
#[1] 1 6
#$B$RED
#[1] 2 5
使用tidyverse
,我們也可以nest
library(dplyr)
df1 %>%
group_by(ID, group) %>%
nest
或者另一種選擇是使用pivot_longer
轉換為“long”格式,然后進行split
library(tidyr)
library(purrr)
df1 %>%
pivot_longer(cols = -c(ID, group)) %>%
split(.$ID) %>%
map(~ {split(.x$value, .x$group)})
df1 <- structure(list(ID = c("A", "A", "A", "B", "B", "B"), group = c("RED",
"BLUE", "BLACK", "RED", "BLUE", "BLACK"), val_1 = c(1L, 2L, 1L,
2L, 1L, 2L), val_2. = c(3L, 4L, 5L, 5L, 6L, 6L)),
class = "data.frame", row.names = c("1",
"2", "3", "4", "5", "6"))
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.