Question

我使用以下命令：

 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"

Answer 1

＆＃34;所需的输出是＆lt; {}＆gt;＆＃34;之间字符串的内容，为什么不简单：

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

strsplit中的问题和错误

1 个答案: