spread启发而来的to_vector

初次完成,可能还需要改：
tidyr的spread，可以实现长变扁，但是必须一样长。当不一样长的时候就会报错。
col1和2是df中的两列，col1可以有重复值，是vec的子集。col2为唯一值
这个函数的作用是按照col1中与vec向量匹配的值来分组，

to_vector <- function(df,col1,col2,vec){
output <- list()
for (i in 1 :length(vec)){
  output[[i]] <- (filter(df,
                         col==vec[i])
                  )$col2
}
output
}