我有一个data.frame对象,其中包含年,月和日的单独列。我想将其转换为POSIXlt类型对象的一列。所以我的data.frame看起来像
test_df <- data.frame(matrix(data = as.integer(c(1900,1900,1900,1,1,1,1,2,3)),
nrow = 3, ncol = 3))
colnames(test_df) <- c("Year","Month","Day")
如果我尝试以以下方式转换单个行
paste(test_df$Year[1], test_df$Month[1], test_df$Day[1], sep = "/") %>%
as.factor() %>%
strptime(format = "%Y/%m/%d")
我最终得到一个POSIXlt类对象。但是,如果我尝试使用这样的应用功能
test_df$date <- apply(test_df, 1,
function(x)
strptime(as.factor(paste(x[1], x[2], x[3],
sep = "/")),
format = "%Y/%m/%d"))
我最终在该新列中获得了列表对象。使用apply时我该怎么做才能维护POSIXlt类?
答案 0 :(得分:1)
在数据帧中使用POSIXct
代替POSIXlt
是更好的做法。以下应该做同样的事情:
library(dplyr)
df <- test_df %>%
mutate(date = as.POSIXct(paste(Year, Month, Day), format = "%Y %m %d"))
str(df)
# 'data.frame': 3 obs. of 4 variables:
# $ Year : int 1900 1900 1900
# $ Month: int 1 1 1
# $ Day : int 1 2 3
# $ date : POSIXct, format: "1900-01-01" "1900-01-02" "1900-01-03"