R-скрипт анализ датасета Ключникова Дарья - История изменений

Ключникова Дарья: /* Анализ результатов */

2026-06-12T17:32:27Z

Анализ результатов

← Предыдущая версия		Версия от 20:32, 12 июня 2026
Строка 75:		Строка 75:
	== Анализ результатов ==		== Анализ результатов ==
	{\| class="wikitable"		{\| class="wikitable"
	! Показатель !! Весь корпус ~~(все текстовые колонки)~~ !! Только заголовки ~~(Title)~~		! Показатель !! Весь корпус !! Только заголовки
	\|-		\|-
	! Всего слов		! Всего слов

Ключникова Дарья: /* Анализ результатов */

2026-06-12T17:32:11Z

Анализ результатов

← Предыдущая версия		Версия от 20:32, 12 июня 2026
Строка 75:		Строка 75:
	== Анализ результатов ==		== Анализ результатов ==
	{\| class="wikitable"		{\| class="wikitable"
	! Показатель !! Весь корпус !! Только заголовки		! Показатель !! Весь корпус (все текстовые колонки) !! Только заголовки (Title)
	\|-		\|-
	! Всего слов		! Всего слов
Строка 83:		Строка 83:
	\|		\|
	{\| style="width:100%"		{\| style="width:100%"
	\| the \|\| 13 018		\| the \|\| style="text-align: right;" \| 13 018
	\|-		\|-
	\| of \|\| 10 045		\| of \|\| style="text-align: right;" \| 10 045
	\|-		\|-
	\| and \|\| 9 848		\| and \|\| style="text-align: right;" \| 9 848
	\|-		\|-
	\| in \|\| 7 150		\| in \|\| style="text-align: right;" \| 7 150
	\|-		\|-
	\| to \|\| 7 146		\| to \|\| style="text-align: right;" \| 7 146
	\|-		\|-
	\| a \|\| 5 861		\| a \|\| style="text-align: right;" \| 5 861
	\|-		\|-
	\| for \|\| 4 666		\| for \|\| style="text-align: right;" \| 4 666
	\|-		\|-
	\| computing \|\| 3 061		\| computing \|\| style="text-align: right;" \| 3 061
	\|-		\|-
	\| on \|\| 3 043		\| on \|\| style="text-align: right;" \| 3 043
	\|-		\|-
	\| science \|\| 2 726		\| science \|\| style="text-align: right;" \| 2 726
	\|}		\|}
	\|		\|
	{\| style="width:100%"		{\| style="width:100%"
	\| in \|\| 608		\| in \|\| style="text-align: right;" \| 608
	\|-		\|-
	\| and \|\| 566		\| and \|\| style="text-align: right;" \| 566
	\|-		\|-
	\| of \|\| 548		\| of \|\| style="text-align: right;" \| 548
	\|-		\|-
	\| a \|\| 533		\| a \|\| style="text-align: right;" \| 533
	\|-		\|-
	\| the \|\| 482		\| the \|\| style="text-align: right;" \| 482
	\|-		\|-
	\| for \|\| 433		\| for \|\| style="text-align: right;" \| 433
	\|-		\|-
	\| computational \|\| 346		\| computational \|\| style="text-align: right;" \| 346
	\|-		\|-
	\| to \|\| 328		\| to \|\| style="text-align: right;" \| 328
	\|-		\|-
	\| thinking \|\| 314		\| thinking \|\| style="text-align: right;" \| 314
	\|-		\|-
	\| science \|\| 293		\| science \|\| style="text-align: right;" \| 293
	\|}		\|}
	\|}		\|}

Ключникова Дарья: /* Анализ результатов */

2026-06-12T17:30:48Z

Анализ результатов

← Предыдущая версия		Версия от 20:30, 12 июня 2026
Строка 75:		Строка 75:
	== Анализ результатов ==		== Анализ результатов ==
	{\| class="wikitable"		{\| class="wikitable"
	! Показатель !! Весь корпус ~~(все текстовые колонки)~~ !! Только заголовки ~~(Title)~~		! Показатель !! Весь корпус !! Только заголовки
	\|-		\|-
	! Всего слов		! Всего слов

Ключникова Дарья: /* Анализ результатов */

2026-06-12T17:30:29Z

Анализ результатов

@@ Строка 75: / Строка 75: @@
 == Анализ результатов ==
 {| class="wikitable"
-! Показатель !! Весь корпус !! Только заголовки
+! Показатель !! Весь корпус (все текстовые колонки) !! Только заголовки (Title)
 |-
 ! Всего слов
@@ Строка 81: / Строка 81: @@
 |-
 ! 10 самых частых слов
-| the (13 018)<br>of (10 045)<br>and (9 848)<br>in (7 150)<br>to (7 146)<br>a (5 861)<br>for (4 666)<br>computing (3 061)<br>on (3 043)<br>science (2 726)
-| in (608)<br>and (566)<br>of (548)<br>a (533)<br>the (482)<br>for (433)<br>computational (346)<br>to (328)<br>thinking (314)<br>science (293)
+{| style="width:100%"
 |}

Ключникова Дарья в 17:28, 12 июня 2026

2026-06-12T17:28:00Z

@@ Строка 72: / Строка 72: @@
 === Вывод работы программы в RStudio (только заголовки) ===
 [[Файл:Только заголовки.png|Вывод работы программы в RStudio (только заголовки)]]
 [[Категория:CompLing Works]]

Ключникова Дарья в 17:18, 12 июня 2026

2026-06-12T17:18:48Z

← Предыдущая версия		Версия от 20:18, 12 июня 2026
Строка 37:		Строка 37:

	=== Вывод работы программы в RStudio (для всех текстовых полей) ===		=== Вывод работы программы в RStudio (для всех текстовых полей) ===
	[[Файл:Все текстовые поля.png\|~~мини~~]]		[[Файл:Все текстовые поля.png\|Вывод работы программы в RStudio (для всех текстовых полей)]]

	== Код R-скрипта (просмотр только заголовков) ==		== Код R-скрипта (просмотр только заголовков) ==
Строка 71:		Строка 71:

	=== Вывод работы программы в RStudio (только заголовки) ===		=== Вывод работы программы в RStudio (только заголовки) ===
	[[Файл:Только заголовки.png\|~~мини~~]]		[[Файл:Только заголовки.png\|Вывод работы программы в RStudio (только заголовки)]]

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

Ключникова Дарья в 17:17, 12 июня 2026

2026-06-12T17:17:45Z

← Предыдущая версия		Версия от 20:17, 12 июня 2026
Строка 37:		Строка 37:

	=== Вывод работы программы в RStudio (для всех текстовых полей) ===		=== Вывод работы программы в RStudio (для всех текстовых полей) ===
	~~впвапрварваправрвпрв~~		[[Файл:Все текстовые поля.png\|мини]]

	== Код R-скрипта (просмотр только заголовков) ==		== Код R-скрипта (просмотр только заголовков) ==
Строка 71:		Строка 71:

	=== Вывод работы программы в RStudio (только заголовки) ===		=== Вывод работы программы в RStudio (только заголовки) ===
	~~вапвапвпвпапвппвпвпа~~		[[Файл:Только заголовки.png\|мини]]

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

Ключникова Дарья в 17:10, 12 июня 2026

2026-06-12T17:10:48Z

@@ Строка 5: / Строка 5: @@
 Ссылка на датасет: [http://www.uic.unn.ru/pustyn/data-sets/digida/ACM_think.csv Computational thinking (ACM)]
-== Код R-скрипта ==
+== Код R-скрипта (просмотр всех текстовых полей) ==
 <syntaxhighlight lang="R" line>
 library(tidyverse)
@@ Строка 35: / Строка 35: @@
 print(top10_words)
 </syntaxhighlight>
 [[Категория:CompLing Works]]

Ключникова Дарья: /* Код R-скрипта */

2026-06-12T17:03:59Z

Код R-скрипта

← Предыдущая версия		Версия от 20:03, 12 июня 2026
Строка 15:		Строка 15:
	# Чтение всех текстовых колонок		# Чтение всех текстовых колонок
	all_text <- data %>%		all_text <- data %>%
	select(where(is.character)) %>% ~~# выбираем только текстовые колонки~~		select(where(is.character)) %>%
	unite("all_text", everything(), sep = " ", na.rm = TRUE) %>% ~~# объединяем их~~		unite("all_text", everything(), sep = " ", na.rm = TRUE) %>%
	pull(all_text)		pull(all_text)

Ключникова Дарья в 17:02, 12 июня 2026

2026-06-12T17:02:11Z

← Предыдущая версия		Версия от 20:02, 12 июня 2026
Строка 1:		Строка 1:
	~~Господи спаси~~ и ~~сохрани~~		== Описание датасета ==

			Для анализа был взят датасет '''Computational thinking (ACM)''', который содержит записи из библиотеки ACM по запросу Computational Thinking. Он содержит информацию о статьях и книгах, найденных по запросу: имя автора(-ов), название, абстракт и др.

			Ссылка на датасет: [http://www.uic.unn.ru/pustyn/data-sets/digida/ACM_think.csv Computational thinking (ACM)]

			== Код R-скрипта ==
			<syntaxhighlight lang="R" line>
			library(tidyverse)

			data <- read_csv("http://www.uic.unn.ru/pustyn/data-sets/digida/ACM_think.csv")

			glimpse(data)

			# Чтение всех текстовых колонок
			all_text <- data %>%
			select(where(is.character)) %>% # выбираем только текстовые колонки
			unite("all_text", everything(), sep = " ", na.rm = TRUE) %>% # объединяем их
			pull(all_text)

			# Разбивка на слова
			words <- str_split(all_text, " ") %>%
			unlist() %>%
			str_replace_all("[^A-Za-z]", "") %>%
			tolower() %>%
			.[. != ""]

			# Общее количество слов в корпусе
			total_words <- length(words)
			print(paste("Всего слов во всём корпусе:", total_words))

			# 10 самых частых слов
			top10_words <- as.data.frame(sort(table(words), decreasing = TRUE)[1:10])
			colnames(top10_words) <- c("Слово", "Частота")
			print(top10_words)
			</syntaxhighlight>

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