Discussion :

[luudoa]

Bonjour,
Je coince sur du script afin de convertir des données en temps :

1_ Je souhaite à partir d'une colonne 'min' et une deuxième' sec' créer une nouvelle colonne intitulé 'time' en format MM'SS

2_ Je souhaiterais convertir une colonne 'temps' en format character 00'00s afin de la passer en format temps MM'SS

Merci !

[mgdondon]

Bonjour,

Je vous conseille d'investir dans le package lubridate.

À ma connaissance il n'existe pas de format time dans R.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
df <- data.frame(min = c(15,15,15,15),
                 sec = c(0,15,30,45))
 
df$time <- lubridate::parse_date_time(paste(df$min, df$sec), "%M:%S")
class(df$time)
#> [1] "POSIXct" "POSIXt"
df
#>   min sec                time
#> 1  15   0 0000-01-01 00:15:00
#> 2  15  15 0000-01-01 00:15:15
#> 3  15  30 0000-01-01 00:15:30
#> 4  15  45 0000-01-01 00:15:45

Notez que si vous appliquez un format, vous convertissez la variable en chaîne de caractères :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
df$time <- format(df$time, "%M'%S")
class(df$time)
#> [1] "character"
df
#>   min sec  time
#> 1  15   0 15'00
#> 2  15  15 15'15
#> 3  15  30 15'30
#> 4  15  45 15'45

Alternativement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
df$time <- lubridate::period(minute=df$min, second=df$sec)
str(df$time)
#> Formal class 'Period' [package "lubridate"] with 6 slots
#>   ..@ .Data : num [1:4] 0 15 30 45
#>   ..@ year  : num [1:4] 0 0 0 0
#>   ..@ month : num [1:4] 0 0 0 0
#>   ..@ day   : num [1:4] 0 0 0 0
#>   ..@ hour  : num [1:4] 0 0 0 0
#>   ..@ minute: num [1:4] 15 15 15 15
df
#>   min sec    time
#> 1  15   0  15M 0S
#> 2  15  15 15M 15S
#> 3  15  30 15M 30S
#> 4  15  45 15M 45S

Ou encore :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
df$time <- lubridate::ms(paste(df$min, df$sec))
str(df$time)
#> Formal class 'Period' [package "lubridate"] with 6 slots
#>   ..@ .Data : num [1:4] 0 15 30 45
#>   ..@ year  : num [1:4] 0 0 0 0
#>   ..@ month : num [1:4] 0 0 0 0
#>   ..@ day   : num [1:4] 0 0 0 0
#>   ..@ hour  : num [1:4] 0 0 0 0
#>   ..@ minute: num [1:4] 15 15 15 15
df
#>   min sec    time
#> 1  15   0  15M 0S
#> 2  15  15 15M 15S
#> 3  15  30 15M 30S
#> 4  15  45 15M 45S

Pour votre deuxième question :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
df <- data.frame(temps = c("15'00s", "15'15s", "15'30s", "15'45s"))
df$time <- lubridate::parse_date_time(df$temps, "%M:%S")
df
#>    temps                time
#> 1 15'00s 0000-01-01 00:15:00
#> 2 15'15s 0000-01-01 00:15:15
#> 3 15'30s 0000-01-01 00:15:30
#> 4 15'45s 0000-01-01 00:15:45

ou :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
df <- data.frame(temps = c("15'00s", "15'15s", "15'30s", "15'45s"))
df$time <- lubridate::ms(df$temps)
df
#>    temps    time
#> 1 15'00s  15M 0S
#> 2 15'15s 15M 15S
#> 3 15'30s 15M 30S
#> 4 15'45s 15M 45S
 
# Created on 2021-03-15 by the reprex package (v1.0.0.9002)

Cordialement,