001、
dat <- data.frame(matrix(, nrow = 5, ncol = 0)) ## 创建空数据框, 指定行数为5 dat a = 1:5 cbind(dat, a) ## 可以实现直接合并新的列