英文:
Expand column of Dataframes into existing dataframe (R)
问题
我有一个包含列的数据框（4行 x 3列），其中一列包含数据框（每个数据框有10行 x 3列）。
我的目标是将每个数据框扩展为10行和3列，但保持原始匹配。
大数据框看起来像这样：
行数：4列数：3$ ID <chr> "A", "B", "C", "D"$ 报告类型 <chr> "I", "P", "I", "P"$ 要扩展的列 <list> [<tbl_df[10 x 3>], [<tbl_df[10 x 3>], [<tbl_df[10 x 3>], ...
我的第一个想法是
bind_rows(df$col_to_expand)
但这会丢失ID和报告类型列。
我的目标是最终得到像这样保留信息的结果：
行数：40列数：5$ ID <chr> "A", "A","A","A" ...$ 报告类型 <chr> "I", "I", "I", "I"$ 新列1 <chr> "x", "y" ...$ 新列2 <chr> "z", "a" ...$ 新列3 <chr> "t", "u" ...
我最终通过以下方式解决了它：
new_df <- df[rep(seq_len(nrow(df)), each = 10), ] %>% bind_cols(df$col_to_expand)
但我想知道是否有人有一个更干净的方法，适用于列中数据框的行数不一致的情况。
谢谢！
英文:
I have a dataframe (4 obs x 3 variables) with a column that contains dataframes (10 obs x 3 variables each)
My goal is to expand each dataframe into 10 rows and 3 new columns but keeping the original matching.
The big dataframe looks like this:
Rows: 4Columns: 3$ ID <chr> "A" "B" "C" ,"D"$ report_type <chr> "I", "P", "I", "P"$ col_to_expand <list> [<tbl_df[10 x 3]>], [<tbl_df[10 x 3]>], [<tbl_df[10 x 3]>], ...
My first idea was
bind_rows(df$col_to_expand)
but that loses the ID and report type columns.
My goal is to end up with something like this that preserves information:
Rows: 40Columns: 5$ ID <chr> "A" "A","A","A" ...$ report_type <chr> "I", "I", "I", "I"$ newco1 <chr> "x", "y" ...$ newco2 <chr> "z", "a" ...$ newco3 <chr> "t", "u" ...
I ended up solving it by
new_df <- df[rep(seq_len(nrow(df)), each = 10), ] %>% bind_cols(df$col_to_expand)
but I was wondering if anyone had a cleaner way for a case where the number of rows in the column of dataframes is not consistent.
Thanks!
答案1
得分: 2
使用 tidyr::unnest，您可以执行以下操作：
library(tibble)library(tidyr)library(purrr)set.seed(123)df <- tibble(ID = LETTERS[1:4],report_type = rep(c("I", "P"), 2),col_to_expand = map(1:4, ~ tibble(x = sample(letters, 10),y = sample(letters, 10),z = sample(letters, 10))))df %>%unnest(col_to_expand)
英文:
Using tidyr::unnest you could do:
library(tibble)library(tidyr)library(purrr)set.seed(123)df <- tibble(ID = LETTERS[1:4],report_type = rep(c("I", "P"), 2),col_to_expand = map(1:4, ~ tibble(x = sample(letters, 10),y = sample(letters, 10),z = sample(letters, 10))))df |>unnest(col_to_expand)#> # A tibble: 40 × 5#> ID report_type x y z#> <chr> <chr> <chr> <chr> <chr>#> 1 A I o s q#> 2 A I s y k#> 3 A I n i g#> 4 A I c c u#> 5 A I j h l#> 6 A I r g o#> 7 A I k j j#> 8 A I e x m#> 9 A I x d x#> 10 A I y n i#> # … with 30 more rows
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论