[轮子]把两列合成一列并作为向量输出

uni <- function(x){
(unite(x,"x1",c(colnames(x)[1],colnames(x)[2]),sep = " "))[,1]
}
x是一个两列的数据框