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. 本站为非盈利性的个人网站,所有内容不会用来进行牟利,也不会利用任何形式的广告来间接获益,纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。