如何从r中与多个逗号分离的向量中提取特定文本

Question

这是我的第一篇文章，我对R World是相对较新的文章，因此我希望我尊重地将问题发布到网站上。我搜索这个，但我无法提出一些有效的效率。

我有一个具有这样一个结构的列：

df$col1 <- c("book, pencil,eraser,pen", "book,pen", "music,art,sport", "apple, banana, kiwi, watermelon", "Earth, Mars, Jupiter").

我想做的是我想创建一个将根据col1的某些元素构建的新列。

如果第一个单元格具有2个逗号，那么我想在第一个和第二个逗号之间提取元素，然后将其写入新列中的第一个单元格。如果下一个单元格有3个逗号，那么我想在第二和第三逗号之间提取元素，然后将其写入新列中的第二个单元格，依此类推。

从COL1的示例可以看出，我没有按逗号数量的顺序进行细胞，因此有时在以下细胞中可能会再次发生三凸位分隔的细胞结构。我也需要考虑这一点。

在这方面，你能帮我吗？

提前感谢您的帮助！

Answer 1

那以下呢？

library(tidyverse)

df %>% 
 mutate(col2 = str_split(col1, "\\s*,\\s*") %>%
   map_chr(~ if (length(.x) %in% 1:2) {.x[length(.x)]} 
      else {.x[length(.x) - 1]}))

#>                              col1   col2
#> 1         book, pencil,eraser,pen eraser
#> 2                        book,pen    pen
#> 3                 music,art,sport    art
#> 4 apple, banana, kiwi, watermelon   kiwi
#> 5            Earth, Mars, Jupiter   Mars

Answer 2

这是一种直接的正则解决方案，将前词的前词提取到一个新列中：

df %>%
  mutate(col2 = str_extract(col1, "\\w+(?=,[^,]+$)"))
                             col1   col2
1         book, pencil,eraser,pen eraser
2                        book,pen   book
3                 music,art,sport    art
4 apple, banana, kiwi, watermelon   kiwi
5            Earth, Mars, Jupiter   Mars 

数据：

df <- data.frame(col1 =c("book,pencil,eraser,pen", "book,pen", "music,art,sport"))

Answer 3

您可以使用strsplit。我这个情况n是3。

df$col1 <- c("book, pencil,eraser,pen", "book,pen", "music,art,sport")
strsplit(df$col1, ',')[[1]][3]

[1] "eraser"

编辑
如果我正确理解您的问题，您可以做这样的事情：

 df <- data.frame(col1 =c("book,pencil,eraser,pen", "book,pen", "music,art,sport"), stringsAsFactors = F)
 df$col2 <- lapply(df$col1, FUN = function(x) {strsplit(x, ",")[[1]][stringr::str_count(x, ",")]})
 df
                    col1   col2
1 book,pencil,eraser,pen eraser
2               book,pen   book
3        music,art,sport    art