appliquer strsplit rowwise

Question

En essayant de diviser une chaîne sur "." et créez des colonnes supplémentaires avec les deux chaînes 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]) 

comme h$prim à Id contenir "abc", "di", "lik" .. Mais je ne suis pas en mesure de comprendre. Je suppose que strsplit n'est pas vectorisé, mais alors je pensais que la version sapply aurait dû fonctionner. Cependant, je suppose qu'il devrait être :-) facile

Cordialement, // M

Answer 1

Cela devrait faire l'affaire

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

Answer 2

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

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

Answer 3

Avec le paquet stringr il est encore plus facile:

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

Answer 4

Cette question apparaît plusieurs fois sur StackOverflow.

En forme exacte que le vôtre:

• Selecting first element of strsplit
• Selecting second element separate by space
• Selecting second element separate by dot Je recommande cette question pour voir combien de façons il pourrait être atteint.

Certaines questions similaires à ce sujet:

• Split without separator
• First part as in your question but was change to more complex case

Et si vous vous souciez de vitesse alors vous devriez envisager tip from John answer about fixed parameter to strsplit.

Answer 5

Alternativement, vous pouvez vous épargner le travail de tirer le 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"))))