2015-07-21 85 views
-2

我試圖根據時間(10分鐘)「剪切」我的數據幀。將時間分配給r中的10分鐘間隔組

dat <- read.table(text="Time 
4:30:08 AM 
3:37:00 PM 
5:15:38 PM 
5:16:41 PM 
5:17:05 PM 
5:17:25 PM 
5:48:48 PM", header=TRUE, sep="\t") 

我希望它是這樣的:

Time  Group 
4:30:08 AM 4:30 
3:37:00 PM 3:30 
5:15:38 PM 5:10 
5:16:41 PM 5:10 
5:17:05 PM 5:10 
5:17:25 PM 5:10 
5:48:48 PM 5:50 

謝謝!

+1

嘗試'df1 $ Group < - format(as.POSIXct(cut(strptime(df1 $ Time,'%I:%M:%S%p'),breaks = '10 min')),'%I :%M')' – akrun

+1

根據時間列和相應組中的條目,最後一個不會是'5:40'嗎? – akrun

回答

1

使用編輯輸入我的問題提出:

> dat$Group <- paste0(substr(dat$Time,1,3), "0") 
> dat 
     Time Group 
1 4:30:08 AM 4:30 
2 3:37:00 PM 3:30 
3 5:15:38 PM 5:10 
4 5:16:41 PM 5:10 
5 5:17:05 PM 5:10 
6 5:17:25 PM 5:10 
7 5:48:48 PM 5:40 

誠然,我們不知道知道什麼是數據實際上看起來像,但我認爲這不太可能的海報有它在實際R日期時間或時間等級。至少這可能會引起一些澄清。