Question

我的数据框有时间戳，有秒和无秒，并且在月和小时前随机使用0，即01或1

library(tidyverse)
df <- data_frame(cust=c('A','A','B','B'), timestamp=c('5/31/2016 1:03:12', '05/25/2016 01:06',
                                           '6/16/2016  01:03', '12/30/2015 23:04:25'))
cust     timestamp
 A      5/31/2016 1:03:12
 A      05/25/2016 01:06
 B      6/16/2016  01:03
 B      12/30/2015 23:04:25

如何将小时数提取到单独的列中？所需的输出：

 cust     timestamp            hours
 A      5/31/2016 1:03:12       1
 A      05/25/2016 01:06        1
 B      6/16/2016  9:03         9
 B      12/30/2015 23:04:25    23

我更喜欢tidyverse和mutate的答案，但我的尝试无法正确提取小时数：

df %>% mutate(hours=strptime(timestamp, '%H') %>% as.character() )

# A tibble: 4 × 3
   cust           timestamp               hours
  <chr>               <chr>               <chr>
1     A   5/31/2016 1:03:12 2016-10-31 05:00:00
2     A    05/25/2016 01:06 2016-10-31 05:00:00
3     B    6/16/2016  01:03 2016-10-31 06:00:00
4     B 12/30/2015 23:04:25 2016-10-31 12:00:00

Answer 1

试试这个：

library(lubridate)
df <- data.frame(cust=c('A','A','B','B'), timestamp=c('5/31/2016 1:03:12', '05/25/2016 01:06',
                                                      '6/16/2016  09:03', '12/30/2015 23:04:25'))
df %>% mutate(hours=hour(strptime(timestamp, '%m/%d/%Y %H:%M')) %>% as.character() )

cust           timestamp   hours
1    A   5/31/2016 1:03:12     1
2    A    05/25/2016 01:06     1
3    B    6/16/2016  09:03     9
4    B 12/30/2015 23:04:25    23

Answer 2

这是一个解决方案，会在00缺少秒数时附加lubridate，然后使用format转换为日期，并使用00:00提取小时数。请注意，如果您不想在小时结束时使用format，则可以从df %>% mutate( cleanTime = ifelse(grepl(":[0-9][0-9]:", timestamp) , timestamp , paste0(timestamp, ":00")) %>% mdy_hms , hour = format(cleanTime, "%H:00:00") )中的输出格式中删除它们：

   cust           timestamp           cleanTime     hour
  <chr>               <chr>              <dttm>    <chr>
1     A   5/31/2016 1:03:12 2016-05-31 01:03:12 01:00:00
2     A    05/25/2016 01:06 2016-05-25 01:06:00 01:00:00
3     B    6/16/2016  01:03 2016-06-16 01:03:00 01:00:00
4     B 12/30/2015 23:04:25 2015-12-30 23:04:25 23:00:00

返回：

{{1}}

Answer 3

您的时间戳是一个字符串（），您需要格式化为日期（例如as.Date），然后才能开始使用strptime等函数。

在将数据转换为日期之前，您必须经过一些字符串操作才能获得格式正确的数据。使用单个数字预先设置零到几个月，并将:00追加到数小时且缺少秒数。使用strsplit()和其他正则表达式函数。之后执行as.Date(df$timestamp,format = '%m/%d/%Y %H:%M:%S')，然后您就可以使用strptime来提取小时数。

R：从可变格式时间戳中提取小时

3 个答案: