问用不跟随0- 24的开始和结束的小时数据计算平均日降雨量。

EN

library(lubridate)
library(tidyverse)

df %>% 
  filter(row_number() != 1:20) %>% 
  mutate(x_axis = trimws(`Date and time`, whitespace = ' .*')) %>% 
  group_by(group_id = cumsum(Hour == 20)) %>% 
  mutate(mean20_20 = mean(`Rainfall mm`)) %>% 
  slice(1) %>% 
  drop_na() %>% 
  ggplot(aes(x = x_axis, y=mean20_20, group=1)) +
  geom_point(size= 1, color = "blue")+
  geom_line(color = "red")+ 
  theme_minimal()+
  theme(axis.text.x = element_text(angle = 45, vjust = 0.5, hjust=1))