Сравнить тексты нескольких датасетов - История изменений

Patarakin в 05:16, 24 февраля 2026

2026-02-24T05:16:25Z

2026-02-23T05:53:03Z

Объединение графиков

← Предыдущая версия		Версия от 08:53, 23 февраля 2026
Строка 151:		Строка 151:

	[[Файл:10 combined statistics.png]]		[[Файл:10 combined statistics.png]]

			== Модель взаимодействия авторов, полученная на основании тех же данных ==
			; [[Lens Psych Collab]]
			<netlogo model="bibliolens2" />

2026-02-23T05:49:13Z

← Предыдущая версия		Версия от 08:49, 23 февраля 2026
Строка 3:		Строка 3:
	\|Field_of_knowledge=Психология, Статистика		\|Field_of_knowledge=Психология, Статистика
	\|Возрастная категория=20		\|Возрастная категория=20
	\|Environment=R, GitHub, VOYANT Tools, Lens		\|Environment=R, GitHub, VOYANT Tools, Lens, Lens Psych Collab
	}}		}}
	Перечень данных к сравнению (получены из Lens) см. [[Особенности самопрезентации психолога в цифровой среде]]		Перечень данных к сравнению (получены из Lens) см. [[Особенности самопрезентации психолога в цифровой среде]]

2025-12-19T09:46:34Z

← Предыдущая версия		Версия от 12:46, 19 декабря 2025
Строка 3:		Строка 3:
	\|Field_of_knowledge=Психология, Статистика		\|Field_of_knowledge=Психология, Статистика
	\|Возрастная категория=20		\|Возрастная категория=20
	\|Environment=R, GitHub, VOYANT Tools		\|Environment=R, GitHub, VOYANT Tools, Lens
	}}		}}
	Перечень данных к сравнению (получены из Lens) см. [[Особенности самопрезентации психолога в цифровой среде]]		Перечень данных к сравнению (получены из Lens) см. [[Особенности самопрезентации психолога в цифровой среде]]

2025-12-18T15:45:48Z

← Предыдущая версия		Версия от 18:45, 18 декабря 2025
Строка 5:		Строка 5:
	\|Environment=R, GitHub, VOYANT Tools		\|Environment=R, GitHub, VOYANT Tools
	}}		}}
	Перечень данных к сравнению (получены из Lens)		Перечень данных к сравнению (получены из Lens) см. [[Особенности самопрезентации психолога в цифровой среде]]

	* Академия Наук - https://raw.githubusercontent.com/patarakin/stat-data/refs/heads/main/datasets/csv/lens-acad-sci-psych.csv		* Академия Наук - https://raw.githubusercontent.com/patarakin/stat-data/refs/heads/main/datasets/csv/lens-acad-sci-psych.csv
	* МГПУ https://raw.githubusercontent.com/patarakin/stat-data/refs/heads/main/datasets/csv/lens-mgpu-psychol.csv		* МГПУ https://raw.githubusercontent.com/patarakin/stat-data/refs/heads/main/datasets/csv/lens-mgpu-psychol.csv

2025-12-18T15:36:06Z

Описательная статистика

← Предыдущая версия		Версия от 18:36, 18 декабря 2025
Строка 87:		Строка 87:

	#################		#################
	# ~~График 3:~~ Боксплот показывает медиану, квартили и выбросы		# Боксплот показывает медиану, квартили и выбросы
	ggplot(all_titles, aes(x = School, y = word_count, fill = School)) +		ggplot(all_titles, aes(x = School, y = word_count, fill = School)) +
	geom_boxplot(alpha = 0.7, width = 0.5) +		geom_boxplot(alpha = 0.7, width = 0.5) +
Строка 103:		Строка 103:
	legend.position = "none"		legend.position = "none"
	)		)

			############# (heatmap)
			ggplot(stats_for_plot, aes(x = Metric, y = School, fill = Value)) +
			geom_tile(color = "white", size = 1) +
			geom_text(aes(label = round(Value, 2)), color = "black", size = 5) +
			scale_fill_gradient(low = "lightblue", high = "darkblue") +
			labs(
			title = "Описательная статистика по школам",
			x = "Показатель",
			y = "Школа"
			) +
			theme_minimal() +
			theme(
			plot.title = element_text(size = 14, face = "bold"),
			axis.text.x = element_text(angle = 45, hjust = 1)
			)

	</syntaxhighlight>		</syntaxhighlight>

2025-12-18T15:33:11Z

@@ Строка 86: / Строка 86: @@
+   )
+#################
 </syntaxhighlight>

2025-12-18T15:31:52Z

Добавление свойств в столбцы (mutate)

@@ Строка 55: / Строка 55: @@
 === Добавление свойств в столбцы (mutate) ===
 <syntaxhighlight lang="R" line>
-# Простой подсчёт по словам
+</syntaxhighlight>
 all_titles %>%
    group_by(School) %>%
    summarise(
@@ Строка 68: / Строка 86: @@
+   )

2025-12-18T15:29:02Z

Полезные библиотеки

@@ Строка 23: / Строка 23: @@
 </syntaxhighlight>
 <syntaxhighlight lang="R" line>
 ########## Загрузка, выделение столбца Title и объединение данных в общую таблицу
@@ Строка 50: / Строка 51: @@
 table(all_titles$School)
 </syntaxhighlight>

2025-12-18T15:23:32Z

Полезные библиотеки

← Предыдущая версия		Версия от 18:23, 18 декабря 2025
Строка 21:		Строка 21:
	library(wordcloud)		library(wordcloud)
	library(patchwork)		library(patchwork)
			</syntaxhighlight>

	##########		<syntaxhighlight lang="R" line>
			########## Загрузка, выделение столбца Title и объединение данных в общую таблицу
	data_AS <- read_csv("https://raw.githubusercontent.com/patarakin/stat-data/refs/heads/main/datasets/csv/lens-acad-sci-psych.csv")		data_AS <- read_csv("https://raw.githubusercontent.com/patarakin/stat-data/refs/heads/main/datasets/csv/lens-acad-sci-psych.csv")

Строка 30:		Строка 32:


	~~nrow~~(~~data_AS~~) ~~# количество статей в~~ AS		titles_AS <- data_AS %>%
			select(Title) %>%
			filter(!is.na(Title), Title != "") %>%
			mutate(School = "AS")

			titles_MGPU <- data_MGPU %>%
			select(Title) %>%
			filter(!is.na(Title), Title != "") %>%
			mutate(School = "MGPU")

			titles_MGU <- data_MGU %>%
			select(Title) %>%
			filter(!is.na(Title), Title != "") %>%
			mutate(School = "MGU")

			all_titles <- bind_rows(titles_AS, titles_MGPU, titles_MGU)

			table(all_titles$School)
	</syntaxhighlight>		</syntaxhighlight>


	=== Объединение графиков ===		=== Объединение графиков ===