在字符串中第一个'反斜杠'后删除所有内容

Question

我有一个类似下面的矢量

vec <- c("abc\edw\www", "nmn\ggg", "rer\qqq\fdf"......)

我想在遇到第一个斜杠后立即删除所有内容，如下面的

newvec <- c("abc","nmn","rer")

谢谢。

我原来的矢量如下（只有头部）

[1] "peoria ave\nste \npeoria"                      [2]   "wood dr\nphoenix"                                  
"central ave\nphoenix"                            
[4] "southern ave\nphoenix"                         [5]   "happy valley rd\nste   
\nglendaleaz "               "the americana at brand\n americana way\nglendale"

这里的问题是我的原始csv文件不包含反斜杠，但是当我读到它时会出现反斜杠。原始csv文件如下

[1] "peoria ave               [2] "wood dr
     nste                          nphoenix"       
     npeoria"

正如您所看到的，它们实际上是由“ENTER”分隔的，但当我使用read.csv（）在R中读取它们时，它们被反斜杠替换。

Answer 1

另一种解决方案：

 sub("\\\\.*", "", x)

Answer 2

vec <- c("abc\\edw\\www", "nmn\\ggg", "rer\\qqq\\fdf")
sub("([^\\\\])\\\\.*","\\1", vec)
[1] "abc" "nmn" "rer"

Answer 3

strssplit(vec, "\\\\")应该完成这项工作。

选择第一个元素[[1]][1]第二个[[1]][2]