तार / चरित्र का एक सदिश

Question

यदि मेरे पास टाइप कैरेक्टर का वेक्टर है, तो मैं स्ट्रिंग में मान कैसे ला सकता हूं? यहाँ मैं इसे पेस्ट के साथ कैसे करूँगा () :

sdata = c('a', 'b', 'c')
paste(sdata[1], sdata[2], sdata[3], sep ='')

उपज "abc"।

लेकिन निश्चित रूप से, यह तभी काम करता है जब मैं समय से पहले sdata की लंबाई जानता हूं ।

Answer 1

पेस्ट फ़ंक्शन के भीतर एक खाली पतन तर्क का उपयोग करने का प्रयास करें :

paste(sdata, collapse = '')

Http://twitter.com/onelinetips/status/7491806343 पर धन्यवाद

Comments

बस एक ध्यान दें कि यदि sdataया तो तार हो सकते हैं जो सभी समान लंबाई के हैं या चर लंबाई के हैं तो paste(sdata, sep = '', collapse = '')अप्रत्याशित परिणामों से बचने के लिए उपयोग किया जाना चाहिए।

— 22

Answer 2

मैट का जवाब निश्चित रूप से सही जवाब है। हालांकि, यहाँ हास्य राहत प्रयोजनों के लिए एक वैकल्पिक समाधान है:

do.call(paste, c(as.list(sdata), sep = ""))

Comments

आप वास्तव में वहाँ एक आवेदन () बयान काम कर सकते थे। यदि आप करते हैं तो मैं आपको वोट दूंगा;)

— JD लॉन्ग

यह वास्तव में सबसे सुंदर समाधान होगा यदि collapseपैरामीटर मौजूद नहीं था। यदि आप वास्तव में हाल ही में कुछ ऐसा ही करते हैं तो बहुत अधिक राहत नहीं मिलती है :)

— उड़ान भेड़

Answer 3

आप इस तरह से पैकेज से पैरामीटर के stri_pasteसाथ फ़ंक्शन का उपयोग कर सकते हैं :collapsestringi

stri_paste(letters, collapse='')
## [1] "abcdefghijklmnopqrstuvwxyz" 

और कुछ बेंचमार्क:

require(microbenchmark)
test <- stri_rand_lipsum(100)
microbenchmark(stri_paste(test, collapse=''), paste(test,collapse=''), do.call(paste, c(as.list(test), sep="")))
Unit: microseconds
                                      expr     min       lq     mean   median       uq     max neval
           stri_paste(test, collapse = "") 137.477 139.6040 155.8157 148.5810 163.5375 226.171   100
                paste(test, collapse = "") 404.139 406.4100 446.0270 432.3250 442.9825 723.793   100
do.call(paste, c(as.list(test), sep = "")) 216.937 226.0265 251.6779 237.3945 264.8935 405.989   100

Comments

मैंने कभी कुछ नया सीखने के लिए R. Nice पर बेंचमार्क प्रदर्शन नहीं किया।

— टॉरिएन

Answer 4

के लिए sdata:

gsub(", ","",toString(sdata))

पूर्णांक के एक वेक्टर के लिए:

gsub(", ","",toString(c(1:10)))

Comments

यह एक खतरनाक उत्तर है - अगर वेक्टर के तत्वों में अल्पविराम-स्थान अनुक्रम हैं, तो यह उत्तर उन्हें हटा देगा।

— C8H10N4O2

Answer 5

मैट टर्नर का जवाब निश्चित रूप से सही जवाब है। हालाँकि, केन विलियम्स के उत्तर की भावना में, आप भी कर सकते हैं:

capture.output(cat(sdata, sep="")) 

Answer 6

यहां एक छोटी उपयोगिता फ़ंक्शन है जो आसान मुद्रण के लिए एक स्ट्रिंग के लिए मूल्यों की एक नामित या अनाम सूची को ध्वस्त करता है। यह खुद कोड लाइन भी प्रिंट करेगा। यह आर सूची में मेरी सूची के उदाहरणों में से है ।

नामित या नामांकित कुछ सूचियां बनाएं:

# Define Lists
ls_num <- list(1,2,3)
ls_str <- list('1','2','3')
ls_num_str <- list(1,2,'3')

# Named Lists
ar_st_names <- c('e1','e2','e3')
ls_num_str_named <- ls_num_str
names(ls_num_str_named) <- ar_st_names

# Add Element to Named List
ls_num_str_named$e4 <- 'this is added'

यहाँ एक फ़ंक्शन है जो नाम या अनाम सूची को स्ट्रिंग में बदल देगा:

ffi_lst2str <- function(ls_list, st_desc, bl_print=TRUE) {

  # string desc
  if(missing(st_desc)){
    st_desc <- deparse(substitute(ls_list))
  }

  # create string
  st_string_from_list = paste0(paste0(st_desc, ':'), 
                               paste(names(ls_list), ls_list, sep="=", collapse=";" ))

  if (bl_print){
    print(st_string_from_list)
  }
}

पूर्व में बनाई गई सूचियों के साथ फ़ंक्शन का परीक्षण करना:

> ffi_lst2str(ls_num)
[1] "ls_num:=1;=2;=3"
> ffi_lst2str(ls_str)
[1] "ls_str:=1;=2;=3"
> ffi_lst2str(ls_num_str)
[1] "ls_num_str:=1;=2;=3"
> ffi_lst2str(ls_num_str_named)
[1] "ls_num_str_named:e1=1;e2=2;e3=3;e4=this is added"

सूची तत्वों के सबसेट के साथ फ़ंक्शन का परीक्षण करना:

> ffi_lst2str(ls_num_str_named[c('e2','e3','e4')])
[1] "ls_num_str_named[c(\"e2\", \"e3\", \"e4\")]:e2=2;e3=3;e4=this is added"
> ffi_lst2str(ls_num[2:3])
[1] "ls_num[2:3]:=2;=3"
> ffi_lst2str(ls_str[2:3])
[1] "ls_str[2:3]:=2;=3"
> ffi_lst2str(ls_num_str[2:4])
[1] "ls_num_str[2:4]:=2;=3;=NULL"
> ffi_lst2str(ls_num_str_named[c('e2','e3','e4')])
[1] "ls_num_str_named[c(\"e2\", \"e3\", \"e4\")]:e2=2;e3=3;e4=this is added"