我正在处理大型数据集,下面显示了一个示例。对于大多数我需要处理的个人文件,应该有一天以上的数据。子集数据框由大部分日常记录组成
Date <- c("05/12/2012 05:00:00", "05/12/2012 06:00:00", "05/12/2012 07:00:00",
"05/12/2012 08:00:00", "06/12/2012 07:00:00", "06/12/2012 08:00:00",
"07/12/2012 05:00:00", "07/12/2012 06:00:00", "07/12/2012 07:00:00",
"07/12/2012 08:00:00")
Date <- strptime(Date, "%d/%m/%Y %H:%M")
c <- c("0","1","5","4","6","8","0","3","10","6")
c <- as.numeric(c)
df1 <- data.frame(Date,c,stringsAsFactors = FALSE)
我希望只剩下一天的数据。这一天将通过获得当天数据点数最多的方式来选择。如果由于任何原因连续两天(以最大数据点数),我希望选择记录最高单个值的那一天。
在上面给出的示例数据框中,我将留下12月7日。它具有4个数据点(如同12月5日那样),但是它具有记录在这两天(即10天)以外的最高值。