日，月削減工作，但小時削減導致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中....我希望這有助於！