Анализ погоды за последнюю неделю - История изменений

Vladislav Leontev: Vladislav Leontev переименовал страницу Проект Леонтьев R2 в Анализ погоды за последнюю неделю: Название с ошибкой

2026-04-14T08:03:35Z

Vladislav Leontev переименовал страницу Проект Леонтьев R2 в Анализ погоды за последнюю неделю: Название с ошибкой

← Предыдущая версия		Версия от 11:03, 14 апреля 2026
(нет различий)

Vladislav Leontev в 07:37, 14 апреля 2026

2026-04-14T07:37:24Z

← Предыдущая версия		Версия от 10:37, 14 апреля 2026
Строка 1:		Строка 1:
			== Описание проекта ==
			Анализ погоды за последнюю неделю.

	<syntaxhighlight lang="r">		<syntaxhighlight lang="r">
	library(httr)		library(httr)
Строка 83:		Строка 86:
	height = 10)		height = 10)
	</syntaxhighlight>		</syntaxhighlight>


			== Результаты ==
	[[Файл:Таблица Погода.png\|обрамить]]		[[Файл:Таблица Погода.png\|обрамить]]
	[[Файл:График Погода.png\|обрамить]]		[[Файл:График Погода.png\|обрамить]]

Vladislav Leontev в 06:55, 14 апреля 2026

2026-04-14T06:55:33Z

← Предыдущая версия		Версия от 09:55, 14 апреля 2026
Строка 85:		Строка 85:
	[[Файл:Таблица Погода.png\|обрамить]]		[[Файл:Таблица Погода.png\|обрамить]]
	[[Файл:График Погода.png\|обрамить]]		[[Файл:График Погода.png\|обрамить]]


			[[Категория:BigDataWorks]]
			[[Категория: RRecipe]]

Vladislav Leontev в 23:04, 13 апреля 2026

2026-04-13T23:04:51Z

← Предыдущая версия		Версия от 02:04, 14 апреля 2026
Строка 84:		Строка 84:
	</syntaxhighlight>		</syntaxhighlight>
	[[Файл:Таблица Погода.png\|обрамить]]		[[Файл:Таблица Погода.png\|обрамить]]
	[[Файл:График Погода.png\|~~мини~~]]		[[Файл:График Погода.png\|обрамить]]

Vladislav Leontev в 23:04, 13 апреля 2026

2026-04-13T23:04:37Z

← Предыдущая версия		Версия от 02:04, 14 апреля 2026
Строка 83:		Строка 83:
	height = 10)		height = 10)
	</syntaxhighlight>		</syntaxhighlight>
	[[Файл:Таблица Погода.png\|~~мини~~]]		[[Файл:Таблица Погода.png\|обрамить]]
	[[Файл:График Погода.png\|мини]]		[[Файл:График Погода.png\|мини]]

Vladislav Leontev: Новая страница: « library(httr) library(jsonlite) library(ggplot2) library(dplyr) library(patchwork) options(encoding = "UTF-8") start_date <- as.character(Sys.Date() - 8) # Начало периода (7 дней назад) end_date <- as.character(Sys.Date() - 1) # Конец периода (вчера) url <- paste0( "https://archive-api.open-meteo.com/v1/archive?", "latitude=55.7558&longitude=37.6173", "&start_date=", start_date,...»

2026-04-13T23:04:03Z

Новая страница: «<syntaxhighlight lang="r"> library(httr) library(jsonlite) library(ggplot2) library(dplyr) library(patchwork) options(encoding = "UTF-8") start_date <- as.character(Sys.Date() - 8) # Начало периода (7 дней назад) end_date <- as.character(Sys.Date() - 1) # Конец периода (вчера) url <- paste0( "https://archive-api.open-meteo.com/v1/archive?", "latitude=55.7558&longitude=37.6173", "&start_date=", start_date,...»

Новая страница

<syntaxhighlight lang="r">
library(httr)
library(jsonlite)
library(ggplot2)
library(dplyr)
library(patchwork)

options(encoding = "UTF-8")

start_date <- as.character(Sys.Date() - 8) # Начало периода (7 дней назад)
end_date <- as.character(Sys.Date() - 1) # Конец периода (вчера)

url <- paste0(
"https://archive-api.open-meteo.com/v1/archive?",
"latitude=55.7558&longitude=37.6173",
"&start_date=", start_date,
"&end_date=", end_date,
"&hourly=temperature_2m,precipitation,cloudcover,windspeed_10m",
"&timezone=Europe/Moscow"
)

res <- GET(url) # Отправка запроса

stop_for_status(res) # Остановка, если ошибка

text <- content(res, "text", encoding = "UTF-8") # Извлекаем текст ответа
json <- fromJSON(text)

df <- data.frame(
datetime = json$hourly$time,
temp = json$hourly$temperature_2m,
precip = json$hourly$precipitation,
cloud = json$hourly$cloudcover,
wind = json$hourly$windspeed_10m
)

df$datetime <- as.POSIXct(df$datetime, format = "%Y-%m-%dT%H:%M", tz = "Europe/Moscow")

df$date <- as.Date(df$datetime) # Выделяем дату
df$hour <- format(df$datetime, "%H:%M") # Выделяем час

df_table <- df %>%
select(date, hour, temp, precip, cloud, wind) %>% # Выбираем нужные колонки
arrange(date, hour) # Сортировка по времени

print(head(df_table, 20)) # Вывод первых строк
View(df_table) # открытие таблицы

# Графики
plot_temp <- ggplot(df, aes(datetime, temp)) +
geom_line(color = "red") +
theme_minimal() +
labs(title = "Температура (7 дней)", x = "", y = "°C")

plot_precip <- ggplot(df, aes(datetime, precip)) +
geom_col(fill = "blue") +
theme_minimal() +
labs(title = "Осадки (7 дней)", x = "", y = "mm")

plot_cloud <- ggplot(df, aes(datetime, cloud)) +
geom_line(color = "gray40") +
theme_minimal() +
labs(title = "Облачность (7 дней)", x = "", y = "%")

plot_wind <- ggplot(df, aes(datetime, wind)) +
geom_line(color = "darkgreen") +
theme_minimal() +
labs(title = "Ветер (7 дней)", x = "", y = "m/s")

final_plot <- (plot_temp | plot_precip) / # Объединение графиков
(plot_cloud | plot_wind)

print(final_plot)

ggsave("moscow_weather_7days.png", # Сохранение картинки
final_plot,
width = 14,
height = 10)
</syntaxhighlight>
[[Файл:Таблица Погода.png|мини]]
[[Файл:График Погода.png|мини]]