Comment faire cette chaîne fractionnée () dans R? Arrêtez de fractionnement lorsque aucun prétexte n'est séparé par des tirets restent. Gardez la sous-chaîne latérale droite comme indiqué dans les résultats.
a <- c("tim/tom meyer XY900 123kncjd", "sepp/max/peter moser VK123 456xyz")
# result:
c("tim meyer XY900 123kncjd", "tom meyer XY900 123kncjd", "sepp moser VK123 456xyz", "max moser VK123 456xyz", "peter moser VK123 456xyz")
4 Réponses :
Je le ferais comme ça (avec stringi ):
Voici une possibilité en utilisant quelques-unes des différentes fonctions de chaîne de base. s <- strsplit(a, "\\/|( .*)")
paste0(unlist(s), rep(regmatches(a, regexpr(" .*", a)), lengths(s)))
# [1] "tim meyer XY900 123kncjd" "tom meyer XY900 123kncjd"
# [3] "sepp moser VK123 456xyz" "max moser VK123 456xyz"
# [5] "peter moser VK123 456xyz"
Parfait! ..no la boucle et les fonctions de base sont exactement ce que j'étais après;)
Belle solution richard
Voici une approche:
a <- c('a/b/c d/e/f g/h/i','j/k/l m/n/o p/q/r');
do.call(c,lapply(strsplit(a,' '),function(w) apply(expand.grid(strsplit(w,'/')),1,paste,collapse=' ')));
## [1] "a d g" "b d g" "c d g" "a e g" "b e g" "c e g" "a f g" "b f g" "c f g" "a d h" "b d h" "c d h" "a e h" "b e h" "c e h" "a f h" "b f h" "c f h" "a d i" "b d i" "c d i" "a e i" "b e i" "c e i" "a f i" "b f i" "c f i" "j m p" "k m p" "l m p" "j n p" "k n p" "l n p" "j o p" "k o p" "l o p" "j m q" "k m q" "l m q" "j n q" "k n q" "l n q" "j o q" "k o q" "l o q" "j m r" "k m r" "l m r" "j n r" "k n r" "l n r" "j o r" "k o r" "l o r"
Pourquoi pas une approche supplémentaire de montrer qu'il existe de nombreuses façons d'une solution R. Divisez la chaîne par / code> symbole. Séparez les prénoms du reste de la chaîne. Ensuite, combiner avec coller code>. Question intéressante BTW: unlist(sapply(strsplit(a, "/"), function(x) {len <- length(x)
last <- gsub("^(\\w+).*", "\\1", x[len])
fill <- gsub("^\\w+ ", "", x[len])
paste(c(x[-len], last), fill)}))
# [1] "tim meyer XY900 123kncjd" "tom meyer XY900 123kncjd" "sepp moser VK123 456xyz"
# [4] "max moser VK123 456xyz" "peter moser VK123 456xyz"