La conversion de l'heure en numéro

Question

Il existe un vecteur avec une valeur de temps. Comment puis-je supprimer un deux-points et convertir une valeur de texte en valeur numérique. c'est-à-dire de "10:01:02" - caractère à 100102 - numérique. Tout ce que j'ai pu trouver est présenté ci-dessous.

> x <- c("10:01:02", "11:01:02") 
> strsplit(x, split = ":") 
[[1]] 
[1] "10" "01" "02" 

[[2]] 
[1] "11" "01" "02" 

Answer 1

Nous pouvons utiliser gsub pour remplacer : avec "". Après cela, utilisez as.numeric pour effectuer la conversion.

x <- as.numeric(gsub(":", "", x, fixed = TRUE)) 

Ou nous pouvons utiliser l'expression rationnelle suggère par Soto

x <- as.numeric(gsub('\\D+', '', x)) 

Answer 2

Essayez avec

x <- as.numeric(x) 

puis pour vous assurer

class(x) 

Answer 3

Si vous voulez faire tout en une seule ligne, vous pouvez utiliser la fonction destring() de taRifx pour enlever tout ce qui est pas un nombre et convertissez le résultat en numérique.

taRifx::destring(x) 

Cela fonctionne aussi si certaines de vos données de format d'une manière différente, comme "10-01-02", si vous avez à définir la valeur de keep.

destring("10-10-10", keep = "0-9") 

Et si vous ne voulez pas avoir à installer le package taRifx vous pouvez définir la fonction destring() localement.

destring <- function(x, keep = "0-9.-") 
{ 
    return(as.numeric(gsub(paste("[^", keep, "]+", sep = ""), 
     "", x))) 
}