通过加+ 8h处理数据框中的日期

Question

我有一个数据框列，其日期格式为%Y-%m-%d %H:%M:%S 。 我想做的是将+ 8h添加到每个日期，然后将格式更改为%Y-%m-%d ，以使第二天16:00或之后的所有内容都显示出来。 这是我的数据框的摘录：

鸣叫：

 Company,Datetime_UTC,Negative,Neutral,Positive,Volume
 AXP,2013-06-01 16:00:00+00:00,0,2,0,2
 AXP,2013-06-01 17:00:00+00:00,0,2,0,2
 AXP,2013-06-01 22:00:00+00:00,0,1,0,1
 AXP,2013-06-02 05:00:00+00:00,0,1,0,1

我的代码：

 Tweets$Datetime_UTC <- as.POSIXct(Tweets$Datetime_UTC, format='%Y-%m-%d %H:%M:%S')
 Tweets$Datetime_UTC <- as.integer(Tweets$Datetime_UTC)
 Tweets$Datetime_UTC <- (Tweets$Datetime_UTC + 28800) / 86400
 Tweets$Datetime_UTC <- as.Date(Tweets$Datetime_UTC, origin="1970-01-01")

如您所见，我首先将日期更改为POSIXct，然后将其更改为整数，以便可以对其进行操作。 之后，我加上28800（8h = 28800sec），然后除以86400（24h = 86400sec）。 然后，我将其更改为最新版本。

期望的结果：

 Company,Datetime_UTC,Negative,Neutral,Positive,Volume
 AXP,2013-06-02,0,2,0,2
 AXP,2013-06-02,0,2,0,2
 AXP,2013-06-02,0,1,0,1
 AXP,2013-06-02,0,1,0,1

实际结果：

 Company,Datetime_UTC,Negative,Neutral,Positive,Volume
 AXP,2013-06-01,0,2,0,2
 AXP,2013-06-01,0,2,0,2
 AXP,2013-06-02,0,1,0,1
 AXP,2013-06-02,0,1,0,1

不知何故，前两行的日期有误，而第三行正确地更改为2013-06-02 。 我需要改进什么才能使其在每一行中都能正常工作？

提前致谢！！ :-)

Answer 1

我不认为您需要经历整个过程，像下面这样简单的事情会起作用吗？ 注意我已经做了Tweets$Datetime_UTC <- as.POSIXct(Tweets$Datetime_UTC, format='%Y-%m-%d %H:%M:%S')

Tweets$Datetime_UTC <- as.Date(Tweets$Datetime_UTC + 28800)

Tweets
#Company Datetime_UTC Negative Neutral Positive Volume
#1     AXP   2013-06-02        0       2        0      2
#2     AXP   2013-06-02        0       2        0      2
#3     AXP   2013-06-02        0       1        0      1
#4     AXP   2013-06-02        0       1        0      1

Answer 2

您可以使用lubridate软件包并执行以下操作：

library(lubridate)    
z$Datetime_UTC = as.Date(as.POSIXct( z$Datetime_UTC) + hm("8:00") )


> z$Datetime_UTC
[1] "2013-06-02" "2013-06-02" "2013-06-02" "2013-06-02"

其中z是您的数据框。