appliquer strsplit rowwise

Im essayant de découper une chaîne sur le "." et de créer des colonnes supplémentaires avec les deux chaînes de caractères avant et après ".".

tes<-c("1.abc","2.di","3.lik")
dat<-c(5,3,2)
h<-data.frame(tes,dat)
h$num<-substr(h$tes,1,1)

h$prim<-unlist(strsplit(as.character(h$tes),"\\."))[2]
h$prim<-sapply(h$tes,unlist(strsplit(as.character(h$tes),"\\."))[2])

Id comme h$prim pour contenir "abc","di","lik"..Mais je ne suis pas en mesure de le comprendre. Je suppose que strsplit n'est pas vectorisé, mais ensuite j'ai pensé la sapply version doit avoir travaillé. Cependant je suppose qu'il devrait être facile:-)

Ce qui concerne,
//M

source d'informationauteur Misha

  1. 30

    Cela devrait faire l'affaire

    R> sapply(strsplit(as.character(h$tes), "\\."), "[[", 2)
[1] "abc" "di"  "lik"
  2. 9

    Avec le stringr paquet c'est encore plus facile:

    library(stringr)
str_split_fixed(h$tes, fixed("."), 2)[, 2]
  3. 7

    C'est le même que rcs de réponse, mais peut-être plus facile à comprendre:

    > sapply(strsplit(as.character(h$tes), "\\."), function(x) x[[2]])
[1] "abc" "di"  "lik"
  4. 7

    Cette question apparaît plusieurs fois sur StackOverflow.

    Dans la forme exacte que le vôtre:

    D'une même question dans cette rubrique:

    Et si vous vous souciez de la vitesse, alors vous devriez envisager de astuce de Jean de réponse à propos de fixe paramètre strsplit.

  5. 1

    Alternativement, vous pouvez vous épargner le travail de sortir de la 2ème élément si vous ajoutez les deux colonnes en même temps:

    tes <- c("1.abc","2.di","3.lik")
dat <- c(5,3,2)
h <- data.frame(tes, dat, stringsAsFactors=FALSE)
values <- unlist(strsplit(h$tes, ".", fixed=TRUE))
h <- cbind(h, matrix(values, byrow=TRUE, ncol=2,
                     dimnames=list(NULL, c("num", "prim"))))