R语言中在指定位置处插入列、或者行
1、任意位置插入列
> a <- letters[1:5] > b <- LETTERS[1:5] > c <- sample(1:10,5) > d <- sample(letters[1:10],5) > e <- data.frame(a, b, c, d) > e ## 测试data.frame a b c d 1 a A 5 f 2 b B 6 c 3 c C 1 j 4 d D 3 d 5 e E 4 e > xc <- 11:15 > cbind(xc, e) ## 在第一列前插入列 xc a b c d 1 11 a A 5 f 2 12 b B 6 c 3 13 c C 1 j 4 14 d D 3 d 5 15 e E 4 e > cbind(e, xc) ## 在最后一列后插入列 a b c d xc 1 a A 5 f 11 2 b B 6 c 12 3 c C 1 j 13 4 d D 3 d 14 5 e E 4 e 15 > cbind(e[,1:2], xc, e[,3:ncol(e)]) ## 在2、3列之间插入列 a b xc c d 1 a A 11 5 f 2 b B 12 6 c 3 c C 13 1 j 4 d D 14 3 d 5 e E 15 4 e
2、任意位置插入行
> a <- letters[1:5] > b <- LETTERS[1:5] > c <- sample(1:10,5) > d <- sample(letters[1:10],5) > e <- data.frame(a, b, c, d) > e a b c d 1 a A 1 j 2 b B 7 b 3 c C 2 i 4 d D 10 f 5 e E 6 g > xr <- 11:14 > xr [1] 11 12 13 14 > rbind(xr, e) ## 第一行前插入行 a b c d 1 11 12 13 14 2 a A 1 j 3 b B 7 b 4 c C 2 i 5 d D 10 f 6 e E 6 g > rbind(e, xr) ## 最后一列插入行 a b c d 1 a A 1 j 2 b B 7 b 3 c C 2 i 4 d D 10 f 5 e E 6 g 6 11 12 13 14 > rbind(e[1:3,], xr, e[4:nrow(e),]) ## 在3、4行之间插入行 a b c d 1 a A 1 j 2 b B 7 b 3 c C 2 i 4 11 12 13 14 41 d D 10 f 5 e E 6 g