Suppression des zéros de caractères alphanumériques dans la R

J'ai un caractère de vecteur de d avec des caractères alphanumériques

d <- c("012309 template", "separate 00340", "00045", "890 098", "3405 garage", "matter00908")

d
[1] "012309 template" "separate 00340"  "00045"           "890 098"         "3405 garage"     "matter00908"

Comment puis-je supprimer les zéros de tous les nombres dans R?
as.numeric va supprimer tous les zéros en tête uniquement en numérique ou un entier de vecteurs. J'ai essayé gsub avec regex, mais ne pouvait pas obtenir les résultats souhaités.

La sortie attendue est comme suit

out <- c("12309 template", "seperate 340", "45", "890 98", "3405 garage", "matter908")
out
[1] "12309 template" "seperate 340"   "45"             "890 98"         "3405 garage"    "matter908"

OriginalL'auteur Crops | 2014-05-08

  1. 19

    Vous pouvez utiliser un négatif lookbehind pour éliminer les 0 que si elle est précédée par un chiffre:

    > d <- c("100001", "012309 template", "separate 00340", "00045", "890 098", "3405 garage", "matter00908")
> gsub("(?<![0-9])0+", "", d, perl = TRUE)
[1] "100001"         "12309 template" "separate 340"   "45"            
[5] "890 98"         "3405 garage"    "matter908"

    Une autre façon en utilisant les regex:

    > gsub("(^|[^0-9])0+", "\", d, perl = TRUE)
[1] "100001"         "12309 template" "separate 340"   "45"            
[5] "890 98"         "3405 garage"    "matter908"     
>
    C'est aussi la suppression de plusieurs zéros dans les chaînes numériques par exemple. 100001 à 101.
    Devrait être corrigé maintenant.

    OriginalL'auteur devnull

  2. 9

    Voici la solution en utilisant stri_replace_all_regex de la stringi package:

    d <- c("012309 template", "separate 00340", "00045",
       "890 098", "3405 garage", "matter00908")
library("stringi")
stri_replace_all_regex(d, "\\b0*(\\d+)\\b", "$1")
## [1] "12309 template" "separate 340"   "45"             "890 98"
## [5] "3405 garage"    "matter00908"

    Explication: Nous sommes correspondance de toutes les séquences de chiffres à l'intérieur des limites de mots (\b). Les zéros à droite sont appariés avec gourmandise (0+). Les chiffres restants (\d dénote un chiffre,
    \d+ dénote leur séquence non-vide) sont capturés à l'intérieur d'un groupe ((...)). Puis nous remplaçons toutes ces rencontres avec le groupe capturé choses seulement.

    Si vous souhaitez également souhaitez supprimer 0s à l'intérieur des mots (comme dans votre exemple), omettez simplement \b et appel:

    stri_replace_all_regex(d, "0*(\\d+)", "$1")
## [1] "12309 template" "separate 340"   "45"             "890 98"
## [5] "3405 garage"    "matter908"
    Ce sujet de la " \\d+' ?
    modifié: \d dénote un chiffre, \d+ dénote leur séquence non-vide

    OriginalL'auteur gagolews