从gregexpr合并成一个字符串输出的更简单的方法？

# 原始字符串
text <- "Hello, World! This is a test."

# 使用gregexpr找到所有匹配的位置
matches <- gregexpr("[a-zA-Z]+", text)

# 使用substr提取子字符串
substrings <- sapply(matches, function(match) substr(text, match, match + attr(match, "match.length") - 1))

# 使用paste函数将子字符串连接起来
result <- paste(substrings, collapse = " ")

# 输出结果
print(result)