date()## [1] "Tue Jan 29 17:41:18 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 magrittr_1.5 tools_3.5.1 htmltools_0.3.6
## [5] yaml_2.2.0 Rcpp_1.0.0 stringi_1.2.4 rmarkdown_1.11
## [9] knitr_1.21 stringr_1.3.1 xfun_0.4 digest_0.6.18
## [13] evaluate_0.12Библиотеки
library(readxl) #Чтение напрямую из Excel
library(writexl)Подготовка файла Excel
Создать второй лист Перенести на него названия столбцов и транспонировать Сделать колонку с валидными для R названиями Сделать колонку с содержательными краткими названиями Скопировать названия на лист с данными
dfNames_s <- read_excel("../Анкета по ДОТ студенты.xlsx", sheet = 2
, col_names = c("Name", "Descript", "LongDescript"))
df_s <- read_excel("../Анкета по ДОТ студенты.xlsx", sheet = 1
#, col_names = dfNames_s$Name
)
df_s <- as.data.frame(df_s)
dfNames_s <- as.data.frame(dfNames_s)
#str(df_s)Курс обучения
table(df_s$Q4_Year)##
## 1 2 5 (1 магистратура)
## 33 179 1Удаляем единственного магистранта
df_s <- df_s[-which(df_s$Q4_Year == "5 (1 магистратура)"), ]Удаляем повторные заполнения анкеты -
tableNames <- table(df_s$Q2_Name)[table(df_s$Q2_Name) > 1]
tableNames##
## Ворона Мария Эдуардовна Ниткина Дарья Владимировна
## 2 2
## Чубенко Степан Александрович Шамсутдинова Лия Айратовна
## 2 2which(df_s$Q2_Name == "Ворона Мария Эдуардовна")## [1] 93 94which(df_s$Q2_Name == "Ниткина Дарья Владимировна")## [1] 88 89which(df_s$Q2_Name == "Чубенко Степан Александрович")## [1] 129 130which(df_s$Q2_Name == "Шамсутдинова Лия Айратовна")## [1] 181 182Удаляем первое заполнение из двух
df_s <- df_s[-c(93, 88, 129, 181), ]for (i in 5:25) {
df_s[i] <- factor(df_s[[i]])
}
sapply(df_s[5:25], levels)## Q5_Ozho_1
## [1,] "Я предпочитаю жизненные ситуации, которые привлекают новизной."
## [2,] "Я предпочитаю привычные жизненные ситуации."
## Q6_Ozho_2
## [1,] "В моей жизни немного внешних событий."
## [2,] "Моя жизнь насыщена разнообразными жизненными событиями."
## Q7_Ozho_3
## [1,] "Я стремлюсь жить настоящим и радоваться тому, что дает жизнь."
## [2,] "Я стремлюсь подчинить свою жизнь идеалам истины, добра, красоты."
## Q8_Ozho_4
## [1,] "Обычно я чувствую себя хозяином своей жизни."
## [2,] "Я часто чувствую, что мало влияю на то, что происходит со мной."
## Q9_Ozho_5
## [1,] "Я больше склонен (склонна) воспринимать свою жизнь как непрерывную жизненную линию."
## [2,] "Я больше склонен (склонна) воспринимать свою жизнь как цепочку отдельных событий."
## Q10_Ozho_6
## [1,] "Я предпочитаю больше внимания уделять своему внутреннему миру."
## [2,] "Я предпочитаю жить реальной полнокровной жизнью."
## Q11_Ozho_7
## [1,] "В моем прошлом было мало жизненных изменений."
## [2,] "В моем прошлом было много жизненных изменений."
## Q12_Ozho_8
## [1,] "Для меня важнее достичь самовыражения."
## [2,] "Для меня важнее понять смысл своего существования."
## Q13_Ozho_9
## [1,] "То, что многим кажется удачей или везением, на самом деле является результатом долгих целенаправленных усилий."
## [2,] "То, что многим людям кажется удачей или везением, на самом деле и есть случайный подарок судьбы."
## Q14_Ozho_10
## [1,] "Мне нравится общаться с новыми людьми."
## [2,] "Мне нравится общаться с привычным кругом знакомых."
## Q15_Ozho_11
## [1,] "Я стараюсь прежде всего достичь гармонии с собой."
## [2,] "Я стараюсь прежде всего реализовать свои имеющиеся возможности."
## Q16_Ozho_12
## [1,] "Думаю, что случай или судьба играют важную роль в моей жизни."
## [2,] "Думаю, что случай или судьба не играют важной роли в моей жизни."
## Q17_Ozho_13
## [1,] "Мне нравится перечитывать давно знакомые книги, пересматривать знакомые фильмы."
## [2,] "Мне нравится читать новые книги, смотреть новые фильмы."
## Q18_Ozho_14
## [1,] "Я предпочитаю время вести за собой."
## [2,] "Я предпочитаю следовать потоку времени."
## Q19_Ozho_15
## [1,] "В жизни важнее всего понять самого себя."
## [2,] "В жизни важнее делать то, что лучше всего получается."
## Q20_Ozho_16
## [1,] "Обычно я стараюсь планировать далеко вперед."
## [2,] "Я стараюсь не планировать далеко вперед, потому что многое зависит от того, как сложатся обстоятельства."
## Q21_Ozho_17
## [1,] "Я предпочитаю привычные занятия."
## [2,] "Я предпочитаю часто менять занятия."
## Q22_Ozho_18
## [1,] "Я стремлюсь как можно более достичь в реальной жизни."
## [2,] "Я стремлюсь решать как можно более сложные жизненные задачи."
## Q23_Ozho_19
## [1,] "Моя жизнь мало зависит от стечения обстоятельств."
## [2,] "Моя жизнь существенно зависит от стечения обстоятельств."
## Q24_Ozho_20
## [1,] "Я стремлюсь как можно больше заниматься нравственным самосовершенствованием"
## [2,] "Я стремлюсь как можно большего достичь в реальной жизни."
## Q25_Ozho_21
## [1,] "Я редко меняю место работы, учебы."
## [2,] "Я часто меняю место работы, учебы."df_s$Q26_Experience_1 <- factor(df_s$Q26_Experience_1)
levels(df_s$Q26_Experience_1)## [1] "Да, ранее я проходил(ла) обучение с использованием ДОТ"
## [2] "Нет, я не проходил(ла) обучение с использованием ДОТ"table(df_s$Q28_Att_1)##
## Скорее не согласен(на), чем согласен(на)
## 34
## Скорее согласен(на), чем не согласен(на)
## 101
## Совершенно не согласен(на)
## 12
## Совершенно согласен(на)
## 61for (i in 28:57) {
df_s[i] <- factor(df_s[[i]], levels = c(
"Совершенно не согласен(на)"
, "Скорее не согласен(на), чем согласен(на)"
, "Скорее согласен(на), чем не согласен(на)"
, "Совершенно согласен(на)"
), ordered = TRUE
)
}
levels(df_s$Q28_Att_1)## [1] "Совершенно не согласен(на)"
## [2] "Скорее не согласен(на), чем согласен(на)"
## [3] "Скорее согласен(на), чем не согласен(на)"
## [4] "Совершенно согласен(на)"#apply(df_s[28:57], 2, table)for (i in 60:62) {
df_s[i] <- factor(df_s[[i]])
}
sapply(df_s[60:62], levels)## $Q60_Type_DLT
## [1] "Другое"
## [2] "Использую переписку с одногруппниками в социальных сетях и / или по электронной почте по вопросам, связанным с обучением"
## [3] "Использую переписку с преподавателями в социальных сетях и / или по электронной почте по вопросам, связанным с обучением"
## [4] "Использую электронные учебные курсы"
## [5] "Ничего не используете"
## [6] "Пользуюсь рассылкой материалов и / или важной информации по курсу на электронную почту учебной группы"
##
## $Q61_Freq_DLT
## [1] "Периодически" "Регулярно" "Редко"
##
## $Q62_Satisfaction_DLT
## [1] "Да" "Нет" "Скорее да, чем нет"
## [4] "Скорее нет, чем да" "Я не использую ДОТ"table(df_s$Q63_DLT_1)##
## Скорее не согласен(на), чем согласен(на)
## 36
## Скорее согласен(на), чем не согласен(на)
## 69
## Совершенно не согласен(на)
## 16
## Совершенно согласен(на)
## 87for (i in 63:80) {
df_s[i] <- factor(df_s[[i]], levels = c(
"Совершенно не согласен(на)"
, "Скорее не согласен(на), чем согласен(на)"
, "Скорее согласен(на), чем не согласен(на)"
, "Совершенно согласен(на)"
), ordered = TRUE
)
}
levels(df_s$Q63_DLT_1)## [1] "Совершенно не согласен(на)"
## [2] "Скорее не согласен(на), чем согласен(на)"
## [3] "Скорее согласен(на), чем не согласен(на)"
## [4] "Совершенно согласен(на)"for (i in 81:83) {
df_s[i] <- factor(df_s[[i]])
}
sapply(df_s[81:83], levels)## $Q81_Quality
## [1] "При обучении с использованием ДОТ (просматривая лекцию в Skype, обучаясь с использованием Moodle и т. д.)"
## [2] "При очном общении с преподавателем на лекции, семинарском занятии"
##
## $Q82_Ball_1
## [1] "Да" "Нет"
##
## $Q83_Ball_2
## [1] "1" "2" "3" "4" "5"dfNames_s[1:2]## Name
## 1 Q1_timeStamp
## 2 Q2_Name
## 3 Q3_Faculty
## 4 Q4_Year
## 5 Q5_Ozho_1
## 6 Q6_Ozho_2
## 7 Q7_Ozho_3
## 8 Q8_Ozho_4
## 9 Q9_Ozho_5
## 10 Q10_Ozho_6
## 11 Q11_Ozho_7
## 12 Q12_Ozho_8
## 13 Q13_Ozho_9
## 14 Q14_Ozho_10
## 15 Q15_Ozho_11
## 16 Q16_Ozho_12
## 17 Q17_Ozho_13
## 18 Q18_Ozho_14
## 19 Q19_Ozho_15
## 20 Q20_Ozho_16
## 21 Q21_Ozho_17
## 22 Q22_Ozho_18
## 23 Q23_Ozho_19
## 24 Q24_Ozho_20
## 25 Q25_Ozho_21
## 26 Q26_Experience_1
## 27 Q27_Experience_2
## 28 Q28_Att_1
## 29 Q29_Att_2
## 30 Q30_Att_3
## 31 Q31_Att_4
## 32 Q32_Att_5
## 33 Q33_Att_6
## 34 Q34_Att_7
## 35 Q35_Att_8
## 36 Q36_Att_9
## 37 Q37_Att_10
## 38 Q38_Att_11
## 39 Q39_Att_12
## 40 Q40_Att_13
## 41 Q41_Att_14
## 42 Q42_Att_15
## 43 Q43_Att_16
## 44 Q44_Att_17
## 45 Q45_Att_18
## 46 Q46_Att_19
## 47 Q47_Att_20
## 48 Q48_Att_21
## 49 Q49_Att_22
## 50 Q50_Att_23
## 51 Q51_Att_24
## 52 Q52_Att_25
## 53 Q53_Att_26
## 54 Q54_Att_27
## 55 Q55_Att_28
## 56 Q56_Att_29
## 57 Q57_Att_30
## 58 Q58_Difficulty
## 59 Q59_Help
## 60 Q60_Type_DLT
## 61 Q61_Freq_DLT
## 62 Q62_Satisfaction_DLT
## 63 Q63_DLT_1
## 64 Q64_DLT_2
## 65 Q65_DLT_3
## 66 Q66_DLT_4
## 67 Q67_DLT_5
## 68 Q68_DLT_6
## 69 Q69_DLT_7
## 70 Q70_DLT_8
## 71 Q71_DLT_9
## 72 Q72_DLT_10
## 73 Q73_DLT_11
## 74 Q74_DLT_12
## 75 Q75_DLT_13
## 76 Q76_Comp_1
## 77 Q77_Comp_2
## 78 Q78_Comp_3
## 79 Q79_Comp_4
## 80 Q80_Comp_5
## 81 Q81_Quality
## 82 Q82_Ball_1
## 83 Q83_Ball_2
## Descript
## 1 Отметка времени
## 2 Фио
## 3 Факультет
## 4 Курс
## 5 ОЖО 1
## 6 ОЖО 2
## 7 ОЖО 3
## 8 ОЖО 4
## 9 ОЖО 5
## 10 ОЖО 6
## 11 ОЖО 7
## 12 ОЖО 8
## 13 ОЖО 9
## 14 ОЖО 10
## 15 ОЖО 11
## 16 ОЖО 12
## 17 ОЖО 13
## 18 ОЖО 14
## 19 ОЖО 15
## 20 ОЖО 16
## 21 ОЖО 17
## 22 ОЖО 18
## 23 ОЖО 19
## 24 ОЖО 20
## 25 ОЖО 21
## 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 Как Вы считаете, что больше всего мешает Вам использовать ДОТ в вашей учебной деятельности?
## 59 Что, с Вашей точки зрения, помогает Вам использовать ДОТ в учебной деятельности?
## 60 Какие виды ДОТ Вы используете в своей учебной деятельности:
## 61 Если Вы используете какие-либо ДОТ, укажите, пожалуйста, как часто Вы это делаете:
## 62 Испытываете ли Вы удовлетворенность от обучения с использованием ДОТ?
## 63 [Мне удобно осваивать предмет, если материалы и важная информация по нему выложены в электронном учебном курсе]
## 64 [Я прикладываю больше усилий для изучения курса, если в нем используются ДОТ]
## 65 [Я проявляю более высокую степень заинтересованности предметом, больше работаю над ним, чем требуется, если преподаватель использует ДОТ]
## 66 [Для моей работы по освоению предмета не имеет значения, использует преподаватель на занятиях ДОТ или нет]
## 67 [На занятия по предметам, в которых используются ДОТ, я прихожу более подготовленным(ой) по сравнению с другими предметами]
## 68 [На курсах, в которых используются ДОТ, я склонен(на) к активному обсуждению тем на лекционных и / или практических занятиях]
## 69 [Я отношусь ответственно к посещениям занятий по предметам вне зависимости, используются на них ДОТ или нет]
## 70 [Я лучше усваиваю содержание курса, если преподаватель использует ДОТ в дополнение к лекционным и практическим занятиям]
## 71 [У меня возникают новые идеи, разработки по теме курса, если в нем используются ДОТ]
## 72 [По курсу, в котором используются ДОТ, я более активно ищу информацию во время внеаудиторной работы]
## 73 [Занятия по курсу, в котором используются ДОТ, я не пропускаю без уважительной причины]
## 74 [Мои творческие разработки по предмету никаким образом не связаны, пользуюсь ли я ДОТ во время его освоения или нет]
## 75 [Освоение предмета с помощью ДОТ помогает мне более активно обсуждать идеи и понятия, связанные с курсом, с преподавателем и / или одногруппниками]
## 76 [Использование презентаций (сделанных в PowerPoint или других программах) в представлении материалов курса]
## 77 [Представление видео и / или фотографий по темам курса]
## 78 [Использование электронного учебного курса для выкладывания материала, важной информации по курсу]
## 79 [Переписка с преподавателями в социальных сетях и / или по электронной почте по вопросам, связанным с обучением]
## 80 [Рассылка материалов и / или важной информации по курсу на электронную почту учебной группы]
## 81 При какой модели обучения Вы усваиваете знания более основательно:
## 82 Можете ли Вы выделить среди фрагментов текста те, которые вызвали у Вас отчетливое чувство субъективного принятия (в виде переживания удовольствия или любопытства) по сравнению с остальными фрагментами?
## 83 Какие именно фрагменты вызвали у Вас отчетливое чувство субъективного принятия (в виде переживания удовольствия или любопытства) (возможны два варианта ответа)?save(df_s, dfNames_s, file = "Import_Student.RData")вторая таблица, факторы переведены в цифры
# change_num <- function(DF) {
# for (i in 1:length(DF)) {
# if (is.factor(DF[[i]]) == TRUE) DF[i] <- as.numeric(DF[[i]])
# }
# }
#
# num_df_s <- change_num(df_s)num_df_s <- df_s
factor_list <- sapply(num_df_s, is.factor)
num_df_s[factor_list] <- sapply(num_df_s[factor_list], as.numeric)Сохранение таблицы
write_xlsx(list(df_s, num_df_s, dfNames_s), "../R_Анкета по ДОТ студенты.xlsx")