R语言中数据框某一列进行分割，变成两列

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

大家好，我想将数据框的某一列变成两列，比如数据：

1.       type    id pedigree    trait1     trait2    trait3
   
2. 1 training L0001  f1_X_m1 -1.746103 -0.7855251 -0.331637
   
3. 2 training L0002  f2_X_m1 -1.679248 -1.5694899 -2.572614
   
4. 3 training L0003  f3_X_m1 -2.748920 -0.6086439 -1.108812
   
5. 4 training L0004  f4_X_m1 -2.414647 -0.6720451 -1.315051
   
6. 5 training L0005  f5_X_m1 -1.879812 -0.7409128 -1.879181
   
7. 6 training L0006  f6_X_m1 -2.347793 -0.4017722 -1.442920

复制代码

数据框中test的pedigree一列，我想将pedigree用切割符“_X_”，变成f和m两列

1.       type    id f m trait1     trait2    trait3
   
2. 1 training L0001  f1 m1 -1.746103 -0.7855251 -0.331637
   
3. 2 training L0002  f2 m1 -1.679248 -1.5694899 -2.572614
   
4. 3 training L0003  f3 m1 -2.748920 -0.6086439 -1.108812
   
5. 4 training L0004  f4 m1 -2.414647 -0.6720451 -1.315051
   
6. 5 training L0005  f5 m1 -1.879812 -0.7409128 -1.879181
   
7. 6 training L0006  f6 m1 -2.347793 -0.4017722 -1.442920

复制代码

我的繁琐复杂的代码：

1. > test$f <- NULL
   
2. > test$m <- NULL
   
3. > re <- strsplit(as.character(test$pedigree),"_X_")
   
4. > for(i in 1:dim(test)[2]) {test$f[i] <- re[[i]][1];test$m[i] <- re[[i]][2]}
   
5. > test
   
6.       type    id pedigree    trait1     trait2    trait3  f  m
   
7. 1 training L0001  f1_X_m1 -1.746103 -0.7855251 -0.331637 f1 m1
   
8. 2 training L0002  f2_X_m1 -1.679248 -1.5694899 -2.572614 f2 m1
   
9. 3 training L0003  f3_X_m1 -2.748920 -0.6086439 -1.108812 f3 m1
   
10. 4 training L0004  f4_X_m1 -2.414647 -0.6720451 -1.315051 f4 m1
    
11. 5 training L0005  f5_X_m1 -1.879812 -0.7409128 -1.879181 f5 m1
    
12. 6 training L0006  f6_X_m1 -2.347793 -0.4017722 -1.442920 f6 m1

复制代码

我的处理思路，将test$pedigree提取出来，变成字符串，然后用strsplit分割，然后复制数据框test新的列：f和m。
代码写的比较复杂，水平有限！！

我想问，有没有简单的处理方法？

十分感谢。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏2 回帖

关键词：R语言 数据框 Training Train Trait 数据框 字符串

1. library(tidyverse)
   
2. separate(data = test, col = pedigree, into = c("m", "trait1"), sep = "_X_")

复制代码

cheetahfly 发表于 2018-3-12 09:32

就是这种效果，十分感谢。

cheetahfly 发表于 2018-3-12 09:32

这个方法好！

cheetahfly 发表于 2018-3-12 09:32

请问如果是”||165万|13525元/㎡|“这种形式的，如何把他分割为“165万，13525元/㎡”这样两列

感谢感谢！！

王樰沫 发表于 2018-8-6 00:17
请问如果是”||165万|13525元/㎡|“这种形式的，如何把他分割为“165万，13525元/㎡”这样两列

把竖线替换成“,”不就OK了么

请问如果每行的列数不一样多，怎么解决呢？

huanglinlinya 发表于 2021-9-1 16:04
请问如果每行的列数不一样多，怎么解决呢？

您好，我现在也遇到了这个问题，请问您解决了吗？

cheetahfly 发表于 2018-3-12 09:32

对不起，想按点赞，按错了，撤不了