0

我有一个基本的角色日期来POSIXct运作

charDateToPosixct <- function(chrDate, format, timeZone) {
    as.POSIXct(chrDate, format=format, tz=timeZone)
}

我有一个日期为字符和时区的数据框。 

chrDate <- c("4/25/2012","4/24/2012","4/16/2012","6/30/2012")
timeZone <- c("US/Eastern","US/Central","US/Pacific","US/Eastern")
df <- data.frame(date=chrDate,timezone=timeZone)
str(df)
'data.frame':   4 obs. of  2 variables:
 $ date    : Factor w/ 4 levels "4/16/2012","4/24/2012",..: 3 2 1 4
 $ timezone: Factor w/ 3 levels "US/Central","US/Eastern",..: 2 1 3 2

我想将 date 的数据类型更改为POSIXct，因此想将此函数charDateToPosixct应用于格式为 的每一行"%m/%d/%y"。

4

1 回答 1

3

apply像这样使用匿名函数

apply(df, 1, function(x) charDateToPosixct(x[1], "%m/%d/%y", x[2]))
#[1] 1587787200 1587704400 1587020400 1593489600

编辑

您可以将使用的数字向量转换apply为POSIXct

as.POSIXct(apply(df, 1, function(x) charDateToPosixct(x[1], "%m/%d/%y", x[2])), origin='1970-01-01')
[1] "2020-04-25 05:00:00 CDT" "2020-04-24 06:00:00 CDT" "2020-04-16 08:00:00 CDT" "2020-06-30 05:00:00 CDT"

或者，您可以使用lapply获取POSIXct对象列表。然后您可以与do.call c, 或Reduce（您必须使用，因为您在创建时as.character隐式使用）stringsAsFactors=TRUEdata.frame

do.call(c, lapply(seq_len(NROW(df)), function(i) {
  charDateToPosixct(as.character(df$date[i]), "%m/%d/%Y", as.character(df$timezone[i]))
}))

或者，如果你有 2 个向量，你甚至不需要data.frame

do.call(c, lapply(seq_along(chrDate), function(i) {
    charDateToPosixct(chrDate[i], "%m/%d/%Y", timeZone[i])
}))

或者，使用Reduce

Reduce(c, lapply(seq_along(chrDate), function(i) {
    charDateToPosixct(chrDate[i], "%m/%d/%Y", timeZone[i])
}))

我的时区是 CDT，所以上面的任何一个都给我

[1] "2012-04-24 23:00:00 CDT" "2012-04-24 00:00:00 CDT" "2012-04-16 02:00:00 CDT" "2012-06-29 23:00:00 CDT"
于 2012-07-18T21:59:38.700 回答