---
title: "Анализ опроса школьников Казахстана и России по интересу к инженерии"
author: "Ермоленко Максим"
date: "2026-01-16"
output:
html_document:
toc: true
toc_float: true
theme: flatly
code_folding: show
---
1. Общая информация об опросе
<div class="figure" style="text-align: center">
<img src="Airbrush-Collage-2026-01-15T23_11_40.png" alt="Интервьюирование школьников" width="60%" />
<p class="caption">Интервьюирование школьников</p>
</div>
Метод исследования: Онлайн-опрос через Google Forms
Объем выборки: 109 респондентов
Период проведения: 10–12 июля 2025 года
География участников: Казахстан (72%), Россия (28%)
Возрастная группа: 65% — школьники 15–17 лет
Классы обучения: 60% — учащиеся 9–11 классов
---
2. Интерес к инженерии
```{=html}
<div class="plotly html-widget html-fill-item" id="htmlwidget-4368dc8359fc987c0110" style="width:768px;height:576px;"></div>
<script type="application/json" data-for="htmlwidget-4368dc8359fc987c0110">{"x":{"visdat":{"30e6ccb45e8":["function () ","plotlyVisDat"]},"cur_data":"30e6ccb45e8","attrs":{"30e6ccb45e8":{"labels":{},"values":{},"textposition":"inside","textinfo":"label+percent","insidetextfont":{"color":"#FFFFFF","size":14},"hoverinfo":"label+percent","marker":{"colors":["#2E86AB","#A23B72","#F18F01","#C73E1D","#6B818C"],"line":{"color":"#FFFFFF","width":2}},"hole":0.29999999999999999,"alpha_stroke":1,"sizes":[10,100],"spans":[1,20],"type":"pie"}},"layout":{"margin":{"b":40,"l":60,"t":25,"r":10},"title":{"text":"Уровень интереса школьников к инженерии","font":{"size":18,"family":"Arial","color":"#333333"}},"showlegend":true,"legend":{"font":{"size":12},"orientation":"h","x":0.5,"y":-0.10000000000000001},"paper_bgcolor":"rgba(0,0,0,0)","plot_bgcolor":"rgba(0,0,0,0)","hovermode":"closest"},"source":"A","config":{"modeBarButtonsToAdd":["hoverclosest","hovercompare"],"showSendToCloud":false},"data":[{"labels":["Очень интересно","Скорее интересно","Скорее не интересно","Не интересно","Не определились"],"values":[36,16,8,5,35],"textposition":["inside","inside","inside","inside","inside"],"textinfo":"label+percent","insidetextfont":{"color":"#FFFFFF","size":14},"hoverinfo":["label+percent","label+percent","label+percent","label+percent","label+percent"],"marker":{"color":"rgba(31,119,180,1)","colors":["#2E86AB","#A23B72","#F18F01","#C73E1D","#6B818C"],"line":{"color":"#FFFFFF","width":2}},"hole":0.29999999999999999,"type":"pie","frame":null}],"highlight":{"on":"plotly_click","persistent":false,"dynamic":false,"selectize":false,"opacityDim":0.20000000000000001,"selected":{"opacity":1},"debounce":0},"shinyEvents":["plotly_hover","plotly_click","plotly_selected","plotly_relayout","plotly_brushed","plotly_brushing","plotly_clickannotation","plotly_doubleclick","plotly_deselect","plotly_afterplot","plotly_sunburstclick"],"base_url":"https://plot.ly"},"evals":[],"jsHooks":[]}</script># Код для создания диаграммы интереса к инженерии
interest_data <- data.frame(
category = c("Очень интересно", "Скорее интересно", "Скорее не интересно",
"Не интересно", "Не определились"),
percent = c(36, 16, 8, 5, 35) # Сумма = 100%
)
create_pie_chart(
interest_data,
"Уровень интереса школьников к инженерии",
c("#2E86AB", "#A23B72", "#F18F01", "#C73E1D", "#6B818C")
)Вывод: Большинство школьников (91% вместе взятые “Очень интересно”, “Скорее интересно”, “Да”) проявляют интерес к инженерии, однако значительная часть (35%) еще не определилась с профессиональным выбором.
# Код для создания диаграммы профессиональных планов
plans_data <- data.frame(
category = c("Да, определенно", "Возможно", "Не определились", "Нет"),
percent = c(44, 39, 13, 4) # Сумма = 100%
)
create_pie_chart(
plans_data,
"Планы работать в инженерной или IT-сфере",
c("#4682B4", "#87CEEB", "#B0C4DE", "#D3D3D3")
)# Код для создания диаграммы любимых предметов
subjects_data <- data.frame(
subject = c("Информатика", "Биология", "Математика", "Физика",
"Химия", "Гуманитарные", "Технология"),
percent = c(44, 38, 35, 32, 23, 24, 20)
)
plot_ly(
subjects_data,
labels = ~subject,
values = ~percent,
type = 'pie',
textinfo = 'label+percent',
marker = list(
colors = c("#1E90FF", "#32CD32", "#FF4500", "#FFD700",
"#8A2BE2", "#FF6347", "#20B2AA"),
line = list(color = '#FFFFFF', width = 1)
),
hole = 0.4
) %>%
layout(
title = "Распределение любимых предметов среди школьников",
showlegend = TRUE
)# Код для создания диаграммы опыта
exp_data <- data.frame(
category = c("Олимпиады/конкурсы STEM", "Хакатоны/чемпионаты",
"Научные/инженерные проекты", "Нет опыта"),
percent = c(41, 30, 20, 9) # Сумма = 100%
)
create_pie_chart(
exp_data,
"Опыт участия в STEM-активностях",
c("#DC143C", "#FF8C00", "#9932CC", "#708090")
)# Код для создания диаграммы сложностей
diff_data <- data.frame(
category = c("Не знали, с чего начать", "Немного сложно",
"Никогда не пробовали", "Всё понятно"),
percent = c(29, 33, 19, 19) # Сумма = 100%
)
create_pie_chart(
diff_data,
"Сложности при начале проектной работы",
c("#FF4500", "#FFA500", "#32CD32", "#1E90FF")
)# Код для создания диаграммы готовности
ready_data <- data.frame(
category = c("Хотят приглашение", "Возможно", "Не уверены"),
percent = c(64, 27, 9) # Сумма = 100%
)
create_pie_chart(
ready_data,
"Готовность участвовать в инженерном чемпионате",
c("#FFD700", "#DAA520", "#B8860B")
)# Код для создания диаграммы мотиваторов
attr_data <- data.frame(
category = c("Реальная задача", "Работа в команде",
"Презентация проекта", "Советы экспертов"),
percent = c(30, 30, 22, 18) # Сумма = 100%
)
create_pie_chart(
attr_data,
"Ключевые мотиваторы для участия в чемпионате",
c("#9370DB", "#BA55D3", "#DA70D6", "#EE82EE")
)# Код для создания диаграммы географии
geo_data <- data.frame(
country = c("Казахстан", "Россия"),
percent = c(72, 28) # Сумма = 100%
)
plot_ly(
geo_data,
labels = ~country,
values = ~percent,
type = 'pie',
textinfo = 'label+percent',
marker = list(
colors = c("#008000", "#0000FF"),
line = list(color = '#FFFFFF', width = 3)
),
hole = 0.5
) %>%
layout(
title = "Географическое распределение участников опроса",
showlegend = TRUE
)Основные выводы:
Рекомендации:
```