日期时间 object 到分钟：我需要 3 个包裹
datetime object to minutes: I need 3 packages
我想知道我是否遗漏了什么？！
我想知道：是否有 better/shorter 方法从日期时间获取分钟 object:
目前学习的课程：
converting from hms to hour:minute in r, or rounding in minutes from hms
我的小标题：
df <- structure(list(dttm = structure(c(-2209068000, -2209069200, -2209061520,
-2209064100, -2209065240), tzone = "UTC", class = c("POSIXct",
"POSIXt"))), row.names = c(NA, -5L), class = c("tbl_df", "tbl",
"data.frame"))
# A tibble: 5 x 1
dttm
<dttm>
1 1899-12-31 02:00:00
2 1899-12-31 01:40:00
3 1899-12-31 03:48:00
4 1899-12-31 03:05:00
5 1899-12-31 02:46:00
我想添加一个以分钟为整数的新列：
我目前的方法：
library(dplyr)
library(lubridate) # ymd_hms
library(hms) # as_hms
library(chron) # times
test %>%
mutate(dttm_min = as_hms(ymd_hms(dttm)),
dttm_min = 60*24*as.numeric(times(dttm_min)))
# A tibble: 5 x 2
dttm dttm_min
<dttm> <dbl>
1 1899-12-31 02:00:00 120
2 1899-12-31 01:40:00 100
3 1899-12-31 03:48:00 228
4 1899-12-31 03:05:00 185
5 1899-12-31 02:46:00 166
这给了我想要的结果，但我需要这个操作 3 个包。有没有更直接的方法？
这是基本的 R 方式 -
您可以使用format提取时间，将日期更改为'1970-01-01'（因为R日期时间以'1970-01-01'开头），转换为数字并将时间除以60得到以分钟为单位的持续时间。
as.numeric(as.POSIXct(paste('1970-01-01', format(df$dttm, '%T')), tz = 'UTC'))/60
#[1] 120 100 228 185 166
这里有两种方法。
基础 R
with(df, as.integer(format(dttm, "%M")) + 60*as.integer(format(dttm, "%H")))
#[1] 120 100 228 185 166
另一个基础 R 选项，使用 class "POSIXlt" 提议 。
minute_of_day <- function(x){
y <- as.POSIXlt(x)
60*y$hour + y$min
}
minute_of_day(df$dttm)
#[1] 120 100 228 185 166
套餐lubridate
lubridate::minute(df$dttm) + 60*lubridate::hour(df$dttm)
#[1] 120 100 228 185 166
如果加载包，这可以简化，输出相同，到
library(lubridate)
minute(df$dttm) + 60*hour(df$dttm)
我们可以使用
library(data.table)
as.numeric(as.ITime(format(df$dttm, '%T')))/60
[1] 120 100 228 185 166
为了完整起见，一天中的时间（以分钟为单位）可以通过取 POSIXct 日期时间对象和一天开始之间的 difftime() 来计算，例如，
difftime(df$dttm, lubridate::floor_date(df$dttm, "day"), units = "min")
Time differences in mins
[1] 120 100 228 185 166
除了基础 R 外，只需要一个其他包。
根据 help("difftime")，difftime() returns class “difftime” 的对象，其属性指示单位。
我想知道我是否遗漏了什么？！
我想知道：是否有 better/shorter 方法从日期时间获取分钟 object:
目前学习的课程：
converting from hms to hour:minute in r, or rounding in minutes from hms
我的小标题：
df <- structure(list(dttm = structure(c(-2209068000, -2209069200, -2209061520,
-2209064100, -2209065240), tzone = "UTC", class = c("POSIXct",
"POSIXt"))), row.names = c(NA, -5L), class = c("tbl_df", "tbl",
"data.frame"))
# A tibble: 5 x 1
dttm
<dttm>
1 1899-12-31 02:00:00
2 1899-12-31 01:40:00
3 1899-12-31 03:48:00
4 1899-12-31 03:05:00
5 1899-12-31 02:46:00
我想添加一个以分钟为整数的新列：
我目前的方法：
library(dplyr)
library(lubridate) # ymd_hms
library(hms) # as_hms
library(chron) # times
test %>%
mutate(dttm_min = as_hms(ymd_hms(dttm)),
dttm_min = 60*24*as.numeric(times(dttm_min)))
# A tibble: 5 x 2
dttm dttm_min
<dttm> <dbl>
1 1899-12-31 02:00:00 120
2 1899-12-31 01:40:00 100
3 1899-12-31 03:48:00 228
4 1899-12-31 03:05:00 185
5 1899-12-31 02:46:00 166
这给了我想要的结果，但我需要这个操作 3 个包。有没有更直接的方法？
这是基本的 R 方式 -
您可以使用format提取时间，将日期更改为'1970-01-01'（因为R日期时间以'1970-01-01'开头），转换为数字并将时间除以60得到以分钟为单位的持续时间。
as.numeric(as.POSIXct(paste('1970-01-01', format(df$dttm, '%T')), tz = 'UTC'))/60
#[1] 120 100 228 185 166
这里有两种方法。
基础 R
with(df, as.integer(format(dttm, "%M")) + 60*as.integer(format(dttm, "%H")))
#[1] 120 100 228 185 166
另一个基础 R 选项，使用 class "POSIXlt" 提议
minute_of_day <- function(x){
y <- as.POSIXlt(x)
60*y$hour + y$min
}
minute_of_day(df$dttm)
#[1] 120 100 228 185 166
套餐lubridate
lubridate::minute(df$dttm) + 60*lubridate::hour(df$dttm)
#[1] 120 100 228 185 166
如果加载包，这可以简化，输出相同，到
library(lubridate)
minute(df$dttm) + 60*hour(df$dttm)
我们可以使用
library(data.table)
as.numeric(as.ITime(format(df$dttm, '%T')))/60
[1] 120 100 228 185 166
为了完整起见，一天中的时间（以分钟为单位）可以通过取 POSIXct 日期时间对象和一天开始之间的 difftime() 来计算，例如，
difftime(df$dttm, lubridate::floor_date(df$dttm, "day"), units = "min")
Time differences in mins [1] 120 100 228 185 166
除了基础 R 外，只需要一个其他包。
根据 help("difftime")，difftime() returns class “difftime” 的对象，其属性指示单位。