Question

data(mtcars)
mtcars <- rownames_to_column(mtcars,var = "car")
mtcars$id <- c(1:length(mtcars$car))
mtcars$make <- map_chr(mtcars$car,~strsplit(.x," ")[[1]][1])

mt2 <- mtcars %>% select(1:4,id,make) %>% nest(-make,.key = "l")
mt3 <- mtcars %>% select(5:10,id,make) %>% nest(-make,.key="m")
mt_make <- left_join(mt2,mt3)

mt2 <- mtcars %>% select(1:4,id,make) %>% nest(-id,.key = "l")
mt3 <- mtcars %>% select(5:10,id) %>% nest(-id,.key="m")
mt_id <- left_join(mt2,mt3)

如何过滤mt_make以仅保留 6柱面且 150 hp 的汽车，并将其更换为不带listcols的数据框？

如何过滤mt_id只保留 200 hp 的 Merc ，并且不使用listcols将数据删除？

Answer 1

首先，这些都不是很好的数据结构，因为当数据应该像普通的data.frame一样水平相关时，并行工作真的很烦人。不过，我认为这是你的代表人工制品，你的实际数据有更好的理由如此安排。如果没有，请修改您的结构以保证自己的理智。

所有这一切，你可以使这些结构有效：

billType

过滤tidyverse中的listcolumns

1 个答案: