2015-07-21 112 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日期时间或时间等级。至少这可能会引起一些澄清。