Участник:Vakhrushevavs521/R lesson - История изменений

Vakhrushevavs521 в 15:21, 9 октября 2026

2026-10-09T15:21:18Z

← Предыдущая версия		Версия от 18:21, 9 октября 2026
Строка 67:		Строка 67:

	</syntaxhighlight>		</syntaxhighlight>

			== Основные глаголы преобразования данных ==
			{{Шаблон:TidyR}}

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

Vakhrushevavs521 в 15:20, 9 октября 2026

2026-10-09T15:20:08Z

← Предыдущая версия		Версия от 18:20, 9 октября 2026
Строка 1:		Строка 1:
	Видоизмененный код урока на языке R[[Как изучить данные PISA learningtower package]], добавлены новые страны и произведена визуализация результатов		Видоизмененный код урока на языке R [[Как изучить данные PISA learningtower package]], добавлены новые страны и произведена визуализация результатов

Vakhrushevavs521 в 15:19, 9 октября 2026

2026-10-09T15:19:57Z

← Предыдущая версия		Версия от 18:19, 9 октября 2026
Строка 1:		Строка 1:
	Видоизмененный код урока на языке R, добавлены новые страны и произведена визуализация результатов		Видоизмененный код урока на языке R[[Как изучить данные PISA learningtower package]], добавлены новые страны и произведена визуализация результатов


	[[Файл:Средние взвешенные баллы PISA 2015.png \| 600px]]		[[Файл:Средние взвешенные баллы PISA 2015.png \| 600px]]

Vakhrushevavs521 в 15:17, 9 октября 2026

2026-10-09T15:17:13Z

← Предыдущая версия		Версия от 18:17, 9 октября 2026
Строка 1:		Строка 1:
	Видоизмененный код урока на языке R, добавлены новые страны и произведена визуализация результатов		Видоизмененный код урока на языке R, добавлены новые страны и произведена визуализация результатов

	Файл:Средние взвешенные баллы PISA 2015.png		[[Файл:Средние взвешенные баллы PISA 2015.png \| 600px]]

	<syntaxhighlight lang="R" line>		<syntaxhighlight lang="R" line>

Vakhrushevavs521 в 15:15, 9 октября 2026

2026-10-09T15:15:07Z

← Предыдущая версия		Версия от 18:15, 9 октября 2026
Строка 1:		Строка 1:
	Видоизмененный код урока на языке R, добавлены новые страны и произведена визуализация результатов		Видоизмененный код урока на языке R, добавлены новые страны и произведена визуализация результатов

			Файл:Средние взвешенные баллы PISA 2015.png

	<syntaxhighlight lang="R" line>		<syntaxhighlight lang="R" line>

Vakhrushevavs521 в 15:12, 9 октября 2026

2026-10-09T15:12:43Z

← Предыдущая версия		Версия от 18:12, 9 октября 2026
Строка 1:		Строка 1:
	~~Здесь будет пример кода~~ на языке R		Видоизмененный код урока на языке R, добавлены новые страны и произведена визуализация результатов


Строка 21:		Строка 21:

	data_proc <- student_data_2015 %>%		data_proc <- student_data_2015 %>%
	filter(country %in% c("RUS", "USA", "SGP")) %>%		filter(country %in% c("RUS", "USA", "SGP", "AUS", "CRI", "CZE")) %>%
	group_by(country, gender) %>%		group_by(country, gender) %>%
	summarise(		summarise(
Строка 33:		Строка 33:
	print(data_proc)		print(data_proc)

	ggplot(student_data_2015 %>% filter(country %in% c("RUS", "USA", "SGP")),		ggplot(student_data_2015 %>% filter(country %in% c("RUS", "USA", "SGP", "AUS", "CRI", "CZE")),
	aes(x = country, y = math, fill = gender)) +		aes(x = country, y = math, fill = gender)) +
	geom_boxplot(alpha = 0.7) +		geom_boxplot(alpha = 0.7) +
Строка 42:		Строка 42:

	#----		#----
	ggplot(student_data_2012 %>% filter(country %in% c("RUS", "USA", "SGP")),		ggplot(student_data_2012 %>% filter(country %in% c("RUS", "USA", "SGP", "AUS", "CRI", "CZE")),
	aes(x = country, y = math, fill = gender)) +		aes(x = country, y = math, fill = gender)) +
	geom_boxplot(alpha = 0.7) +		geom_boxplot(alpha = 0.7) +

Patarakin в 14:46, 9 октября 2026

2026-10-09T14:46:33Z

← Предыдущая версия		Версия от 17:46, 9 октября 2026
Строка 1:		Строка 1:
	Здесь будет пример кода на языке R		Здесь будет пример кода на языке R


			<syntaxhighlight lang="R" line>
			getwd()
			#------------
			library(learningtower);
			library(dplyr)
			library(ggplot2)
			#----

			student_data_2015 <- load_student(2015)
			student_data_2012 <- load_student(2012)

			str(student_data_2015)

			glimpse(student_data_2015)
			summary(student_data_2015)

			glimpse(student_data_2015)

			data_proc <- student_data_2015 %>%
			filter(country %in% c("RUS", "USA", "SGP")) %>%
			group_by(country, gender) %>%
			summarise(
			mean_math = weighted.mean(math, stu_wgt, na.rm = TRUE),
			mean_science = weighted.mean(science, stu_wgt, na.rm = TRUE),
			n = n(),
			.groups = "drop"
			) %>%
			na.omit()

			print(data_proc)

			ggplot(student_data_2015 %>% filter(country %in% c("RUS", "USA", "SGP")),
			aes(x = country, y = math, fill = gender)) +
			geom_boxplot(alpha = 0.7) +
			labs(title = "Распределение баллов по математике (PISA 2015)",
			x = "Страна", y = "Баллы по математике", fill = "Пол") +
			theme_minimal() +
			theme(legend.position = "bottom")

			#----
			ggplot(student_data_2012 %>% filter(country %in% c("RUS", "USA", "SGP")),
			aes(x = country, y = math, fill = gender)) +
			geom_boxplot(alpha = 0.7) +
			labs(title = "Распределение баллов по математике (PISA 2012)",
			x = "Страна", y = "Баллы по математике", fill = "Пол") +
			theme_minimal() +
			theme(legend.position = "bottom")

			##---

			data_long <- data_proc %>%
			tidyr::pivot_longer(cols = starts_with("mean_"), names_to = "subject", values_to = "score") %>%
			mutate(subject = recode(subject, "mean_math" = "Математика", "mean_science" = "Наука"))

			ggplot(data_long, aes(x = country, y = score, fill = gender)) +
			geom_col(position = "dodge") +
			facet_wrap(~ subject) +
			labs(title = "Средние взвешенные баллы PISA 2015",
			x = "Страна", y = "Средний балл", fill = "Пол") +
			theme_minimal() +
			theme(legend.position = "bottom")

			</syntaxhighlight>

Patarakin: Новая страница: «Здесь будет пример кода на языке R»

2026-10-09T14:43:57Z

Новая страница: «Здесь будет пример кода на языке R»

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

Здесь будет пример кода на языке R