R中的正則表達式：如何剪切數字序列？

Question

有一個小文本列表。 結尾部分的某些文本可能包含由空格分隔的數字序列。 在這種情況下，該序列的第一個數字必須保留在文本中，以截斷其余的數字序列。 怎么做？ 例：

1. “某些單詞1”->“某些單詞1”
2. “某些單詞”->“某些單詞”
3. “大約1個單詞2”->“大約1個單詞2”
4. “大約1個單詞3 33 444”->“大約1個單詞3”
5. “某些單詞544 11”->“某些單詞544”

Answer 1

將gsub()與以下模式一起使用：

(\\d+)(?: \\d+)*$

然后替換為第一個捕獲組\\\\1 。

x1 <- "Some words"
x2 <- "Some words 544 11"
x3 <- "Some 1 words 3 33 444"
result1 <- gsub("(\\d+)(?: \\d+)*$", "\\1", x1)
result2 <- gsub("(\\d+)(?: \\d+)*$", "\\1", x2)
result3 <- gsub("(\\d+)(?: \\d+)*$", "\\1", x3)

print(result1)
print(result2)
print(result3)

演示在這里：

右旋酯