Wie können wir das teilen einer integer-Zahl in einen Vektor seiner konstituierenden Ziffern in R

Ich denke ein Beispiel macht es klar genug.

Habe ich

a_1 = 6547

und ich möchte eine Funktion zum transformieren von a_1 in den folgenden a_2

a_2 = c(6, 5, 4, 7)

  • Dies wurde beantwortet, ein paar mal auf DAMIT. Natürlich, ich kann Sie nicht finden, aber wenn Sie verfolgen, die anderen Fragen nach unten, finden Sie einige, ähhm... kreative Lösungen.
  • Gefunden den link: stackoverflow.com/questions/18786432/...
InformationsquelleAutor Remi.b | 2013-11-04
  1. 12

    Konvertieren Zeichen dann gesplittet wird den trick tun

    a <- 6547
as.numeric(strsplit(as.character(a), "")[[1]])
## [1] 6 5 4 7
    InformationsquelleAutor Chinmay Patil
  2. 13
    (a %% c(1e4, 1e3, 1e2, 1e1)) %/% c(1e3, 1e2, 1e1, 1e0)

    Dieser ist 3-4x so schnell auf meinem Rechner, als bei einem strsplit. Aber die strsplit ist viel eleganter und der Unterschied nimmt mit mehr Vektoren.

    library(microbenchmark)
microbenchmark((a %% c(1e4, 1e3, 1e2, 1e1)) %/% c(1e3, 1e2, 1e1, 1e0))
# median of 1.56 seconds
microbenchmark(as.numeric(strsplit(as.character(a), "")[[1]]))
# median of 8.88 seconds

    Edit: mit Carl Erkenntnis, hier ist eine Allgemeine version.

    a <- 6547
dig <- ceiling(log10(a))
vec1 <- 10^(dig:1)
vec2 <- vec1/10
(a%%vec1)%/%vec2
    • Sollten Sie umschreiben zu behandeln den Allgemeinen Fall durch die Berechnung log10(a) und mit dem (abgeschnittenen oder abgerundeten) Wert, um die maximale Leistung, die Sie möchten, dividieren Sie durch. Ich schrieb den code für Sie, dass in einigen vorigen Antwort, SO aber können nicht verfolgen Sie unten gerade jetzt.
    • Interessanter Ansatz. Wäre interessant zu sehen, ob dieser schneller ist und für sehr lange Vektoren?
    • Dieser code ist tatsächlich falsch und schlägt für zahlen, die eine Potenz von 10 (100,1000,10000 etc.). Dies kann leicht erklärt werden durch die Tatsache, dass die Decke(log10(1000)) == 3, und nicht 4. Ich denke, der code korrigiert werden kann durch: dig <- floor(log10(a)+1). Es funktioniert auch nicht bei 0, aber meine änderung nicht beheben.
    InformationsquelleAutor Anirban
  3. 1

    Funktioniert das auch. Es ist langsamer als die anderen Antworten, aber möglicherweise leichter zu Lesen...

    library(stringr)
as.integer(unlist(str_split(a, "")))[-1]
    InformationsquelleAutor dardisco
  4. 0

    Ich glaube, Sie sollten die macht der 10 zu tun. Und recursivly, downgrade dieser macht , fügen Sie den Teil gefunden in Vektor-und entfernen Sie diese, um a_1.
    6 x 1000 5 x 100, 4 x 10, 7 x1 .....

    InformationsquelleAutor Mayhem50
Schreibe einen Kommentar