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