如何解决如何在嵌套列表列中的 tibble 字符列和行之间粘贴字符串
我有一个带有一个字符列和一个嵌套数据框的列表列的小标题。我想折叠列表列中的数据框(使用 dplyr::bind_rows()
)并为每一行附加字符列中的相应值。
示例
library(tibble)
my_tibble <-
tibble(category = c("color","shape"),items = list(tibble(item = c("red","blue"),value = c(1,2)),tibble(item = c("square","triangle"),2))
))
> my_tibble
## # A tibble: 2 x 2
## category items
## <chr> <list>
## 1 color <tibble [2 x 2]>
## 2 shape <tibble [2 x 2]>
我知道如何折叠整个 items
列:
library(dplyr)
my_tibble %>%
pull(items) %>%
bind_rows()
## # A tibble: 4 x 2
## item value
## <chr> <dbl>
## 1 red 1
## 2 blue 2
## 3 square 1
## 4 triangle 2
但我想要实现的是粘贴 category
的 my_tibble
列中的值以获得:
期望输出
## # A tibble: 4 x 2
## item value
## <chr> <dbl>
## 1 color_red 1
## 2 color_blue 2
## 3 shape_square 1
## 4 shape_triangle 2
我该怎么做?
更新
我认为 tidyr::unnest_longer()
让我更接近目标:
library(tidyr)
my_tibble %>%
unnest_longer(items)
# A tibble: 4 x 2
category items$item $value
<chr> <chr> <dbl>
1 color red 1
2 color blue 2
3 shape square 1
4 shape triangle 2
但不确定如何进步。尝试附加 tidyr::unite()
失败:
my_tibble %>%
unnest_longer(items) %>%
unite("category",`items$item`)
错误:不能对不存在的列进行子集化。
x 列 items$item
不存在。
解决方法
unnest()
返回一个比 unnest_longer()
更容易使用的输出:
library(tidyr)
my_tibble %>%
unnest(items) %>%
unite(col = item,category,item)
## # A tibble: 4 x 2
## item value
## <chr> <dbl>
## 1 color_red 1
## 2 color_blue 2
## 3 shape_square 1
## 4 shape_triangle 2
,
这不是更好的方法,但它有效。试试这个:
library(dlpyr)
my_tibble %>%
group_by(category) %>%
group_modify(~data.frame(.$items)) %>%
ungroup() %>%
mutate(item=paste(category,item,sep="_")) %>%
select(-category)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。