[英]How to extract a vector in a tibble column to multiple columns in the same tibble?
下面的代碼在最后一列中生成一個長度為6的向量,我想從該列中提取出6個新列。
require(tidyverse)
require(purrrlyr)
# this function will return a vector of the same length (6) for each group
fun=function(X,Y){
mycut<-cut(X,breaks=seq(50,350,by=50),right=FALSE)
v<-tapply(Y,mycut,sum)
return(v)
}
# use the previous function to count gears per class of hp
mtcars %>%
group_by(cyl) %>%
by_slice(~fun(.x$hp,.x$gear)) %>%
rename(cut=.out)
在這里,我在列切割中有一個向量
# tibble [3 x 2]
cyl cut
<fctr> <list>
1 4 <dbl [6]>
2 6 <dbl [6]>
3 8 <dbl [6]>
我需要從此向量傳遞到類似表的什么命令?
cyl [50,100) [100,150) [150,200) [200,250) [250,300) [300,350)
4 36 9 NA NA NA NA
...
unnest
不起作用。 我必須使用by_row
還是有更直接的答案?
我們需要獲取“ cut”變量的names
作為新列,然后在對list
元素進行unnest
之后進行spread
以重塑為“寬”格式
mtcars %>%
group_by(cyl) %>%
by_slice(~fun(.x$hp,.x$gear)) %>%
rename(cut=.out) %>%
mutate(Names = map(cut, ~factor(names(.x), levels = names(.x)))) %>%
unnest %>%
spread(Names, cut)
# A tibble: 3 x 7
# cyl `[50,100)` `[100,150)` `[150,200)` `[200,250)` `[250,300)` `[300,350)`
#* <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
#1 4 36 9 NA NA NA NA
#2 6 NA 22 5 NA NA NA
#3 8 NA NA 21 15 5 5
我建議另一種方法。 您可以使用以下代碼來代替使用不推薦使用的by_slice()
函數(該函數現在位於purrrlyr包中):
mtcars %>%
split(.$cyl) %>%
map(~fun(.x$hp,.x$gear)) %>%
do.call(rbind, .)
給出以下輸出
[50,100) [100,150) [150,200) [200,250) [250,300) [300,350)
4 36 9 NA NA NA NA
6 NA 22 5 NA NA NA
8 NA NA 21 15 5 5
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.