применить strsplit rowwise

Question

Im пытается разбить строку на "." и создайте дополнительные столбцы с двумя строками до и после «.».

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]) 

Я бы хотел h$prim содержать "ABC", "ди", "ЛИК" .. Однако I'm не в состоянии понять это. Думаю, strsplit не векторизован, но тогда я думал, что версия sapply должна сработать. Однако я предполагаю, что это должно быть легко :-)

С уважением, // M

Answer 1

Это должно сделать трюк

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

Answer 2

Это то же самое, как ответ RCS', но может быть проще понять:

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

Answer 3

с stringr пакета стало еще проще:

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

Answer 4

Этот вопрос появляется несколько раз в StackOverflow.

В точной форме, как у вас:

• Selecting first element of strsplit
• Selecting second element separate by space
• Selecting second element separate by dot Я рекомендую этот вопрос, чтобы увидеть, сколько способов это может быть достигнуто.

Некоторые подобный вопрос в этой теме:

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

И если вы заботитесь о скорости, то вам следует рассмотреть tip from John answer about fixed parameter to strsplit.

Answer 5

В качестве альтернативы, вы можете сэкономить работу вытаскивания 2-го элемента, если вы добавите обе колонки в то же время:

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"))))