Question

我有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

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

Answer 1

在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=TRUE时隐式使用了data.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"

如何在不更改功能的情况下使用R apply

1 个答案: