Час / минута добавляет один час с даты / времени с lubridate - PullRequest
Новая
       22

Час / минута добавляет один час с даты / времени с lubridate

0 голосов
/ 15 февраля 2019

Я хотел бы извлечь часы / минуты / секунды из даты и времени.Пример кадра данных: 

df <- structure(list(Study_date_time_PACS = structure(c(1515146548, 1515146548, 1514970658, 1514970658, 1515151732, 1515151732, 1517476589, 1517476589, 1543848246, 1543848246),
                                                class = c("POSIXct", "POSIXt"), 
                                                tzone = "UTC")),
          .Names = "Study_date_time", 
          row.names = c(NA, -10L), 
          class = c("tbl_df", "tbl", "data.frame"))
print(df)


# A tibble: 10 x 1
   Study_date_time    
   <dttm>             
 1 2018-01-05 10:02:28
 2 2018-01-05 10:02:28
 3 2018-01-03 09:10:58
 4 2018-01-03 09:10:58
 5 2018-01-05 11:28:52
 6 2018-01-05 11:28:52
 7 2018-02-01 09:16:29
 8 2018-02-01 09:16:29
 9 2018-12-03 14:44:06
10 2018-12-03 14:44:06

Итак, я запускаю этот код, но он добавляет один час к «часу»?Как я могу это исправить.Я предполагаю, что это должно быть что-то с летним временем ... 

library(lubridate)
df %>% 
  mutate(hour_min = hms::as.hms(Study_date_time))

# A tibble: 10 x 2
   Study_date_time     hour_min
   <dttm>              <time>  
 1 2018-01-05 10:02:28 11:02   
 2 2018-01-05 10:02:28 11:02   
 3 2018-01-03 09:10:58 10:10   
 4 2018-01-03 09:10:58 10:10   
 5 2018-01-05 11:28:52 12:28   
 6 2018-01-05 11:28:52 12:28   
 7 2018-02-01 09:16:29 10:16   
 8 2018-02-01 09:16:29 10:16   
 9 2018-12-03 14:44:06 15:44   
10 2018-12-03 14:44:06 15:44

Ответы [ 2 ]

0 голосов
/ 15 февраля 2019

Я согласен, что это, скорее всего, проблема tz (возможно, вы можете просто сделать hms::as.hms(Study_date_time, tz = 'UTC')), и она исчезнет), однако я думаю, что вы также преуспеете без какого-либо пакета, например: 

df %>% 
  mutate(hour_min = format(Study_date_time, "%H:%M"))
0 голосов
/ 15 февраля 2019

Вероятно, из-за элемента часового пояса, который удаляется ... Дайте угадаю: вы живете в UTC + 0100 - регионе планеты?

Вы можете использовать функцию force_tz() из lubridate-пакет .. но будьте осторожны !!С часовыми поясами всегда работать, поэтому обращайтесь с ними осторожно! 

df %>% mutate(hour_min = hms::as.hms( force_tz( Study_date_time ) ) )

# # A tibble: 10 x 2
#   Study_date_time     hour_min
#   <dttm>              <time>  
# 1 2018-01-05 10:02:28 10:02   
# 2 2018-01-05 10:02:28 10:02   
# 3 2018-01-03 09:10:58 09:10   
# 4 2018-01-03 09:10:58 09:10   
# 5 2018-01-05 11:28:52 11:28   
# 6 2018-01-05 11:28:52 11:28   
# 7 2018-02-01 09:16:29 09:16   
# 8 2018-02-01 09:16:29 09:16   
# 9 2018-12-03 14:44:06 14:44   
# 10 2018-12-03 14:44:06 14:44
...