Início / coding / Perguntas / 79562109
Accepted
Autumn Mannsfeld
Asked: 2025-04-08 21:00:08 +0800 CST

Como alterar o separador de tempo de decimal para dois pontos em R

  • 772

Tenho um conjunto de dados brutos que usa um decimal como separador de tempo e quero que ele tenha dois pontos, mas não tenho ideia de como alterá-lo. Meu tempo bruto (com decimais) está na coluna "df$Time", e meu tempo correto (com os dois pontos) estará em "df$time" (para manter a consistência com os outros dataframes no meu código). df$Date é uma coluna de caracteres, df$Time é uma coluna numérica. Estou usando uma infinidade de bibliotecas, algumas incluindo dplyre stringr.

Não sei bem como criar uma tabela bonita com dados recriáveis. Escrever nesta plataforma é novidade para mim. Mas abaixo, incluo um trecho dos dados de tempo e alguns métodos que tentei. Qualquer ajuda é bem-vinda! Parece tão simples, mas realmente não consigo entender.

(Também peço desculpas pelo formato dos meus dados abaixo, tentei fazer uma tabela, mas uma que parecesse melhor e, novamente, nada funcionou. Acho que preciso dar uma pausa na solução de problemas, rs)

Aqui está o resultado após a execução dput(head(df)):

structure(list(Date = c("01/03/2024", "01/03/2024", "01/03/2024", "01/03/2024", "01/03/2024", "01/03/2024"), Time = c(0, 0.05, 0.1, 0.15, 0.2, 0.25)), row.names = c(NA, 6L), class = "data.frame")

Aqui está um trecho de duas horas de dados simplificados (incluindo apenas colunas relevantes) que mostra o problema:

          Date  Time
181 01/03/2024 15.00  
182 01/03/2024 15.05
183 01/03/2024 15.10
184 01/03/2024 15.15
185 01/03/2024 15.20
186 01/03/2024 15.25
187 01/03/2024 15.30
188 01/03/2024 15.35
189 01/03/2024 15.40
190 01/03/2024 15.45
191 01/03/2024 15.50
192 01/03/2024 15.55
193 01/03/2024 16.00
194 01/03/2024 16.05
195 01/03/2024 16.10
196 01/03/2024 16.15
197 01/03/2024 16.20
198 01/03/2024 16.25
199 01/03/2024 16.30
200 01/03/2024 16.35
201 01/03/2024 16.40
202 01/03/2024 16.45
203 01/03/2024 16.50
204 01/03/2024 16.55
205 01/03/2024 17.00

Aqui estão alguns dos métodos que tentei:

Método 1:

df$time <- df %>% mutate(across(everything(), ~str_replace(., ",", ".")))

Método 2:

df$time <- str_replace(df$Time, ".", ":")

Método 3:

df$Time <- as.character(df$Time)

df$time <- gsub(".", ":", df$Time, fixed = T)

Método 4:

df$time <- strptime(as.character(df$Time), "%H.%M")

df$time <- format(df$time, "%H:%M")

Método 5:

df$time <- as.POSIXlt(df$Time)

Método 6:

df$time <- df$Time df$time <- gsub(".", ":", df$time)

Método 7:

df$time <- df$Time df$time <- str_replace_all(df$time, ".", ":")

4 respostas

  1. Best Answer

    Você pode usar sprintfpara garantir que tenha a formatação adequada:

    sub("\\.", ":", sprintf("%05.2f", df$Time))

    produz:

    # [1] "15:00" "15:05" "15:10" "15:15" "15:20" "15:25" "15:30" "15:35" "15:40" "15:45" "15:50" "15:55" "16:00" "16:05" "16:10" "16:15" "16:20" "16:25" "16:30" "16:35" "16:40" "16:45" "16:50" "16:55" "17:00"

    Dados:

    df <- read.table(text = "ID Date    Time
181 01/03/2024  15.00
182 01/03/2024  15.05
183 01/03/2024  15.10
184 01/03/2024  15.15
185 01/03/2024  15.20
186 01/03/2024  15.25
187 01/03/2024  15.30
188 01/03/2024  15.35
189 01/03/2024  15.40
190 01/03/2024  15.45
191 01/03/2024  15.50
192 01/03/2024  15.55
193 01/03/2024  16.00
194 01/03/2024  16.05
195 01/03/2024  16.10
196 01/03/2024  16.15
197 01/03/2024  16.20
198 01/03/2024  16.25
199 01/03/2024  16.30
200 01/03/2024  16.35
201 01/03/2024  16.40
202 01/03/2024  16.45
203 01/03/2024  16.50
204 01/03/2024  16.55
205 01/03/2024  17.00", header = TRUE)
    • 3

  2. Isso deve funcionar:

    df$Time <- gsub(".", ":", as.character(df$Time), fixed = T)
    • 1

  3. Você também pode converter números diretamente para o formato desejado, seja hms, POSIXct/ POSIXltou outro, com ou sem componente de data:

    library(dplyr)
df <- 
  structure(list(Date = c("01/03/2024", "01/03/2024", "01/03/2024", "01/03/2024", "01/03/2024", "01/03/2024"), Time = c(0, 0.05, 0.1, 0.15, 0.2, 0.25)), row.names = c(NA, 6L), class = "data.frame")

df |> 
  as_tibble() |> 
  mutate(
    Time_hms = hms::hms(hours = trunc(Time), minutes = Time %% 1 * 100),
    Time_str = as.character(Time_hms),
    DateTime = dmy(Date) + minutes(trunc(Time) * 60 + Time %% 1 * 100)
  ) 
#> # A tibble: 6 × 5
#>   Date        Time Time_hms Time_str DateTime           
#>   <chr>      <dbl> <time>   <chr>    <dttm>             
#> 1 01/03/2024  0    00'00"   00:00:00 2024-03-01 00:00:00
#> 2 01/03/2024  0.05 05'00"   00:05:00 2024-03-01 00:05:00
#> 3 01/03/2024  0.1  10'00"   00:10:00 2024-03-01 00:10:00
#> 4 01/03/2024  0.15 15'00"   00:15:00 2024-03-01 00:15:00
#> 5 01/03/2024  0.2  20'00"   00:20:00 2024-03-01 00:20:00
#> 6 01/03/2024  0.25 25'00"   00:25:00 2024-03-01 00:25:00
    • 1

  4. Outra opção poderia ser format+n_small = 2

    df <- structure(list(Date = c("01/03/2024", "01/03/2024", "01/03/2024", "01/03/2024", "01/03/2024", "01/03/2024"), Time = c(0, 0.05, 0.1, 0.15, 0.2, 0.25)), row.names = c(NA, 6L), class = "data.frame")


df$Time <- stringr::str_pad(sub("\\.", ":", format(df$Time, nsmall=2)),5,"left","0")

        Date  Time
1 01/03/2024 00:00
2 01/03/2024 00:05
3 01/03/2024 00:10
4 01/03/2024 00:15
5 01/03/2024 00:20
6 01/03/2024 00:25
    • 0

relate perguntas