r - ティブル列のベクトルを同じティブル内の複数の列に抽出する方法は?

Question

次のコードは、最後の列に長さ 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必要がありますか、それとももっと簡単な答えがありますか?