数据框某列分成2列

dxystata

3902

收藏 2016-11-18

悬赏 20 个论坛币未解决

复制代码

把aaa$x1这一列分成两列
V1                               V2
Platform: GPL11154                      6 Samples
Platform: GPL10558                      28 Samples
Platforms: GPL18149 GPL17077             24 Samples
Platforms: GPL13112 GPL17021 GPL16791       31 Samples
Dataset: GDS4794 Platforms: GPL96 GPL97 GPL570 70 Samples
Dataset: GDS4794 Platforms: GPL96 GPL97 GPL570 110 Samples

把aaa$x2这一列分成两列
V3                               V4
Series Accession: GSE8894                ID: 200008894
Series Accession: GSE67471             ID: 200067471
谢谢！

扫码加我拉你入群

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

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

全部回复

ly_0

2016-11-18 22:18:16

复制代码

扫码加我拉你入群

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

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

johnmy

2016-11-18 22:19:28

我给你分离了第一列，第二列同理，把"GPL[:digit:]+" 换为 "GSE[:digit:]+"
然后你再组合吧，我没有找到在固定位置分割字符串的函数，有的话更方便。

复制代码

扫码加我拉你入群

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

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

johnmy

2016-11-18 22:29:55

ly_0 发表于 2016-11-18 22:18

我搞复杂了，查找倒数第二个空格就可以。

扫码加我拉你入群

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

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

ly_0

2016-11-18 22:42:00

johnmy 发表于 2016-11-18 22:29
我搞复杂了，查找倒数第二个空格就可以。

嗯，我不知道怎样去找具体哪个空格，就只好把后边的都匹配出来了。。。

扫码加我拉你入群

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

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

johnmy

2016-11-18 22:55:33

.+就是匹配后面的内容的意思吗

扫码加我拉你入群

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

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

点击查看更多内容…

ly_0

2016-11-18 23:12:52

johnmy 发表于 2016-11-18 22:55
.+就是匹配后面的内容的意思吗

嗯，"."表示任意字符，"+"表示1个或多个，连在一起就是一个或多个字符

扫码加我拉你入群

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

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

johnmy

2016-11-19 00:43:29

ly_0 发表于 2016-11-18 23:12
嗯，"."表示任意字符，"+"表示1个或多个，连在一起就是一个或多个字符

了解了，谢谢。
正则表达式真是太灵活了。

扫码加我拉你入群

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

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

jgchen1966

2016-11-19 01:44:30

用 tidyr::separate 函数，一行程序，只是变量 sep= 设置要费点力，慢慢调试一下。。

扫码加我拉你入群

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

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

johnmy

2016-11-19 02:50:09

jgchen1966 发表于 2016-11-19 01:44
用 tidyr::separate 函数，一行程序，只是变量 sep= 设置要费点力，慢慢调试一下。。

确实可以这样，但是分隔符是空格，而前面后面都有空格，不好定位。

扫码加我拉你入群

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

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

zerofung

2016-11-19 11:33:30

复制代码

这个10到10000是我自己设置的，根据你自己的要求看看倒数第二个空格之前最多有多少个字母，多于那个就好。
另外paste把NA也当成字符串了，如果你需要保留NA就后面再替换，很方便的。

扫码加我拉你入群

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

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

dxystata

2016-11-19 19:35:26

ly_0 发表于 2016-11-18 22:18

"\\s\\d+\\s.+" 能否详细解释一下，谢谢！
x2分隔的正则表达式如何实现？

扫码加我拉你入群

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

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

jgchen1966

2016-11-19 22:34:50

正则表达式，是很繁琐的，不如多编几行程序：
library(tidyrverse)
library(stringr)
library(magrittr)
################################

xda<-data.frame(x1=x1) ###将x1 放入data.frame 中，x2 同样做法

x<-str_count(xda$x1," ")  ###读取每个观察的空格数，这也确定了其用空格可分的字符串数，如下行：
x<-max(x)+1    ###每个观察的字符串数

xvars<-paste("X",1:x,sep="")  ###建个下面暂用的变量名

  ##以空格为界，将字符分开，没有的在左边用NA 填补
xda%<>%separate(col=x1,into=xvars,sep=" ",fill="left",remove=TRUE)

  rpnaFun<-function(x) ifelse(is.na(x) , "" , x) ###将NA 转为空格的函数

xda%<>%mutate_each(funs(rpnaFun))  ###将xda 中的每个NA 全转为空格

xda%<>%mutate(V1=paste(X1,X2,X3,X4,X5,X6,sep=" "),
                                 V2=paste(X7,X8,sep=" "))%>%  ##求两个想要的变量值，这显得不太自主？？
   dplyr::select(V1,V2)%>%             ###只保留相要的二个变量
   mutate(V1=str_trim(V1,side="left"),V2=str_trim(V2,side="left") ###将左边可能存在空格删除

#############################

扫码加我拉你入群

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

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

ly_0

2016-11-20 09:57:13

dxystata 发表于 2016-11-19 19:35
"\\s\\d+\\s.+" 能否详细解释一下，谢谢！
x2分隔的正则表达式如何实现？

"\\s"表示空格，"\\d"表示数字，"+"表示其前一个字符有1个或多个，"."表示任意字符，所以这串字符表示的就是"1个空格+1个或多个数字+一个空格+1个或多个任意字符"，就能匹配出后面第二列的内容。对于x2应该可以这样："ID:\\d+"。正则表达式很灵活，但是内容长了之后看起来会很痛苦。。。

扫码加我拉你入群

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

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

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

扫码加我 拉你入群

分享

扫码加好友，拉您进群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群

扫码加我拉你入群