将R中的字符串数据处理为特定格式

Question

我有一大块文字：

test<-"ABC (0033 - test), CCPM (0431 - CCPM), FGC (0432 -YYY)"

我想操纵它们，使它成为：

 ABC (0033 - test),0033       
 CCPM (0431 - CCPM),0431
 FGC (0432 -YYY),0432

我怎么能这样做？

Answer 1

我们可以使用gsub

gsub("(\\d+)([^)]+\\))", "\\1\\2,\\1", test)
[1] "ABC (0033 - test),0033, CCPM (0431 - CCPM),0431, FGC (0432 -YYY),0432"

如果我们需要打印

cat(gsub("(\\d+)([^)]+\\)),*", "\\1\\2,\\1\n", test), sep="\n")
# ABC (0033 - test),0033
# CCPM (0431 - CCPM),0431
# FGC (0432 -YYY),0432

如果我们需要一个带有3个独立元素的向量

unname(sapply(strsplit(test, ", ")[[1]], function(x) 
    paste(x, regmatches(x, regexpr("\\d+", x)), sep=",")))
#[1] "ABC (0033 - test),0033"  "CCPM (0431 - CCPM),0431" "FGC (0432 -YYY),0432"