Как изучить данные PISA learningtower package - История изменений

Patarakin: /* 2012 */

2026-03-03T11:33:05Z

2012

← Предыдущая версия		Версия от 14:33, 3 марта 2026
Строка 77:		Строка 77:
	== 2012 ==		== 2012 ==

			[[Файл:Pisa2012.png\|600px]]

	== Основные глаголы преобразования данных ==		== Основные глаголы преобразования данных ==

Patarakin в 11:30, 3 марта 2026

2026-03-03T11:30:02Z

← Предыдущая версия		Версия от 14:30, 3 марта 2026
Строка 6:		Строка 6:
	\|Environment=R		\|Environment=R
	}}		}}


	<syntaxhighlight lang="R" line>		<syntaxhighlight lang="R" line>
	getwd()		getwd()
Строка 15:		Строка 17:

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

	str(student_data_2015)		str(student_data_2015)
Строка 43:		Строка 46:
	theme_minimal() +		theme_minimal() +
	theme(legend.position = "bottom")		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 %>%		data_long <- data_proc %>%
Строка 58:		Строка 72:
	</syntaxhighlight>		</syntaxhighlight>

	== Изображение ==		== Изображение 2015 ==
	[[Файл:Pisa learningtower.png]]		[[Файл:Pisa learningtower.png]]

			== 2012 ==



	== Основные глаголы преобразования данных ==		== Основные глаголы преобразования данных ==

Patarakin в 06:14, 3 марта 2026

2026-03-03T06:14:52Z

← Предыдущая версия		Версия от 09:14, 3 марта 2026
Строка 63:		Строка 63:
	== Основные глаголы преобразования данных ==		== Основные глаголы преобразования данных ==
	{{Шаблон:TidyR}}		{{Шаблон:TidyR}}

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

Patarakin в 05:45, 3 марта 2026

2026-03-03T05:45:55Z

← Предыдущая версия		Версия от 08:45, 3 марта 2026
Строка 3:		Строка 3:
	\|Field_of_knowledge=Информатика, Образование		\|Field_of_knowledge=Информатика, Образование
	\|Возрастная категория=15		\|Возрастная категория=15
			\|similar_concepts=PISA
	\|Environment=R		\|Environment=R
	}}		}}

	<syntaxhighlight lang="R" line>		<syntaxhighlight lang="R" line>
	getwd()		getwd()

Patarakin: /* Изображение */

2026-03-03T05:33:53Z

Изображение

← Предыдущая версия		Версия от 08:33, 3 марта 2026
Строка 59:		Строка 59:

	== Изображение ==		== Изображение ==
			[[Файл:Pisa learningtower.png]]

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

Patarakin в 05:32, 3 марта 2026

2026-03-03T05:32:54Z

← Предыдущая версия		Версия от 08:32, 3 марта 2026
Строка 57:		Строка 57:

	</syntaxhighlight>		</syntaxhighlight>

			== Изображение ==


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

Patarakin в 05:20, 3 марта 2026

2026-03-03T05:20:03Z

← Предыдущая версия		Версия от 08:20, 3 марта 2026
Строка 8:		Строка 8:
	<syntaxhighlight lang="R" line>		<syntaxhighlight lang="R" line>
	getwd()		getwd()
	~~library(tidyverse)~~		#------------
	~~library(ggplot2)~~

	##
	##
	library(learningtower);		library(learningtower);
	library(dplyr)		library(dplyr)
	library(ggplot2)		library(ggplot2)
			#----

	student_data_2015 <- load_student(2015)		student_data_2015 <- load_student(2015)

	str(student_data_2015)		str(student_data_2015)

	glimpse(student_data_2015)		glimpse(student_data_2015)
	summary(student_data_2015)		summary(student_data_2015)

Patarakin: Новая страница: «{{Scripting Tutorials |Description=Некоторые данные PISA доступны в сети и в среде пакетов R. Например, можно использовать learningtower package |Field_of_knowledge=Информатика, Образование |Возрастная категория=15 |Environment=R }} getwd() library(tidyverse) library(ggplot2) ## ## library(learningtower); lib...»

2026-03-03T05:19:06Z

Новая страница: «{{Scripting Tutorials |Description=Некоторые данные PISA доступны в сети и в среде пакетов R. Например, можно использовать learningtower package |Field_of_knowledge=Информатика, Образование |Возрастная категория=15 |Environment=R }} <syntaxhighlight lang="R" line> getwd() library(tidyverse) library(ggplot2) ## ## library(learningtower); lib...»

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

{{Scripting Tutorials
|Description=Некоторые данные PISA доступны в сети и в среде пакетов R. Например, можно использовать learningtower package
|Field_of_knowledge=Информатика, Образование
|Возрастная категория=15
|Environment=R
}}

<syntaxhighlight lang="R" line>
getwd()
library(tidyverse)
library(ggplot2)

##
##
library(learningtower);
library(dplyr)
library(ggplot2)

student_data_2015 <- load_student(2015)

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")

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>