Descriptive Statistics
Petr Ya
30 12 2018
Документ с описанием импорта данных - http://rpubs.com/Petr001/454541
Документ с описательной статистикой - http://rpubs.com/Petr001/455155
Документ с описанием различий - http://rpubs.com/Petr001/DifferencesDLT
Проверка достоверности различий - http://rpubs.com/Petr001/CriteriaDifferencesDLT
date()## [1] "Mon Jan 7 14:07:25 2019"sessionInfo()## R version 3.5.1 (2018-07-02)
## Platform: x86_64-apple-darwin15.6.0 (64-bit)
## Running under: macOS 10.14.2
##
## Matrix products: default
## BLAS: /Library/Frameworks/R.framework/Versions/3.5/Resources/lib/libRblas.0.dylib
## LAPACK: /Library/Frameworks/R.framework/Versions/3.5/Resources/lib/libRlapack.dylib
##
## locale:
## [1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
##
## attached base packages:
## [1] stats graphics grDevices utils datasets methods base
##
## loaded via a namespace (and not attached):
## [1] compiler_3.5.1 backports_1.1.2 magrittr_1.5 rprojroot_1.3-2
## [5] tools_3.5.1 htmltools_0.3.6 yaml_2.2.0 Rcpp_1.0.0
## [9] stringi_1.2.4 rmarkdown_1.10 knitr_1.20 stringr_1.3.1
## [13] digest_0.6.15 evaluate_0.11загрузка данных и библиотек
library(ggplot2)
library(reshape2)
library(likert)## Loading required package: xtableload("Import.RData")Включенность в цифровизацию
Пересечение групп - Являюсь разработчиком и Использую другие технологии. абсолютные частоты и доля:
t <- table(df$Q3_DC1, df$Q5_DLT1)
t##
## Да, использую Нет, не использую
## Да, являюсь 33 11
## Нет, не являюсь 33 18prop.table(t)##
## Да, использую Нет, не использую
## Да, являюсь 0.3473684 0.1157895
## Нет, не являюсь 0.3473684 0.1894737Минюрова
Minurova <- data.frame(
Affection = rowSums(df[7:13])
, Stability = rowSums(df[14:17])
, Activity = rowSums(df[18:21])
)
Minurova$PriverzhSum <- rowSums(Minurova)Статистика
summary(Minurova)## Affection Stability Activity PriverzhSum
## Min. :11.00 Min. : 4.00 Min. : 4.0 Min. :19.00
## 1st Qu.:15.00 1st Qu.: 8.00 1st Qu.: 6.0 1st Qu.:31.00
## Median :18.00 Median :11.50 Median :10.0 Median :41.50
## Mean :21.28 Mean :12.69 Mean :11.6 Mean :45.45
## 3rd Qu.:28.00 3rd Qu.:16.75 3rd Qu.:16.5 3rd Qu.:57.00
## Max. :41.00 Max. :26.00 Max. :26.0 Max. :91.00
## NA's :1 NA's :1 NA's :1boxplot(Minurova)
Теперь посмотрим на распределение оценок в общей выборке
ggplot(Minurova, aes(Affection)) +
geom_histogram(binwidth = 2
, fill = "white"
, col = "black")## Warning: Removed 1 rows containing non-finite values (stat_bin).
ggplot(Minurova, aes(Stability)) +
geom_histogram(binwidth = 2
, fill = "white"
, col = "black")## Warning: Removed 1 rows containing non-finite values (stat_bin).
ggplot(Minurova, aes(Activity)) +
geom_histogram(binwidth = 2
, fill = "white"
, col = "black")
ggplot(Minurova, aes(PriverzhSum)) +
geom_histogram(binwidth = 5
, fill = "white"
, col = "black")## Warning: Removed 1 rows containing non-finite values (stat_bin).
Анкета
summary(df[22:57])## Q22_Mot_pos1
## Совершенно не согласен(на) : 3
## Скорее не согласен(на), чем согласен(на):10
## Скорее согласен(на), чем не согласен(на):38
## Совершенно согласен(на) :44
## Q23_Mot_neg2
## Совершенно не согласен(на) :26
## Скорее не согласен(на), чем согласен(на):43
## Скорее согласен(на), чем не согласен(на):21
## Совершенно согласен(на) : 5
## Q24_Cog_pos3
## Совершенно не согласен(на) : 8
## Скорее не согласен(на), чем согласен(на):24
## Скорее согласен(на), чем не согласен(на):48
## Совершенно согласен(на) :15
## Q25_Em_pos4
## Совершенно не согласен(на) : 6
## Скорее не согласен(на), чем согласен(на):24
## Скорее согласен(на), чем не согласен(на):46
## Совершенно согласен(на) :19
## Q26_Beh_pos5
## Совершенно не согласен(на) : 5
## Скорее не согласен(на), чем согласен(на):18
## Скорее согласен(на), чем не согласен(на):47
## Совершенно согласен(на) :25
## Q27_Mot_neg6
## Совершенно не согласен(на) :23
## Скорее не согласен(на), чем согласен(на):40
## Скорее согласен(на), чем не согласен(на):22
## Совершенно согласен(на) :10
## Q28_Cog_neg7
## Совершенно не согласен(на) :14
## Скорее не согласен(на), чем согласен(на):40
## Скорее согласен(на), чем не согласен(на):29
## Совершенно согласен(на) :12
## Q29_Em_neg8
## Совершенно не согласен(на) :24
## Скорее не согласен(на), чем согласен(на):45
## Скорее согласен(на), чем не согласен(на):20
## Совершенно согласен(на) : 6
## Q30_Beh_neg9
## Совершенно не согласен(на) :38
## Скорее не согласен(на), чем согласен(на):43
## Скорее согласен(на), чем не согласен(на):11
## Совершенно согласен(на) : 3
## Q31_Mot_pos10
## Совершенно не согласен(на) : 4
## Скорее не согласен(на), чем согласен(на):11
## Скорее согласен(на), чем не согласен(на):33
## Совершенно согласен(на) :47
## Q32_Cog_pos11
## Совершенно не согласен(на) : 2
## Скорее не согласен(на), чем согласен(на):14
## Скорее согласен(на), чем не согласен(на):41
## Совершенно согласен(на) :38
## Q33_Em_pos12
## Совершенно не согласен(на) : 8
## Скорее не согласен(на), чем согласен(на):12
## Скорее согласен(на), чем не согласен(на):34
## Совершенно согласен(на) :41
## Q34_Beh_pos13
## Совершенно не согласен(на) : 7
## Скорее не согласен(на), чем согласен(на):21
## Скорее согласен(на), чем не согласен(на):44
## Совершенно согласен(на) :23
## Q35_Mot_neg14
## Совершенно не согласен(на) : 3
## Скорее не согласен(на), чем согласен(на):37
## Скорее согласен(на), чем не согласен(на):41
## Совершенно согласен(на) :14
## Q36_Cog_neg15
## Совершенно не согласен(на) :10
## Скорее не согласен(на), чем согласен(на):25
## Скорее согласен(на), чем не согласен(на):38
## Совершенно согласен(на) :22
## Q37_Em_neg16
## Совершенно не согласен(на) :35
## Скорее не согласен(на), чем согласен(на):41
## Скорее согласен(на), чем не согласен(на):11
## Совершенно согласен(на) : 8
## Q38_Beh_neg17
## Совершенно не согласен(на) :48
## Скорее не согласен(на), чем согласен(на):37
## Скорее согласен(на), чем не согласен(на): 6
## Совершенно согласен(на) : 4
## Q39_Mot_pos18
## Совершенно не согласен(на) : 3
## Скорее не согласен(на), чем согласен(на):11
## Скорее согласен(на), чем не согласен(на):37
## Совершенно согласен(на) :44
## Q40_Cog_pos19
## Совершенно не согласен(на) :42
## Скорее не согласен(на), чем согласен(на):38
## Скорее согласен(на), чем не согласен(на):14
## Совершенно согласен(на) : 1
## Q41_Em_pos20
## Совершенно не согласен(на) : 7
## Скорее не согласен(на), чем согласен(на):12
## Скорее согласен(на), чем не согласен(на):35
## Совершенно согласен(на) :41
## Q42_Beh_pos21
## Совершенно не согласен(на) : 6
## Скорее не согласен(на), чем согласен(на):19
## Скорее согласен(на), чем не согласен(на):42
## Совершенно согласен(на) :28
## Q43_Mot_neg22
## Совершенно не согласен(на) :51
## Скорее не согласен(на), чем согласен(на):37
## Скорее согласен(на), чем не согласен(на): 4
## Совершенно согласен(на) : 3
## Q44_Cog_neg23
## Совершенно не согласен(на) : 3
## Скорее не согласен(на), чем согласен(на): 8
## Скорее согласен(на), чем не согласен(на):28
## Совершенно согласен(на) :56
## Q45_Em_neg24
## Совершенно не согласен(на) :38
## Скорее не согласен(на), чем согласен(на):42
## Скорее согласен(на), чем не согласен(на):10
## Совершенно согласен(на) : 5
## Q46_Mot_pos25
## Совершенно не согласен(на) : 4
## Скорее не согласен(на), чем согласен(на):16
## Скорее согласен(на), чем не согласен(на):46
## Совершенно согласен(на) :29
## Q47_Cog_pos26
## Совершенно не согласен(на) :15
## Скорее не согласен(на), чем согласен(на):27
## Скорее согласен(на), чем не согласен(на):40
## Совершенно согласен(на) :13
## Q48_Beh_pos27
## Совершенно не согласен(на) : 9
## Скорее не согласен(на), чем согласен(на):15
## Скорее согласен(на), чем не согласен(на):43
## Совершенно согласен(на) :28
## Q49_Mot_neg28
## Совершенно не согласен(на) :39
## Скорее не согласен(на), чем согласен(на):39
## Скорее согласен(на), чем не согласен(на):11
## Совершенно согласен(на) : 6
## Q50_Cog_neg29
## Совершенно не согласен(на) :23
## Скорее не согласен(на), чем согласен(на):39
## Скорее согласен(на), чем не согласен(на):21
## Совершенно согласен(на) :12
## Q51_Beh_neg30
## Совершенно не согласен(на) :39
## Скорее не согласен(на), чем согласен(на):42
## Скорее согласен(на), чем не согласен(на):10
## Совершенно согласен(на) : 4
## Q52_Mot_pos31
## Совершенно не согласен(на) : 9
## Скорее не согласен(на), чем согласен(на): 8
## Скорее согласен(на), чем не согласен(на):34
## Совершенно согласен(на) :44
## Q53_Cog_pos32
## Совершенно не согласен(на) :18
## Скорее не согласен(на), чем согласен(на):20
## Скорее согласен(на), чем не согласен(на):28
## Совершенно согласен(на) :29
## Q54_Mot_neg33
## Совершенно не согласен(на) :20
## Скорее не согласен(на), чем согласен(на):35
## Скорее согласен(на), чем не согласен(на):25
## Совершенно согласен(на) :15
## Q55_Cog_neg34
## Совершенно не согласен(на) : 6
## Скорее не согласен(на), чем согласен(на):36
## Скорее согласен(на), чем не согласен(на):33
## Совершенно согласен(на) :20
## Q56_Beh_neg35
## Совершенно не согласен(на) :16
## Скорее не согласен(на), чем согласен(на):30
## Скорее согласен(на), чем не согласен(на):37
## Совершенно согласен(на) :12
## Q57_Mot_pos36
## Совершенно не согласен(на) : 5
## Скорее не согласен(на), чем согласен(на):14
## Скорее согласен(на), чем не согласен(на):43
## Совершенно согласен(на) :33melt_df <- melt(df, id.vars = "Q1_Code", measure.vars = 22:57)
melt_df$value <- factor(melt_df$value, levels = c(
"Совершенно не согласен(на)"
, "Скорее не согласен(на), чем согласен(на)"
, "Скорее согласен(на), чем не согласен(на)"
, "Совершенно согласен(на)"
), ordered = TRUE) #нужно сделать порядковый фактор, чтобы сохранить последовательность ответов
ggplot(melt_df, aes(variable, fill = value)) +
geom_bar(position = "fill") +
coord_flip()
График, с отсортированными шкалами:
likert_df <- likert(df[22:57])
plot(likert_df, type = "bar") + ggtitle("Анкета")
Еще один вариант графика
plot(likert_df, type = "heat", ordered = FALSE)
summary(likert_df)## Item low neutral high mean sd
## 23 Q44_Cog_neg23 11.57895 0 88.421053 3.442105 0.7816484
## 1 Q22_Mot_pos1 13.68421 0 86.315789 3.294737 0.7837944
## 18 Q39_Mot_pos18 14.73684 0 85.263158 3.284211 0.7944375
## 10 Q31_Mot_pos10 15.78947 0 84.210526 3.294737 0.8363253
## 11 Q32_Cog_pos11 16.84211 0 83.157895 3.210526 0.7703928
## 31 Q52_Mot_pos31 17.89474 0 82.105263 3.189474 0.9486243
## 20 Q41_Em_pos20 20.00000 0 80.000000 3.157895 0.9146071
## 36 Q57_Mot_pos36 20.00000 0 80.000000 3.094737 0.8388655
## 12 Q33_Em_pos12 21.05263 0 78.947368 3.136842 0.9409199
## 25 Q46_Mot_pos25 21.05263 0 78.947368 3.052632 0.8038262
## 5 Q26_Beh_pos5 24.21053 0 75.789474 2.968421 0.8180495
## 27 Q48_Beh_pos27 25.26316 0 74.736842 2.947368 0.9152191
## 21 Q42_Beh_pos21 26.31579 0 73.684211 2.968421 0.8685110
## 13 Q34_Beh_pos13 29.47368 0 70.526316 2.873684 0.8659284
## 4 Q25_Em_pos4 31.57895 0 68.421053 2.821053 0.8248655
## 3 Q24_Cog_pos3 33.68421 0 66.315789 2.736842 0.8278468
## 15 Q36_Cog_neg15 36.84211 0 63.157895 2.757895 0.9307488
## 32 Q53_Cog_pos32 40.00000 0 60.000000 2.715789 1.0979978
## 14 Q35_Mot_neg14 42.10526 0 57.894737 2.694737 0.7589702
## 26 Q47_Cog_pos26 44.21053 0 55.789474 2.536842 0.9203437
## 34 Q55_Cog_neg34 44.21053 0 55.789474 2.705263 0.8736532
## 35 Q56_Beh_neg35 48.42105 0 51.578947 2.473684 0.9207086
## 7 Q28_Cog_neg7 56.84211 0 43.157895 2.410526 0.8931743
## 33 Q54_Mot_neg33 57.89474 0 42.105263 2.368421 0.9898703
## 29 Q50_Cog_neg29 65.26316 0 34.736842 2.231579 0.9615218
## 6 Q27_Mot_neg6 66.31579 0 33.684211 2.200000 0.9294244
## 2 Q23_Mot_neg2 72.63158 0 27.368421 2.052632 0.8425950
## 8 Q29_Em_neg8 72.63158 0 27.368421 2.084211 0.8463081
## 16 Q37_Em_neg16 80.00000 0 20.000000 1.915789 0.9069842
## 28 Q49_Mot_neg28 82.10526 0 17.894737 1.831579 0.8709573
## 19 Q40_Cog_pos19 84.21053 0 15.789474 1.726316 0.7500653
## 24 Q45_Em_neg24 84.21053 0 15.789474 1.810526 0.8289283
## 9 Q30_Beh_neg9 85.26316 0 14.736842 1.778947 0.7743075
## 30 Q51_Beh_neg30 85.26316 0 14.736842 1.778947 0.8013147
## 17 Q38_Beh_neg17 89.47368 0 10.526316 1.642105 0.7843657
## 22 Q43_Mot_neg22 92.63158 0 7.368421 1.568421 0.7242403Компьютерные фобии
tabAtt <- apply(df[60:65], 2, table)
t(tabAtt)## Да Нет Трудно сказать
## Q60_Att1 16 67 12
## Q61_Att2 36 43 16
## Q62_Att3 31 55 9
## Q63_Att4 13 64 18
## Q64_Att5 20 54 21
## Q65_Att6 46 36 13melt_df2 <- melt(df, id.vars = "Q1_Code", measure.vars = 60:65)
melt_df2$value <- factor(melt_df2$value
, levels = c("Нет", "Трудно сказать", "Да")
, ordered = TRUE)
ggplot(melt_df2, aes(variable, fill = value)) +
geom_bar(position = "fill") +
coord_flip()
Соц-дем
Пол
summary(df$Q66_Sex)## Ж М
## 84 11Возраст
summary(df$Q67_Age)## Min. 1st Qu. Median Mean 3rd Qu. Max.
## 23.00 39.00 46.00 46.26 53.00 77.00hist(df$Q67_Age)
Город
summary(dfContent$City2)## Астрахань Балашов Великий Новгород Волгоград
## 1 1 3 2
## Гатчина Ершов ЗАТО Светлый Иваново
## 1 1 1 3
## Киров Коломна Котельники Краснодар
## 1 2 1 3
## Люберцы Москва Новосибирск Омск
## 2 2 1 3
## п. Развилка с. Березовая лука Санкт-Петербург Саранск
## 1 1 57 2
## Саратов Челябинск Энгельс
## 4 1 1Должность
summary(df$Q71_Position)## Ассистент
## 3
## Доцент
## 35
## Доцент, Зав. кафедрой
## 3
## Доцент, Методист
## 2
## Доцент, Педагог дополнительного образования
## 1
## Зав. кафедрой
## 3
## Заместитель директора школы
## 5
## Методист
## 7
## Преподаватель, старший преподаватель
## 9
## Преподаватель, старший преподаватель, Педагог дополнительного образования
## 1
## Преподаватель, старший преподаватель, Старший методист и/или руководитель методического объединения школы, района, города
## 1
## Профессор
## 12
## Старший методист и/или руководитель методического объединения школы, района, города
## 1
## Учитель
## 11
## Учитель, Методист
## 1Список шкал
dfNames$Descript## [1] "Номер ответа"
## [2] "Дата и время заполнения"
## [3] "Являетесь ли вы создателем хотя бы одного ЭУК, который поддерживает учебный(ые) курс(ы), читаемый(ые) вами?"
## [4] "Количество разработанных курсов"
## [5] "Используете ли вы еще какие-либо ДОТ в своей профессиональной деятельности?"
## [6] "Другие ДОТ"
## [7] "[Я горжусь тем, что работаю педагогом]"
## [8] "[В основном я чувствую неудовлетворенность от работы педагогом]"
## [9] "[Мне нравится говорить о своей профессии с другими людьми]"
## [10] "[Я чувствую привязанность к профессии педагога]"
## [11] "[Я нахожу, что мои профессиональные цели и ценности очень схожи с личными]"
## [12] "[Я чувствую, что для меня это наиболее подходящая профессия]"
## [13] "[Для меня важно быть педагогом]"
## [14] "[Я слишком много отдал(а) профессии педагога, чтобы менять профессию сейчас]"
## [15] "[Даже если бы я хотел(а), мне было бы трудно уйти из этой профессии прямо сейчас]"
## [16] "[Я много чем обязан(а) профессии педагога]"
## [17] "[Сейчас я не чувствую себя в праве покинуть эту профессию, даже если бы мне это было выгодно]"
## [18] "[Я готов(а) отдавать свое время профессии педагога]"
## [19] "[Я готов(а) работать сверхурочно в рамках профессии «педагог»]"
## [20] "[Несмотря на большой объем работы, я готов(а) отдавать себя профессии педагога]"
## [21] "[Я чувствую, что полностью отдаю себя профессии]"
## [22] "[Я убежден(а), что использовать ДОТ необходимо, за этими технологиями будущее]"
## [23] "[Я как преподаватель не обязан(а) использовать ДОТ]"
## [24] "[Я хорошо знаю алгоритм действий при работе с ДОТ]"
## [25] "[Мне нравится работать с ДОТ]"
## [26] "[Я готов(а) тратить свое время на освоение ДОТ]"
## [27] "[Я вполне могу обойтись без дистанционных технологий в своей педагогической деятельности]"
## [28] "[Многое для меня является незнакомым и непонятным в дистанционных технологиях]"
## [29] "[В основном я чувствую неудовлетворенность в процессе работы с ДОТ]"
## [30] "[Я не готов(а) включаться в работу по использованию ДОТ, т.к. все равно не буду чувствовать себя уверенно в этом деле]"
## [31] "[Освоение ДОТ означает идти в ногу со временем]"
## [32] "[Мой уровень использования информационных технологий вполне позволяет осваивать и использовать ДОТ]"
## [33] "[Я не испытываю внутреннего сопротивления для освоения этого нового вида технологий]"
## [34] "[Несмотря на сложности освоения ДОТ, я готов(а), не жалея времени, хорошо разобраться с этими новыми технологиями]"
## [35] "[Освоение ДОТ не всегда связано с запросами времени]"
## [36] "[Я владею базовыми знаниями в сфере информационных технологий, но недостаточно хорошо разбираюсь в ДОТ]"
## [37] "[Я испытываю внутреннее сопротивление при необходимости работать с ДОТ]"
## [38] "[Я не готов(а) включаться в работу по использованию ДОТ, т.к. у меня все равно не получится хорошо разобраться с этими технологиями]"
## [39] "[Я чувствую уверенность, что освоить ДОТ мне по-плечу]"
## [40] "[Я уверен(а), что ДОТ в будущем заменят работу преподавателя в аудитории]"
## [41] "[Я положительно настроен(а) на освоение ДОТ, т.к. не боюсь браться за новое дело, учиться и совершенствоваться]"
## [42] "[В процессе работы с ДОТ я отмечаю у себя видимые успехи]"
## [43] "[Осваивать ДОТ – это сложно, лично мне это не надо]"
## [44] "[Я убежден(а), что ДОТ не могут заменить личный контакт с преподавателем]"
## [45] "[Как правило, я испытываю негативные эмоции (страх, тревогу), когда вынужден(а) разбираться с дистанционными технологиями]"
## [46] "[Я предпочитаю преодолевать трудности, которые возникают в процессе использования ДОТ]"
## [47] "[Я знаю, как можно справиться с негативными последствиями при использовании ДОТ]"
## [48] "[Я готов(а) включаться в работу по использованию ДОТ, т.к. рассчитываю на помощь и поддержку коллег]"
## [49] "[У меня нет особого желания разбираться с ДОТ, т.к. мне это не интересно]"
## [50] "[Я осознаю негативные последствия лично для себя при использовании ДОТ]"
## [51] "[Процесс работы с ДОТ сопровождается низкой результативность, у меня мало что получается]"
## [52] "[Я убежден(а), что освоение ДОТ способствует профессиональному развитию]"
## [53] "[Использование ДОТ уменьшает затраты и экономит мое время]"
## [54] "[Я считаю, что освоение ДОТ не обязательно будет способствовать профессиональному развитию]"
## [55] "[Использование ДОТ увеличивает мои временные затраты на работу, это дополнительная нагрузка]"
## [56] "[Я не уверен(а), что всегда могу обратиться к знающему человеку за помощью при освоении ДОТ]"
## [57] "[Я как преподаватель должен(на) использовать ДОТ наравне с другими информационными технологиями]"
## [58] "7. Как Вы считаете, что больше всего мешает Вам использовать ДОТ в вашей профессиональной деятельности?"
## [59] "8. Что, с Вашей точки зрения, помогает Вам использовать ДОТ в профессиональной деятельности?"
## [60] "[Я испытываю тревогу из-за того, что в процессе работы с ДОТ может быть нарушено мое личное пространство]"
## [61] "[Я переживаю из-за того, что в процессе работы с ДОТ я могу утратить свое авторское право на разработанные учебно-методические материалы]"
## [62] "[Меня беспокоит то, что в процессе работы с ДОТ я могу стать объектом навязанной коммуникации]"
## [63] "[Я боюсь, что в один прекрасный день дистанционные технологии сделают меня безработным(ой), так как полностью заменят преподавателей]"
## [64] "[Я боюсь, что технологии изменят наш образ жизни, коммуникации и критерии, по которым мы судим о других людях (студентах)]"
## [65] "[Я боюсь, что ДОТ сделают процесс передачи знания обезличенным, что в конце концов приведет к исчезновению личностно значимого знания]"
## [66] "Пол"
## [67] "Возраст"
## [68] "Город"
## [69] "Профиль дисциплин"
## [70] "Организация"
## [71] "Должность"Сохранение обеъектов
save(Minurova, file = "DecriptiveStatistics.RData")