如何在数据帧中使用R中的str_extract_all而不返回列表？

library(stringr)

# 创建一个包含多个子串的字符串
text <- "Hello, my name is John. I live in New York."

# 使用str_extract_all提取所有以大写字母开头的单词
result <- str_extract_all(text, "\\b[A-Z]\\w+\\b")

# 将结果转换为字符向量
result <- unlist(result)

# 打印结果
print(result)

[1] "Hello" "John"  "New"   "York"

library(stringr)

# 创建一个包含多个子串的数据帧
df <- data.frame(id = 1:3, text = c("Hello, my name is John.", "I live in New York.", "Nice to meet you."))

# 使用apply和str_extract_all提取每个元素中的所有以大写字母开头的单词
df$result <- apply(df, 1, function(x) unlist(str_extract_all(x, "\\b[A-Z]\\w+\\b")))

# 打印结果
print(df)

  id                    text result
1  1 Hello, my name is John. Hello, John
2  2    I live in New York. New, York
3  3      Nice to meet you. Nice