如何修改R语言代码提取目标列中的指定无点数字串？

你的问题出在原代码的处理逻辑上：直接对整个字符串按+分割后拼接，会导致后续的gsub把第一个.之后的所有内容一次性删掉，自然只留下第一个编号。我们需要调整处理顺序，先拆分每个独立条目再逐个清理，或者用更精准的正则表达式一步到位。

方法一：分步处理（更直观） #

tmp <- "00640+6.2.1.1; 00680+6.2.1.1; 00720+6.2.1.1;"

# 1. 按"; "拆分出每个独立的"编号+后缀"条目，同时过滤空元素（避免最后一个分号产生的空值）
items <- strsplit(tmp, split = "; ")[[1]]
items <- items[nzchar(items)]

# 2. 对每个条目，删除"+"及后面的所有内容
clean_items <- sapply(items, function(x) sub("\\+.*", "", x), USE.NAMES = FALSE)

# 3. 用"; "拼接成目标格式
result <- paste(clean_items, collapse = "; ")

print(result)
# 输出：[1] "00640; 00680; 00720"

方法二：正则一步到位（更简洁） #

如果熟悉正则表达式，可以直接匹配所有+前面的编号：

tmp <- "00640+6.2.1.1; 00680+6.2.1.1; 00720+6.2.1.1;"

# 用正向预查匹配所有紧跟"+"的数字序列，再拼接
result <- paste(regmatches(tmp, gregexpr("\\d+(?=\\+)", tmp, perl = TRUE))[[1]], collapse = "; ")

print(result)
# 输出：[1] "00640; 00680; 00720"

内容的提问来源于stack exchange，提问作者user3224522