À l'aide de strsplit avec des trames de données à split étiquette de colonnes en plusieurs

Question

J'aimerais prendre les données du formulaire

before = data.frame(attr = c(1,30,4,6), type=c('foo_and_bar','foo_and_bar_2'))
  attr          type
1    1   foo_and_bar
2   30 foo_and_bar_2
3    4   foo_and_bar
4    6 foo_and_bar_2

et l'utilisation de split le type de colonne pour obtenir quelque chose comme ceci:

  attr type_1 type_2
1    1    foo    bar
2   30    foo  bar_2
3    4    foo    bar
4    6    foo  bar_2

Je suis venu avec quelque chose d'incroyablement complexes, impliquant une certaine forme d'appliquer cela a fonctionné, mais depuis, j'ai égaré que. Il semble beaucoup trop compliqué pour être le meilleur moyen. Je peux utiliser strsplit comme ci-dessous, mais alors mal comment le récupérer en 2 colonnes dans le bloc de données.

> strsplit(as.character(before$type),'_and_')
[[1]]
[1] "foo" "bar"

[[2]]
[1] "foo"   "bar_2"

[[3]]
[1] "foo" "bar"

[[4]]
[1] "foo"   "bar_2"

Merci pour tous les pointeurs. Je n'ai pas assez groked R des listes pour l'instant.

Answer 1

Utiliser stringr::str_split_fixed

library(stringr)
str_split_fixed(before$type, "_and_", 2)

Answer 2

Une autre option est d'utiliser le nouveau tidyr paquet.

library(dplyr)
library(tidyr)

before <- data.frame(
  attr = c(1, 30 ,4 ,6 ), 
  type = c('foo_and_bar', 'foo_and_bar_2')
)

before %>%
  separate(type, c("foo", "bar"), "_and_")

##   attr foo   bar
## 1    1 foo   bar
## 2   30 foo bar_2
## 3    4 foo   bar
## 4    6 foo bar_2

Answer 3

Pourtant, une autre approche: utiliser rbind sur out:

before <- data.frame(attr = c(1,30,4,6), type=c('foo_and_bar','foo_and_bar_2'))  
out <- strsplit(as.character(before$type),'_and_') 
do.call(rbind, out)

     [,1]  [,2]   
[1,] "foo" "bar"  
[2,] "foo" "bar_2"
[3,] "foo" "bar"  
[4,] "foo" "bar_2"

Et à combiner:

data.frame(before$attr, do.call(rbind, out))

Answer 4

Notez que sapply avec "[" peut être utilisé pour extraire le premier ou le deuxième éléments de ces listes:

before$type_1 < sapply(strsplit(as.character(before$type),'_and_'), "[", 1)
before$type_2 < sapply(strsplit(as.character(before$type),'_and_'), "[", 2)
before$type <- NULL

Et voici un gsub méthode:

before$type_1 <- gsub("_and_.+$", "", before$type)
before$type_2 <- gsub("^.+_and_", "", before$type)
before$type <- NULL

Answer 5

voici un liner le long des mêmes lignes que aniko de la solution, mais à l'aide de hadley est stringr paquet:

do.call(rbind, str_split(before$type, '_and_'))