What exactly are you after?
Because your original dataset looks like this (nothing like what your example):
# A tibble: 29,423 × 7
Date Time Day BC6 BC1 BC6_micro BC1_micro
<date> <time> <dbl> <dbl> <dbl> <dbl> <dbl>
1 2022-01-01 00'00" 1 1593 1613 1.59 1.61
2 2022-01-01 01'00" 1 1573 1571 1.57 1.57
3 2022-01-01 02'00" 1 1645 1632 1.64 1.63
4 2022-01-01 03'00" 1 2425 2270 2.42 2.27
5 2022-01-01 04'00" 1 3131 3039 3.13 3.04
6 2022-01-01 05'00" 1 3443 3399 3.44 3.40
7 2022-01-01 06'00" 1 2696 2776 2.70 2.78
8 2022-01-01 07'00" 1 2025 2230 2.02 2.23
9 2022-01-01 08'00" 1 1045 1564 1.04 1.56
10 2022-01-01 09'00" 1 742 1325 0.742 1.32
# … with 29,413 more rows
This is summarised by hour :
library(tidyverse)
library(lubridate)
magee %>%
mutate(new_date = ymd_hms(as.character(paste(Date, Time))),
date_time = floor_date(new_date, "hour")) %>%
group_by(date_time) %>%
summarise(BC6_h = mean(BC6_micro, na.rm = TRUE))
# A tibble: 491 × 2
date_time BC6_h
<dttm> <dbl>
1 2022-01-01 00:00:00 1.02
2 2022-01-01 01:00:00 0.120
3 2022-01-01 02:00:00 0.136
4 2022-01-01 03:00:00 0.0369
5 2022-01-01 04:00:00 0.0328
6 2022-01-01 05:00:00 0.0312
7 2022-01-01 06:00:00 0.0511
8 2022-01-01 07:00:00 0.0589
9 2022-01-01 08:00:00 0.0672
10 2022-01-01 09:00:00 0.285
Next time, provide a reproducible dataset: