Montsouris

Data - meteo

Derniers jours

Du dernier mois

fread(paste0("https://www.meteo60.fr/stations-releves/station-mois-csv?station_id=07156&mois=", month(Sys.Date()), "&annee=", year(Sys.Date())-2000)) %>%
  select(-V7) %>%
  #filter(!is.na(mean_temp)) %>%
  mutate(mois = month(Sys.Date()),
         jour = parse_number(Jour),
         annee = paste0("20", year(Sys.Date())-2000) %>% as.numeric,
         date = as.Date(ISOdate(annee, mois, jour))) %>%
  select(-mois, - annee, -jour) %>%
  select(date, Jour, everything()) %>%
  arrange(desc(date)) %>%
  print_table_conditional()

date	Jour	Temperature_mini	Temperature_maxi	Temperature_moy	Precipitations	Ensoleillement
2025-08-23	Samedi 23	13.1	-	-	0.0*	-
2025-08-22	Vendredi 22	13.7	22.8	18.0	0.0	10h06
2025-08-21	Jeudi 21	15.9	24.7	20.0	0.0	7h30
2025-08-20	Mercredi 20	18.5	19.8	19.0	0.8	0h00
2025-08-19	Mardi 19	17.9	28.8	23.0	1.7	4h06
2025-08-18	Lundi 18	15.8	29.1	22.0	0.0	11h30
2025-08-17	Dimanche 17	16.3	28.4	22.0	0.0	13h00
2025-08-16	Samedi 16	18.9	28.4	23.5	0.0	9h24
2025-08-15	Vendredi 15	18.5	31.3	24.5	0.0	13h24
2025-08-14	Jeudi 14	20.0	30.5	25.0	0.0	10h24
2025-08-13	Mercredi 13	21.9	34.5	28.0	2.0	4h54
2025-08-12	Mardi 12	20.2	35.2	27.5	0.0	12h42
2025-08-11	Lundi 11	16.5	32.3	24.0	0.0	13h00
2025-08-10	Dimanche 10	14.7	28.8	21.5	0.0	13h42
2025-08-09	Samedi 09	18.2	27.6	22.5	0.0	13h24
2025-08-08	Vendredi 08	17.3	27.4	22.0	0.0	9h12
2025-08-07	Jeudi 07	15.1	29.9	22.5	0.0	12h48
2025-08-06	Mercredi 06	14.1	25.0	19.5	0.0	10h54
2025-08-05	Mardi 05	17.1	23.1	20.0	0.0*	11h06
2025-08-04	Lundi 04	18.5	29.5	24.0	4.0	6h48
2025-08-03	Dimanche 03	14.3	25.6	19.5	0.0	11h12
2025-08-02	Samedi 02	14.7	22.5	18.5	0.0	6h42
2025-08-01	Vendredi 01	17.9	23.5	20.5	1.5	8h06

Ensoleillement

2 dernières années

Journalière

