R: le découpage d'une chaîne numérique

Je suis en train de séparer une chaîne numérique de 40 chiffres (ie. le fractionnement 123456789123456789123456789 en 1 2 3 4 etc.)

Malheureusement strsplit ne fonctionne pas comme il exige des personnages, et la conversion de la chaîne à l'aide de as.character ne fonctionne pas comme il est très long et R automatiquement la coupure de décimales pour les longues chiffres (maximum est de 22 décimales). J'ai donc jusqu'à la fin avec "1.2345e+35" comme une chaîne de caractères, au lieu des chiffres.

Est-il numérique variante de strsplit, ou d'un travail autour de la virgule-coupe-hors de question? Je n'arrive pas à trouver la réponse sur stackoverflow, mais des excuses si cela a déjà été répondu avant. Merci à l'avance!

quel est le format des vous de commencer avec? caractère ou numérique?
c'est numérique, c'est pourquoi strsplit donne une erreur
mais si vous avez affaire à une très grande valeur numérique, R a probablement déjà perdu de la précision. La valeur max de options("digits") est de 22 ; je ne suis pas sûr de la précision maximale que R peut tenir dans un numeric variable, mais je pense que votre valeur est plus grande que cela. Vous pouvez regarder une partie de ces réponses sur vos options de précision arbitraire (la plupart impliquant des interfaces non-R des outils tels que bc): par exemple stackoverflow.com/questions/8175965/...
Par exemple: xc <- "123456789123456789123456789"; x <- as.numeric(xc); dump("x","")
s/probablement/certainement. R numérique de classe est double précision, qui ne reçoit que vous ~16 chiffres. Tout le reste est de l'erreur d'arrondi. Un exemple reproductible qui serait vraiment utile dans ce cas... OP: comment est-ce numéro en cours de création dans la R?

OriginalL'auteur user1092247 | 2012-06-03

  1. 5

    Si R est le calcul du nombre que je ne connais pas la solution. Si le nombre est dans un fichier de données, je pense que le code ci-dessous. Bien que, si le nombre est un fichier de données, il y a probablement beaucoup plus facile de trouver des solutions.

    a1 <- read.table("c:/users/Mark W Miller/simple R programs/long_number.txt", colClasses = 'character')

# a1 <- c('1234567891234567891234567891234567891234') ;

a1 <- as.character(a1) ;
a2 <- strsplit(a1, "") ;
a3 <- unlist(a2) ;
a4 <- as.vector(as.numeric(a3)) ;
a4
# [1] 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 1 2 3 4

    MODIFIER

    Je me rends compte que je n'arrive pas à comprendre la question, et ma réponse est probablement assez ridicule. Néanmoins, si vous avez un ensemble de données complet de vraiment long numéros, vous pourriez diviser tous les d'eux avec le code ci-dessous. Notez qu'il n'y a pas de guillemets dans le fichier 'three_long_numbers.txt" et les données qu'au début les numériques:

    a1 <- read.table("c:/users/Mark W Miller/simple R programs/three_long_numbers.txt", colClasses = 'character')
a1

#      V1                                        
# [1,] "1234567891234567891234567891234567891234"
# [2,] "1888678912345678912345678912345678912388"
# [3,] "1234999891234567891234567891234567891239"

# a1 <- matrix(c(
# "1234567891234567891234567891234567891234",
# "1888678912345678912345678912345678912388",
# "1234999891234567891234567891234567891239"), nrow=3, byrow=T)

a1 <- as.matrix(a1) ;
a2 <- strsplit(a1, "") ;
a3 <- unlist(a2) ;
a3 <- as.numeric(a3) ;
a4 <- matrix(a3, nrow=dim(a1)[1], byrow=T)
a4

    OriginalL'auteur Mark Miller

  2. 2

    Vous pouvez simplement faire cette option pour que le numérique comme vecteur:

    s <- "123456789123456789123456789"
as.numeric(strsplit(s,"")[[1]])

