strsplit中的问题和错误

时间:2015-11-18 17:22:26

标签: r strsplit

我使用以下命令:

 sequence <-  '<{EADFE20F543836047330DEFFB893127AF536560121698ADE2FCE6985E07A40D8 SELECT;DD2E595CF23E65E128560B655E0C6848 SELECT}>'
v1 <- trimws(gsub('[[:punct:]]+', '', sapply(strsplit(sequence, '(?<=\\})(?=\\{)|[[,;]', perl=TRUE), tail, 1)))

我想得到整个字符串,但是我只得到字符串的一部分:

  

V1   [1]“F73431225ED64969DC4BEBD06092FD6F SELECT”

所需的输出是&lt; {}&gt;

之间的字符串内容

为了获取所有字符串,我需要做些什么来改变它?

此外, 如果我使用而不是数据帧的字符串序列列,我会收到以下错误:

Error in strsplit(RES1$sequence, "(?<=\\})(?=\\{)|[[\\,\\;]", perl = TRUE) : 
  non-character argument

这是RES1 $序列的头部:

> head (RES1$sequence)
[1] <{EADFE20F543836047330DEFFB893127AF536560121698ADE2FCE6985E07A40D8 SELECT;DD2E595CF23E65E128560B655E0C6848 SELECT}>        
[2] <{F73431225ED64969DC4BEBD06092FD6F SELECT}>                                                                                
[3] <{88FFF14FDD46ED862DAEB36F8D0F6215 SELECT}>                                                                                
[4] <{1C9AAE933F916BA94B5D2B5FA320E05D85C780CD1A9922E26BC1FB7C422F42B2 SELECT}>                                                
[5] <{3FCC23C2562BE9926049EAF2D88CD3D4 SELECT;314CD91DCA8849C64DCEACBA2E3B65B7 SELECT;09E9146A444AE1C47B8E4139D6D69A48 SELECT}>
[6] <{184E7C8929FC9CEA72EF21D99CDC40D9 SELECT}>                                                                                
20 Levels: <{\\N}> ... <{F73431225ED64969DC4BEBD06092FD6F SELECT}>
> class (RES1)
[1] "data.frame"

1 个答案:

答案 0 :(得分:1)

&#34;所需的输出是&lt; {}&gt;&#34;之间字符串的内容,为什么不简单:

gsub('<\\{(.*)\\}>', '\\1', sequence)
#[1] "EADFE20F543836047330DEFFB893127AF536560121698ADE2FCE6985E07A40D8 SELECT;DD2E595CF23E65E128560B655E0C6848 SELECT"