R提取字符

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

各位，我想要从第一个数据中提取出所有中括号里的字符，该怎么提取？数据量比较大，gsub，subset试过没有成功，求指教，谢谢！

1	[A][B][C]DEF
2	[A][B][C][D]EF
3	[A][B][C]DEF
4	[A][B][C]DEFWD
5	[A][B][C]DEF
6	[A][B]DEFGUKH
7	[A][B][C]DEFEE
8	[A][B][C]DEFFGWEG
9	[B][C]DEFERR
10	[A][B][C]DEF
11	[A][B][C]DEF

得到

1	ABC
2	ABCD
3	ABC
4	ABC
5	ABC
6	AB
7	ABC
8	ABC
9	BC
10	ABC
11	ABC

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Subset defer subs FERR ABCD

先建立函数：
extractABC=function(vectorL){
ExABC=function(L){
  require(stringr)
  vectorL2=str_extract(L,'(\\[[A-Z]\\])+')
  vectorL3=str_replace_all(vectorL2,'\\]|\\[','')
  names(vectorL3)=NULL
  return(vectorL3)
}
result=sapply(vectorL,ExABC)
names(result)=NULL
return(result)
}
再运行代码：
extractABC(x)##x是你的字母向量

自己试了一个新方法，采用str_extract结合到ddply中直接就可以得到索要结果

1. ddply（x,.(id),summarise,result=str_extract()）

复制代码