# [1] 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9 1 2 3 4 5 6 7 8 9

    ou si vous le souhaitez découpé en tant que caractère de vecteur:

    strsplit(s,"")[[1]]

# [1] "1" "2" "3" "4" "5" "6" "7" "8" "9" "1" "2" "3" "4" "5" "6" "7" "8" 
# "9" "1" "2" "3" "4" "5" "6"
# [25] "7" "8" "9"

    OriginalL'auteur 989

  3. 0

    Ici est une autre approche qui me semble la plus straight-forward que ma réponse d'il y a un an:

    Diviser un seul vecteur:

    a1 <- c('1234567891234567891234567891234567891234')
a2 <- read.fwf(textConnection(a1), widths=rep(1, nchar(a1)), colClasses = 'numeric', header=FALSE)
a2
  V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18 V19 V20 V21 V22 V23 V24 V25 V26 V27 V28 V29 V30 V31 V32 V33 V34 V35 V36 V37 V38 V39 V40
1  1  2  3  4  5  6  7  8  9   1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2   3   4

    Lire un fichier contenant les trois longs nombres de longueur égale:

    # 1234567891234567891234567891234567891234
# 1888678912345678912345678912345678912388
# 1234999891234567891234567891234567891239
a1 <- read.table("c:/users/mmiller21/simple R programs/three_long_numbers.txt", colClasses = 'character', header = FALSE)
a2 <- read.fwf("c:/users/mmiller21/simple R programs/three_long_numbers.txt", widths=rep(1, max(nchar(a1$V1))), colClasses = 'numeric', header=FALSE)
a2
V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18 V19 V20 V21 V22 V23 V24 V25 V26 V27 V28 V29 V30 V31 V32 V33 V34 V35 V36 V37 V38 V39 V40
1  1  2  3  4  5  6  7  8  9   1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2   3   4
2  1  8  8  8  6  7  8  9  1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2   3   8   8
3  1  2  3  4  9  9  9  8  9   1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2   3   9

    Lire un fichier contenant les trois longs nombres de longueur inégale:

    # 1234567891234567891234567891234567891234
# 188867891234567891234567891234567891238
# 12349998912345678912345678912345678912
a1 <- read.table("c:/users/mmiller21/simple R programs/three_long_numbersb.txt", colClasses = 'character', header = FALSE)
a2 <- read.fwf("c:/users/mmiller21/simple R programs/three_long_numbersb.txt", widths=rep(1, max(nchar(a1$V1))), colClasses = 'numeric', header=FALSE)
a2
V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18 V19 V20 V21 V22 V23 V24 V25 V26 V27 V28 V29 V30 V31 V32 V33 V34 V35 V36 V37 V38 V39 V40
1  1  2  3  4  5  6  7  8  9   1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2   3   4
2  1  8  8  8  6  7  8  9  1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2   3   8  NA
3  1  2  3  4  9  9  9  8  9   1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2  NA  NA

    Voici le code pour diviser une colonne de numéros longs dans un fichier de données qui contient plusieurs colonnes. Dans cet exemple, chaque nombre de la colonne 2 a la même longueur:

    # -10 1234567891234567891234567891234567891234 -100
# -20 1888678912345678912345678912345678912388 -200
# -30 1234999891234567891234567891234567891239 -300
a1 <- read.table("c:/users/mark w miller/simple R programs/three_long_numbers_Oct25_2013.txt", colClasses = c('numeric', 'character', 'numeric'), header = FALSE)
a2 <- read.fwf(textConnection(a1$V2), widths=rep(1, nchar(a1$V2)[1]), colClasses = 'numeric', header=FALSE)
V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18 V19 V20 V21 V22 V23 V24 V25 V26 V27 V28 V29 V30 V31 V32 V33 V34 V35 V36 V37 V38 V39 V40
1  1  2  3  4  5  6  7  8  9   1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2   3   4
2  1  8  8  8  6  7  8  9  1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2   3   8   8
3  1  2  3  4  9  9  9  8  9   1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2   3   4   5   6   7   8   9   1   2   3   9

    OriginalL'auteur Mark Miller