在两个时间段之间设置数据帧的子集答案

【问题标题】：Subset a dataframe between two time periods在两个时间段之间设置数据帧的子集
【发布时间】：2013-02-20 13:51:53
【问题描述】：

如果我有一个示例数据框：

Date <- c("05/12/2012 05:17:00", "05/12/2012 06:10:00", "05/12/2012 06:12:00", "05/12/2012 06:14:00", 
      "06/12/2012 05:25:00", "06/12/2012 06:55:00", "06/12/2012 06:19:00", "06/12/2012 08:00:00",
      "07/12/2012 05:00:00", "07/12/2012 05:19:00", "07/12/2012 06:04:00",
      "07/12/2012 06:59:00")
Date <- strptime(Date, "%d/%m/%Y %H:%M")
a <- sample(12)
hour <- as.numeric(format(Date, "%H"))
min <- as.numeric(format(Date, "%M")) / 60
hours_mins <- hour + min

df1 <- data.frame(Date,a,hour, min, hours_mins, stringsAsFactors = FALSE)

我希望能够对我的数据框进行子集化，只留下 05:15 到 06:15 之间的数据（在任何一天）。

我将小时和分钟转换为十进制变量，并希望我可以执行以下操作：

df1[df1$hours_mins >= '5.25' & df1$hours_mins < '6.25']

... 可惜这行不通。有人有什么建议吗？

【问题讨论】：

缺少逗号。试试 df1[df1$hours_mins >= 5.25 & df1$hours_mins

标签： r subset

【解决方案1】：

去掉引号，最后加逗号

df1[df1$hours_mins >= 5.25 & df1$hours_mins < 6.25,]

【讨论】：

【解决方案2】：

实际上，POSIXlt 对象的优点之一是它自动携带关键的日期信息。

Date1 <- strptime(c("05/12/2012 05:17:00", "05/12/2012 06:10:00", "05/12/2012 06:12:00", "05/12/2012 06:14:00", 
          "06/12/2012 05:25:00", "06/12/2012 06:55:00", "06/12/2012 06:19:00", "06/12/2012 08:00:00",
          "07/12/2012 05:00:00", "07/12/2012 05:19:00", "07/12/2012 06:04:00",
          "07/12/2012 06:59:00"), "%d/%m/%Y %H:%M")
class(Date1)
a <- sample(12)

#please note since strptime() is used Date1 contains "hour", "min" etc
df1 <- data.frame(Date1, hr=Date1$hour, min=Date1$min, cum_hrs=Date1$min/60+Date1$hour, a, stringsAsFactors = FALSE)
df1[(df1$hr + df1$min/60>= 5.25) & (df1$hr + df1$min/60< 6.25),]

此外，如果您想要总小时数（以小数形式），我在数据框中添加了一列。我希望这能满足您的需求。

【讨论】：