montsouris %>%
  filter(date >= max(date) - years(2)) %>%
  mutate(minutes = str_extract(`Ensoleillement`, "\\d+(?=h)") %>% as.numeric() * 60 +
                    str_extract(`Ensoleillement`, "(?<=h)\\d+") %>% as.numeric()) %>%
  ggplot + geom_line(aes(x = date, y = minutes)) +
  theme_minimal() +
  scale_x_date(breaks = "1 month",
               labels = scales::date_format("%b %Y")) +
  theme(legend.position = c(0.8, 0.85),
        legend.title = element_blank(),
        legend.direction = "vertical",
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("Ensoleillement (minutes)") +
  scale_y_continuous(breaks = seq(0, 1000, 100))

Moyenne sur 7 Jours

montsouris %>%
  filter(date >= max(date) - years(2)) %>%
  mutate(minutes = str_extract(`Ensoleillement`, "\\d+(?=h)") %>% as.numeric() * 60 +
                    str_extract(`Ensoleillement`, "(?<=h)\\d+") %>% as.numeric()) %>%
  mutate(minutes = zoo::rollmean(minutes, k = 7, fill= NA, align = "right")) %>%
  ggplot + geom_line(aes(x = date, y = minutes)) +
  theme_minimal() +
  scale_x_date(breaks = "1 month",
               labels = scales::date_format("%b %Y")) +
  theme(legend.position = c(0.8, 0.85),
        legend.title = element_blank(),
        legend.direction = "vertical",
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("Ensoleillement (minutes)") +
  scale_y_continuous(breaks = seq(0, 1000, 100))

Moyenne sur 30 Jours

montsouris %>%
  filter(date >= max(date) - years(2)) %>%
  mutate(minutes = str_extract(`Ensoleillement`, "\\d+(?=h)") %>% as.numeric() * 60 +
                    str_extract(`Ensoleillement`, "(?<=h)\\d+") %>% as.numeric()) %>%
  mutate(minutes = zoo::rollmean(minutes, k = 30, fill= NA, align = "right")) %>%
  ggplot + geom_line(aes(x = date, y = minutes)) +
  theme_minimal() +
  scale_x_date(breaks = "1 month",
               labels = scales::date_format("%b %Y")) +
  theme(legend.position = c(0.8, 0.85),
        legend.title = element_blank(),
        legend.direction = "vertical",
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("Ensoleillement (minutes)") +
  scale_y_continuous(breaks = seq(0, 1000, 100))

1 dernière année

montsouris %>%
  filter(date >= max(date) - years(1)) %>%
  mutate(minutes = str_extract(`Ensoleillement`, "\\d+(?=h)") %>% as.numeric() * 60 +
                    str_extract(`Ensoleillement`, "(?<=h)\\d+") %>% as.numeric()) %>%
  ggplot + geom_line(aes(x = date, y = minutes)) +
  theme_minimal() +
  scale_x_date(breaks = "1 month",
               labels = scales::date_format("%b %Y")) +
  theme(legend.position = c(0.8, 0.85),
        legend.title = element_blank(),
        legend.direction = "vertical",
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("Ensoleillement (minutes)") +
  scale_y_continuous(breaks = seq(0, 1000, 100))

Température mini, maxi, moyenne

Tous

montsouris %>%
  select(date, `Temperature mini`,  `Temperature maxi`,  `Temperature moy.`) %>%
  gather(variable, value, -date) %>%
  ggplot + geom_line(aes(x = date, y = value, color = variable)) +
  theme_minimal() +
  scale_x_date(breaks = "6 months",
               labels = scales::date_format("%b %Y")) +
  theme(legend.position = c(0.8, 0.85),
        legend.title = element_blank(),
        legend.direction = "vertical",
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("Température") +
  scale_y_continuous(breaks = seq(-10, 100, 5))

2020-

montsouris %>%
  filter(date >= as.Date("2020-01-01")) %>%
  select(date, `Temperature mini`,  `Temperature maxi`,  `Temperature moy.`) %>%
  gather(variable, value, -date) %>%
  ggplot + geom_line(aes(x = date, y = value, color = variable)) +
  theme_minimal() +
  scale_x_date(breaks = "6 months",
               labels = scales::date_format("%b %Y")) +
  theme(legend.position = c(0.8, 0.85),
        legend.title = element_blank(),
        legend.direction = "vertical",
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("Température") +
  scale_y_continuous(breaks = seq(-10, 100, 5))

2023-

montsouris %>%
  filter(date >= as.Date("2023-01-01")) %>%
  select(date, `Temperature mini`,  `Temperature maxi`,  `Temperature moy.`) %>%
  gather(variable, value, -date) %>%
  ggplot + geom_line(aes(x = date, y = value, color = variable)) +
  theme_minimal() +
  scale_x_date(breaks = "1 month",
               labels = scales::date_format("%b %Y")) +
  theme(legend.position = c(0.8, 0.85),
        legend.title = element_blank(),
        legend.direction = "vertical",
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("Température") +
  scale_y_continuous(breaks = seq(-10, 100, 5))

2 dernières années

montsouris %>%
  filter(date >= max(date) - years(2)) %>%
  select(date, `Temperature mini`,  `Temperature maxi`,  `Temperature moy.`) %>%
  gather(variable, value, -date) %>%
  ggplot + geom_line(aes(x = date, y = value, color = variable)) +
  theme_minimal() +
  scale_x_date(breaks = "1 month",
               labels = scales::date_format("%b %Y")) +
  theme(legend.position = c(0.8, 0.85),
        legend.title = element_blank(),
        legend.direction = "vertical",
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("Température") +
  scale_y_continuous(breaks = seq(-10, 100, 5))

1 dernière année

montsouris %>%
  filter(date >= max(date) - years(1)) %>%
  select(date, `Temperature mini`,  `Temperature maxi`,  `Temperature moy.`) %>%
  gather(variable, value, -date) %>%
  ggplot + geom_line(aes(x = date, y = value, color = variable)) +
  theme_minimal() +
  scale_x_date(breaks = "1 month",
               labels = scales::date_format("%b %Y")) +
  theme(legend.position = c(0.8, 0.85),
        legend.title = element_blank(),
        legend.direction = "vertical",
        axis.text.x = element_text(angle = 45, vjust = 1, hjust = 1)) +
  xlab("") + ylab("Température") +
  scale_y_continuous(breaks = seq(-10, 100, 5))