I suggest creating a new field from your date time then group and summarise by date:

df2 <- df %>%
  mutate(Date=as.Date(Date_Time_Variable)) %>%
    group_by(Date) %>%
      summarise(Mean_Temp=mean(TemP_Variable, na.rm=T))