小编Luk*_*uke的帖子

假设您有一个包含四列的数据框:

dat <- data.frame(A = rnorm(5), B = rnorm(5), C = rnorm(5), D = rnorm(5))

并且您希望在数据框中的每个列之间插入一个空列,以便输出为:

           A A1           B B1          C C1           D D1
1 1.15660588 NA  0.78350197 NA -0.2098506 NA  2.07495662 NA
2 0.60107853 NA  0.03517539 NA -0.4119263 NA -0.08155673 NA
3 0.99680981 NA -0.83796981 NA  1.2742644 NA  0.67469277 NA
4 0.09940946 NA -0.89804952 NA  0.3419173 NA -0.95347049 NA
5 0.28270734 NA -0.57175554 NA -0.4889045 NA -0.11473839 NA

你会怎么做？

我想要执行此操作的数据帧有数百列,所以很明显我不想输出每一列并像这样天真地添加它们:

dat$A1 <- NA
dat$B1 <- NA
dat$C1 <- NA …

假设您有一个如下数据框:

df <- data.frame("1" = rep(NA,5), "2" = NA, "3" = NA, "4" = NA, "5" = NA, "6" = NA, "7" = NA, "8" = NA, "9" = NA, "10" = NA)
colnames(df) <- c(0:9)
> df
   0  1  2  3  4  5  6  7  8  9
1 NA NA NA NA NA NA NA NA NA NA
2 NA NA NA NA NA NA NA NA NA NA
3 NA NA NA NA NA NA NA NA NA …