从没有特定模式的字符串中取出一部分

Question

我有一个专栏

cell.1 是“UNIV ZURICH;NOTREPORTED;NOTREPORTED;NOTREPORTED” cell.2 是“UNIBG”

 s = c("UNIV ZURICH;NOTREPORTED;NOTREPORTED;NOTREPORTED", "UNIBG")
 s1 = unlist(strsplit(s, split=';', fixed=TRUE))[1]
 s1

我想得到

cell.1 UNIV ZURICH
cell.2 UNIBG

提前谢谢了，

Answer 1

您的strplit()方法是一个好主意，它提供：

strsplit(s, split=';', fixed=TRUE)                                
[[1]]
[1] "UNIV ZURICH" "NOTREPORTED" "NOTREPORTED" "NOTREPORTED"

[[2]]
[1] "UNIBG"

为了得到你要找的东西，你需要提取你获得的列表的每个元素的第一个元素，然后合并它们，这是一种方法（顺便说一句，这个例子现在需要fixed=TRUE ） .

s1 <- unlist(lapply(strsplit(s, split=';', fixed=TRUE), `[`, 1))

以前，您将所有元素合并到一个列表中：

unlist(strsplit(s, split=';', fixed=TRUE))                        
[1] "UNIV ZURICH" "NOTREPORTED" "NOTREPORTED" "NOTREPORTED"
[5] "UNIBG"      

然后你取了这个向量的第一个元素。

Answer 2

s = c("UNIV ZURICH;NOTREPORTED;NOTREPORTED;NOTREPORTED", "UNIBG")
s1 = strsplit(s, split=';')
result = data.frame(mycol = unlist(lapply(s1, function(x){x[1]})))

> result
        mycol
1 UNIV ZURICH
2       UNIBG