这是数据
x <- c("a01|a44;b013|b021|c35;c014|c035|c078")
y <- c("a03|a41;b033|b021|72;c014|c031|c078")
z <- c("a01|a44;c014|c035|c078;b013|b021|d35|c33")
v <- c(x, y, z)
我想提取与以"|"
开头的字符串分隔的第三个元素"b0"
。预期的结果是c35,72,d35
。
我们能试试
sapply(strsplit(v, ';'), function(x)
sapply(strsplit(x[grep('^b0', x)], '[|]'), `[`,3))
#[1] "c35" "72" "d35"
或使用 sub
sub('.*;b0\\d{2}\\|[^|]+\\|([^;|]+).*', '\\1', v)
#[1] "c35" "72" "d35"
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句