初次完成,可能还需要改:
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
}
网友评论