使用基础 R 的解决方案:

Solution using base R:

# Using OPs provided data
tbl$b <- sapply(strsplit(tbl$a, " "), function(x) x[which.max(nchar(x))])

说明:

• 将每一行拆分成单词 (strsplit)
• 确定字长(nchar)
• 选择一行中最长的单词 (which.max)