Question

我有一个PosixCt格式的大型日期数据框。我的目标很简单：将所有日期更改为一天 - 2016-05-01 - 同时保持所有时间相同。如果我将sample$newtime转换为字符，我将如何继续替换字符串（每行）中的前10个字符？

> class(sample$newtime)
[1] "POSIXct" "POSIXt" 

> head(sample)
                      newtime

1 2016-05-01 02:25:34
2 2016-05-01 02:20:23
3 2016-05-01 02:13:58
4 2016-05-01 02:10:33
5 2016-05-01 02:07:36
6 2016-05-01 02:03:01
> dim(sample)

    [1] 92020     1
> range(sample$newtime)
[1] "2015-01-01 01:04:29 MSK" "2016-06-15 12:45:03 MSK"

Answer 1

您可以使用date包中的lubridate功能，例如：

library(lubridate)
x = Sys.time()
y = Sys.time()

x
# [1] "2016-07-11 09:16:40 EDT"
y
# [1] "2016-07-11 09:16:45 EDT"

vec <- c(x, y)
date(vec)
# [1] "2016-07-11" "2016-07-11"
date(vec) <- "2015-01-01"           # change the date here
vec
# [1] "2015-01-01 09:16:40 EST" "2015-01-01 09:16:45 EST"

Answer 2

以下是一些替代方案。每个都将日期部分更改为2016-06-01。没有包使用。

1）sub 用日期替换前导非空格并转换回POSIXct。请注意sub会自动将p转换为字符，因此我们不需要明确地将其转换为字符。没有使用包裹：

as.POSIXct(sub("\\S+", "2016-06-01", p))

1a）这是一个类似的选择。替换将其转换回POSIXct：

replace(p, TRUE, sub("\\S+", "2016-06-01", p))

2）算术另一种可能性是减去日期并添加新日期。如果我们不使用format，可能会出现时区问题：

p - as.POSIXct(as.Date(format(p))) + as.POSIXct("2016-06-01")

3）POSIXlt列表这将转换为POSIXlt列表，重置年份，星期一和日期组件，并在最后一行转换回来。

toList <- function(x) unclass(as.POSIXlt(x))
m <- modifyList(toList(p), toList("2016-06-01")[c("year", "mon", "mday")])
as.POSIXct(structure(m, class = "POSIXlt"))

4）POSIXlt 这会转换为POSIXlt并直接设置组件：

with(unclass(as.POSIXlt("2016-06-01")), {
    p.lt <- as.POSIXlt(p)
    p.lt$year <- year
    p.lt$mon <- mon
    p.lt$mday <- mday
    as.POSIXct(p.lt)
})

注意：以上可重复形式的上述所有解决方案中使用的输入p为：

p <- structure(c(1462083934, 1462083623, 1462083238, 1462083033, 1462082856, 
    1462082581), class = c("POSIXct", "POSIXt"), tzone = "")

仅替换PosixCt类中的日期

2 个答案: