ICode9

精准搜索请尝试: 精确搜索
首页 > 其他分享> 文章详细

R语言中在指定位置处插入列、或者行

2022-05-01 01:03:27  阅读:434  来源: 互联网

标签:11 13 12 语言 ## xc 指定 插入 14


 

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

 

标签:11,13,12,语言,##,xc,指定,插入,14
来源: https://www.cnblogs.com/liujiaxin2018/p/16211983.html

本站声明: 1. iCode9 技术分享网(下文简称本站)提供的所有内容,仅供技术学习、探讨和分享;
2. 关于本站的所有留言、评论、转载及引用,纯属内容发起人的个人观点,与本站观点和立场无关;
3. 关于本站的所有言论和文字,纯属内容发起人的个人观点,与本站观点和立场无关;
4. 本站文章均是网友提供,不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属;如您发现该文章侵犯了您的权益,可联系我们第一时间进行删除;
5. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

专注分享技术,共同学习,共同进步。侵权联系[81616952@qq.com]

Copyright (C)ICode9.com, All Rights Reserved.

ICode9版权所有