Max- und Min-Werte basierend auf Tagesdaten basierend auf Daten

Question

Ich habe einen Datenrahmen mit vielen Tagen Daten und ich wan, um die maximale und minimale pro Tag zu erhalten, aber ich bekomme die gleiche df wie der Start zeigt eine Stunde Wert. Die ursprüngliche df sieht wie folgt aus:

    date temperature 
1: 2006-04-17 00:00:00 12.67833 
2: 2006-04-17 01:00:00 12.14133 
3: 2006-04-17 02:00:00 10.36833 
4: 2006-04-17 03:00:00 10.78600 
5: 2006-04-17 04:00:00 10.76967 
6: 2006-04-17 05:00:00 10.92467 

Und im diese bekommen:

    date  Max  Min 
1: 2006-04-17 00:00:00 12.67833 12.67833 
2: 2006-04-17 01:00:00 12.14133 12.14133 
3: 2006-04-17 02:00:00 10.36833 10.36833 
4: 2006-04-17 03:00:00 10.78600 10.78600 
5: 2006-04-17 04:00:00 10.76967 10.76967 
6: 2006-04-17 05:00:00 10.92467 10.92467 

Im den nächsten Code verwendet:

library(lubridate) 
datatemp<- read.csv("04_2006.csv", header = T) 
datatemp$date_time<-parse_date_time(datatemp$date_time,orders = "mdy HMS") 
temp_aveg<-aggregate(list(temperature = datatemp$temp), 
      list(date = cut(datatemp$date_time, "1 hour")), 
      mean) 
library(data.table) 
Tmaxmin<-setDT(temp_aveg)[, list(Max=max(temperature), Min=min(temperature)), by=list(date)] 

Ich weiß nicht, was im fehlt?

Answer 1

Sie gruppieren sowohl das Datum als auch die Uhrzeit und nicht nur das Datum. Eine Lösung mit lubridate und dplyr.

library(lubridate) 
library(dplyr)  

datatemp$date <- date(datatemp$date_time) 
datatemp <- na.omit(datatemp) 
output <- datatemp %>% 
    group_by(date) %>% 
    summarise(max_val = max(temperature), 
      min_val = min(temperature))