Question

我有一个由多行组成的数据帧，我想根据R中的向量元素（基本上以向量作为'模式'运行strsplit）将每一行拆分为两个组件。

数据框（只有一列）如下所示：

     [,1]                
[1,] "apple please fuji" 
[2,] "pear help name"    
[3,] "banana me mango"

而我的模式向量可能如下所示：v <- c("please", "help", "me")。

如果可能，我希望我的结束输出为：

  df$name             df$part1  df$split  df$part2   
 "apple please fuji" "apple"    "please"  "fuji" 
 "pear help name"    "pear"     "help"    "name" 
 "banana me mango"   "banana"   "me"      "mango"

对于能够基于矢量隔离组件的中间步骤，我将不胜感激，但如果有更简单的方法将其放入数据帧，那将是非常棒的！非常感谢你！

Answer 1

以下是基础R中的两种方法。

从字符向量开始：

text <- c("apple please fuji", "pear help name", "banana me mango")

此外，所需的变量名称（为方便起见）

varNames <- c("name", "part1", "split", "part2")

使用regexec和regmatches

作为替代方案，您还可以使用regmatches / regexec组合的正则表达式来构建此数据集。

首先，使用paste从v构建正则表达式。

myRegex <- paste0("^(.*) +(", paste(v, collapse="|"), ") +(.*)$")
myRegex
[1] "^(.*)(please|help|me)(.*)$"

setNames(do.call(rbind.data.frame, regmatches(text, regexec(myRegex, text))), varNames)

返回与上面相同的

               name  part1  split part2
1 apple please fuji  apple please  fuji
2    pear help name   pear   help  name
3   banana me mango banana     me mango

使用strsplit和do.call

首先，用v

分割每个元素

tmp <- do.call(strsplit, list(text, split=v))
tmp
[[1]]
[1] "apple " " fuji" 

[[2]]
[1] "pear " " name"

[[3]]
[1] "banana " " mango"

现在，rbind.data.frame这些会删除第二列，并返回data.frame cbind split和name变量，然后使用setNames添加名称。

setNames(cbind(text, do.call(rbind.data.frame, tmp), v)[c(1, 2, 4, 2)], varNames)

返回

               name   part1  split   part2
1 apple please fuji  apple  please  apple 
2    pear help name   pear    help   pear 
3   banana me mango banana      me banana

Answer 2

此解决方案假设v中的元素数等于数据框中的行数。您可以使用separate包中的tidyr来创建part1和part2。

library(tidyverse)
df <- tibble(name = c("apple please fuji", "pear help name", "banana me mango"))
v <- c("please", "help", "me")

df %>% 
  separate(name, c("part1", "part2"), v, remove = FALSE) %>%
  add_column(split = v, .before = "part2")
#> # A tibble: 3 x 4
#>                name   part1  split  part2
#>               <chr>   <chr>  <chr>  <chr>
#> 1 apple please fuji  apple  please   fuji
#> 2    pear help name   pear    help   name
#> 3   banana me mango banana      me  mango

如果您想尝试使用v中的任何元素拆分每一行，那么您可以先尝试将v粘贴到单个模式中，然后再分隔。我觉得这样的事情应该有效。

library(tidyverse)
library(stringr)
p <- paste0("\\b(?:", paste(v, collapse = "|"), ")\\b")
df %>% 
  separate(name, c("part1", "part2"), p, remove = FALSE) %>%
  mutate(split = str_extract(name, p)) %>%
  select(name, part1, split, part2)
#> # A tibble: 3 x 4
#>                name   part1  split  part2
#>               <chr>   <chr>  <chr>  <chr>
#> 1 apple please fuji  apple  please   fuji
#> 2    pear help name   pear    help   name
#> 3   banana me mango banana      me  mango

Answer 3

# Creating creating the df
name <- c("apple please fuji","pear help name","banana me mango")

# as.data.frame
df <- as.data.frame(name, stringsAsFactors = F)
# Initialize empty data frame. 
df_n <- data.frame()
# Loop through the original rows of the df. 
for(i in 1:nrow(df)){
  for(j in 1:nrow(df)){
    o <- strsplit(df$name, " ")[[i]][j]
  }
}
# rename and assign new df (df_n) changes to original df. 
df$part1 <- df_n$V1
df$part2 <- df_n$V2
df$part3 <- df_n$V3

print(df)

字符串使用向量分割数据帧作为R中的模式

3 个答案: