आर - VoidCC

में संख्यात्मक से चरित्र को परिवर्तित करने का सबसे तेज़ तरीका मुझे आर में वर्ण में एक संख्यात्मक वेक्टर को परिवर्तित करने की आवश्यकता है। जैसा कि मुझे पता है, अलग-अलग तरीके हैं (नीचे देखें)।आर

ऐसा लगता है कि सबसे तेज़ तरीके sprintf और gettextf हैं।

set.seed(1) 
a <- round(runif(100000), 2) 
system.time(b1 <- as.character(a)) 
    user system elapsed 
    0.108 0.000 0.105 
system.time(b2 <- formatC(a)) 
    user system elapsed 
    0.052 0.000 0.052 
system.time(b3 <- sprintf('%.2f', a)) 
    user system elapsed 
    0.044 0.000 0.046 
system.time(b4 <- gettextf('%.2f', a)) 
    user system elapsed 
    0.048 0.000 0.046 
system.time(b5 <- paste0('', a)) 
    user system elapsed 
    0.124 0.000 0.129

वहाँ अन्य तरीकों चरित्र में संख्यात्मक कन्वर्ट करने के लिए आर में हैं? किसी भी सुझाव के लिए धन्यवाद।

स्रोत

2015-02-11 Bangyou

तुम शायद में इस हाल [धागा] यह करने के लिए एक जोड़े को और अधिक तरीके ढूँढ सकते हैं ((हालांकि यह दक्षता वास्तव में आर में प्रासंगिक? है) http://stackoverflow.com/questions/28412049/what-the-difference-as-integer-and-0l-used-on-booleans) जहां मैंने बुलियन को पूर्णांक में बदलने के बारे में पूछा। – LauriK

आप a एकत्रित किए हैं के बाद से परिशुद्धता सीमित, एक बार अनन्य मानों की रूपांतरण करते हैं, और इन को देखने के लिए के रूप में

f0 = formatC 
f1 = function(x) { ux = unique(x); formatC(ux)[match(x, ux)] }

यह समान परिणाम

देता हैं

> identical(f0(a), f1(a)) 
[1] TRUE

और नमूना डेटा सेट के लिए कम से कम तेज़ है।

> microbenchmark(f0(a), f1(a)) 
Unit: milliseconds 
    expr  min  lq  mean median  uq  max neval 
f0(a) 46.05171 46.89991 47.33683 47.42225 47.58196 52.43244 100 
f1(a) 10.97090 11.39974 11.48993 11.52598 11.58505 11.90506 100

स्रोत

2015-02-11 13:26:36

आपकी टिप के लिए धन्यवाद बदलने के अन्य तरीके हैं या नहीं। अद्वितीय एक अच्छा सुझाव है क्योंकि मेरे वास्तविक डेटा में कोई डुप्लिकेट मान हैं। – Bangyou

वास्तव में यह formatC की तरह लगता है बाहर तेजी से आता है:

library(microbenchmark) 
a <- round(runif(100000), 2) 
microbenchmark(
    as.character(a), 
    formatC(a), 
    format(a), 
    sprintf('%.2f', a), 
    gettextf('%.2f', a), 
    paste0('', a) 
)

आउटपुट:

Unit: milliseconds 
       expr  min  lq  mean median  uq  max neval 
    as.character(a) 69.58868 70.74803 71.98464 71.41442 72.92168 82.21936 100 
      formatC(a) 33.35502 36.29623 38.83611 37.60454 39.27079 72.92176 100 
      format(a) 55.98344 56.78744 58.00442 57.64804 58.83614 66.15601 100 
    sprintf("%.2f", a) 46.54285 47.40126 48.53067 48.10791 49.12717 65.26819 100 
gettextf("%.2f", a) 46.74888 47.81214 49.23166 48.60025 49.16692 84.90208 100 
     paste0("", a) 86.62459 88.67753 90.80720 89.86829 91.33774 125.51421 100

मेरे sessionInfo:

R version 3.1.0 (2014-04-10) 
Platform: x86_64-apple-darwin13.1.0 (64-bit) 

locale: 
[1] en_AU.UTF-8/en_AU.UTF-8/en_AU.UTF-8/C/en_AU.UTF-8/en_AU.UTF-8 

attached base packages: 
[1] stats  graphics grDevices utils  datasets methods base  

other attached packages: 
[1] microbenchmark_1.4-2 

loaded via a namespace (and not attached): 
[1] colorspace_1.2-4 digest_0.6.4  ggplot2_1.0.0 grid_3.1.0  gtable_0.1.2  MASS_7.3-35  
[7] munsell_0.4.2 plyr_1.8.1  proto_0.3-10  Rcpp_0.11.3  reshape2_1.4  scales_0.2.4  
[13] stringr_0.6.2 tools_3.1.0

स्रोत

2015-02-11 05:28:35

तीन अन्य तरीकों मैं, जिनमें से कोई भी सोच सकते हैं gettextf जितनी तेजी से

हैं

storage.mode(a) <- "character" 
mode(a) <- "character" 
as.vector(a, "character")

आखिरी वाला विधि मूल रूप से as.character.default है, विधि प्रेषण को छोड़कर। इन सभी के लिए समय के बारे में एक ही paste(a)

स्रोत

2015-02-11 05:29:21

धन्यवाद। मैं संख्यात्मक वेक्टर को एक चरित्र वेक्टर में बदलने के सबसे तेज़ तरीकों को खोजने की कोशिश कर रहा हूं। – Bangyou

ठीक है। मुझे पूरा यकीन है कि आप उन्हें पहले से ही दिखा चुके हैं :) आपका प्रश्न पूछता है कि संख्यात्मक से चरित्र –

आर

उत्तर

संबंधित मुद्दे