Question

library(tidyverse)

为什么这会产生列表列'am'：

mtcars %>%
group_by(cyl) %>%
mutate(am=list(mtcars[,'am']))

但不是：

mtcars %>%
group_by(cyl) %>%
nest() %>%
mutate(am=list(mtcars[,'am']))

错误：与STRSXP不兼容

我意识到这是一个人为的例子，但它与我正在做的事情有关。变异不是在其环境之外的范围吗？

Answer 1

mtcars %>% group_by(cyl) %>% nest()

## # A tibble: 3 × 2
##     cyl               data
##   <dbl>             <list>
## 1     6  <tibble [7 × 10]>
## 2     4 <tibble [11 × 10]>
## 3     8 <tibble [14 × 10]>

有三行，因此您需要的任何列都必须包含三个元素。

如果您希望每行都有完整的am列，则可以逐行变异，这将分别为每行评估mutate调用，

mtcars %>% group_by(cyl) %>% nest() %>% rowwise() %>% mutate(am = list(mtcars$am))

## Source: local data frame [3 x 3]
## Groups: <by row>
## 
## # A tibble: 3 × 3
##     cyl               data         am
##   <dbl>             <list>     <list>
## 1     6  <tibble [7 × 10]> <dbl [32]>
## 2     4 <tibble [11 × 10]> <dbl [32]>
## 3     8 <tibble [14 × 10]> <dbl [32]>

或没有rowwise，只需为每一行重复所需的列表：

mtcars %>% group_by(cyl) %>% nest() %>% mutate(am = rep(list(mtcars$am), n()))

## # A tibble: 3 × 3
##     cyl               data         am
##   <dbl>             <list>     <list>
## 1     6  <tibble [7 × 10]> <dbl [32]>
## 2     4 <tibble [11 × 10]> <dbl [32]>
## 3     8 <tibble [14 × 10]> <dbl [32]>

如何在tidyverse中将列嵌入自身

1 个答案: