strsplit rowwise लागू करें

Question

मैं "।" पर एक स्ट्रिंग को विभाजित करने की कोशिश कर रहा हूं। और "।" से पहले और बाद में दो तारों के साथ अतिरिक्त कॉलम बनाएं।

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

I'd h$prim की तरह "abc", "डि", "lik" को रोकने के लिए .. हालांकि यह पता लगाने में सक्षम नहीं कर रहा हूँ। मुझे लगता है कि strsplit वेक्टरकृत नहीं है, लेकिन फिर मैंने सोचा कि sapply संस्करण काम करना चाहिए था। हालांकि मुझे लगता है यह

सादर, होना चाहिए आसान :-) // एम

Answer 1

यह चाल

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

Answer 2

यह आरसीएस 'जवाब के रूप में ही है क्या करना चाहिए, लेकिन करने के लिए आसान हो सकता है समझ में:

> 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

यह प्रश्न स्टैक ओवरव्लो पर कई बार प्रकट होता है।

तुम्हारा के रूप में

सटीक रूप में:

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