日，月削减工作，但小时削减导致cut.default错误（as.character（tweet_dat $ datetime），breaks =“小时”）：'x'必须是数字

Question

您好，我试图将数据削减到每月，每周，每日每时使用套以下时间戳数据

[1] "2015-12-31 13:54:00 AEDT" "2015-12-30 12:41:00 AEDT" "2015-12-30 07:14:00 AEDT" "2015-12-30 03:07:00 AEDT" 
[5] "2015-12-30 02:27:00 AEDT" "2015-12-29 17:09:00 AEDT" "2015-12-29 17:07:00 AEDT" "2015-12-29 16:46:00 AEDT" 
[9] "2015-12-29 16:17:00 AEDT" "2015-12-29 15:10:00 AEDT" "2015-12-29 14:22:00 AEDT" "2015-12-29 12:17:00 AEDT" 
[13] "2015-12-28 12:45:00 AEDT" "2015-12-28 11:13:00 AEDT" "2015-12-27 21:25:00 AEDT" "2015-12-27 20:25:00 AEDT" 

我用下面从要素转换为posixlt日期格式：

td$datetime <- as.POSIXlt(as.character(td$time), format="%Y-%m-%d %H:%M") 

str(td) 
datetime   : POSIXlt, format: "2015-12-31 13:54:00" "2015-12-30 12:41:00" "2015-12-30 07:14:00" "2015-12-30 03:07:00" ... 

以下3都做工精细：

# create a column for month time break 
td$month <- as.Date(cut(td$datetime, breaks = "month")) 

# create a column for weekly time break 
td$week <- as.Date(cut(td$datetime, breaks = "week", start.on.monday = FALSE)) 

# create a column for daily time break 
td$day <- as.Date(cut(td$datetime, breaks = "day")) 

但是当我做每小时，这是行不通的

td$hour <- as.Date(cut(as.character(td$datetime), breaks = "hour")). 
I get the following error 
Error in cut.default(as.character(td$datetime), breaks = "Hour") : 
    'x' must be numeric 

Answer 1

我找到答案该作品，并希望分享！

td$hour2 <- as.POSIXct(cut(td$datetime, breaks = "hour")) #finally - a cut works 

关键是使用POSITct剪切而不是剪切，这似乎没有提取小时粒度。

我做一个汇总，这样测试它：

td_freq_day_hour <- table(format(td$hour2,"%d-%b-%Y %H:%M")) 

，并获得每小时以下数为例：

   1     2     
27-Dec-2015 04:00 27-Dec-2015 20:00 

Answer 2

试试这个，它是将日期转换为字符的特殊格式和切后发生，因此它不会与破发点冲突。 （至少不是我上面的代码进行了测试。

td$hour <- as.Date.character(cut(td$datetime, breaks = "hour"))

我没有得到什么，我想我会得到之前使用这个（从来没有切片时间，在这种方式），但它的工作没有错误或NA的，它似乎与复制和粘贴时，你的代码上述制造直列。

日期&时间是最讨厌的事惹R中....我希望这有助于！