提取字符串中最长的单词

Question

我希望能够找到并提取字符串中最长的单词，如果可能的话，使用tidyverse包。

library(tidyverse)

tbl <- tibble(a=c("ab cde", "bcde f", "cde fg"), b=c("cde", "bcde", "cde"))
tbl
# A tibble: 3 x 1
   a
<chr>
1 ab cde
2 bcde f
3 cde fg

我需要的结果是：

# A tibble: 3 x 2
   a     b
  <chr> <chr>
1 ab cde   cde
2 bcde f  bcde
3 cde fg   cde

我找到的与此问题最接近的帖子是这个：在字符串中找到最长的单词。有没有更简单的方法呢？

- moabit21

Answer 1

使用基础R的解决方案：

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

解释：

• 将每行文本拆分为单词（strsplit）
• 确定单词长度（nchar）
• 选择每行最长的单词（which.max）

- pogibas

Answer 2

以下是可能的tidyverse版本@PoGibas的答案。

library(tidyverse)
tbl <- tibble(a=c("ab cde", "bcde f", "cde fg"))

tbl %>% 
  mutate(b = map_chr(strsplit(a, " "), ~ .[which.max(nchar(.))]))

#> # A tibble: 3 x 2
#>        a     b
#>    <chr> <chr>
#> 1 ab cde   cde
#> 2 bcde f  bcde
#> 3 cde fg   cde

- markdly