Генерация нескольких анализов. Проверка на устойчивость тем.

rm(list = ls())
date()
## [1] "Sun Feb 27 14:59:06 2022"
sessionInfo()
## R version 4.1.2 (2021-11-01)
## Platform: x86_64-apple-darwin17.0 (64-bit)
## Running under: macOS Big Sur 10.16
## 
## Matrix products: default
## BLAS:   /Library/Frameworks/R.framework/Versions/4.1/Resources/lib/libRblas.0.dylib
## LAPACK: /Library/Frameworks/R.framework/Versions/4.1/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] digest_0.6.29   R6_2.5.1        jsonlite_1.7.3  magrittr_2.0.1 
##  [5] evaluate_0.14   rlang_0.4.12    stringi_1.7.6   jquerylib_0.1.4
##  [9] bslib_0.3.1     rmarkdown_2.11  tools_4.1.2     stringr_1.4.0  
## [13] xfun_0.29       yaml_2.2.1      fastmap_1.1.0   compiler_4.1.2 
## [17] htmltools_0.5.2 knitr_1.37      sass_0.4.0

Библиотеки и загрузка объектов

 library(quanteda)
## Package version: 3.2.0
## Unicode version: 13.0
## ICU version: 69.1
## Parallel computing: 4 of 4 threads used.
## See https://quanteda.io for tutorials and examples.
# library(quanteda.textmodels)
# library(quanteda.textstats)
 library(stm)
## stm v1.3.6 successfully loaded. See ?stm for help. 
##  Papers, resources, and other materials at structuraltopicmodel.com
# #library(topicmodels)
# library(ldatuning)
# library(stringr)
# library(magrittr)
# library(dplyr)
 library(wordcloud)
## Loading required package: RColorBrewer
load(file = "DFM.RData")
load(file = "Texts3.RData")
DFM2stm <- convert(DFM, to = "stm") 

Автоматически выделит количество

K = 0 init.type = “Spectral”

t <- Sys.time()

Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = 0
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 1
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: год, область, регион, проект, шапша?_s, район, владислав 
##       FREX: шапша?_s, владислав, урицкий, медиаплеер?_s, волонтер, калужский, олимпийский 
##       Lift: активист, крепость, мяч, медиаплеер?_s, шапша?_s, склад, обнинск 
##       Score: шапша?_s, владислав, кузбасс, урицкий, калужский, орловский, олимпийский 
## Topic 2 Top Words:
##       Highest Prob: система, человек, развитие, ценность, государство, общество, вуз 
##       FREX: благосостояние, западный, цивилизация, ценность, фундаментальный, устойчивый, государство 
##       Lift: алмаз, буржуазный, кузнецова, благосостояние, цивилизация, фармакология, системообразующий 
##       Score: благосостояние, цивилизация, западный, алмаз, фундаментальный, изда?_s, ценность 
## Topic 3 Top Words:
##       Highest Prob: платформа, сбербанк, цифровой, школьный, программа, смартбокс?_s, комплект 
##       FREX: смартбокс?_s, комплект, подключение, клавиатура, телевизор, тачпадом?_adv, передавать 
##       Lift: боева, дагестанский, чуркин, алеево?_s, бакланова, башинформ?_s, залукаев?_s 
##       Score: смартбокс?_s, комплект, сбербанк, клавиатура, телевизор, тачпадом?_adv, приставка 
## Topic 4 Top Words:
##       Highest Prob: человек, цифровой, год, обучение, онлайн, учитель, мочь 
##       FREX: ракова, раков, разнообразие, ставропольский, ия, экономический, анимация 
##       Lift: бигдэйт?_s, бутиковый?_a, капасити?_s, максут, невыгодно, шадаев?_s, пожар 
##       Score: раков, ракова, бигдэйт?_s, ия, анимация, ставрополье, ставропольский 
## Topic 5 Top Words:
##       Highest Prob: сбербанк, устройство, смартбокс?_s, банк, обучение, школьник, платформа 
##       FREX: приставка, устройство, телевизор, смартбокс?_s, медиаприставка?_s, курган, уставный 
##       Lift: велеть, иляна, курган, лайк?_s, менщикова?_s, медиаприставка?_s, уставный 
##       Score: смартбокс?_s, приставка, телевизор, сбербанк, курган, медиаприставка?_s, устройство 
## Topic 6 Top Words:
##       Highest Prob: обучение, ребенок, ученик, подход, учащийся, онлайн, процесс 
##       FREX: станция, карточка, семейный, смешанный, усвоение, адаптивный, дифференцированный 
##       Lift: вплотную, репутация, константинов, дьюи?_s, вербальный, научпоп?_s, руссо?_s 
##       Score: генетический, карточка, станция, ротация, константинов, дифференцированный, семейный 
## Topic 7 Top Words:
##       Highest Prob: цифровой, проект, среда, технология, новый, обучение, экономика 
##       FREX: среда, цифровой, трансформация, экономика, внедрение, национальный, федеральный 
##       Lift: времяпрепровождение, кударинский?_a, федеральнаяплощадка?_s, преемственный, тусура?_s, дарование, панель 
##       Score: цифровой, трансформация, экономика, кадр, ноутбук, среда, массовый 
## Topic 8 Top Words:
##       Highest Prob: ранхигс?_s, директор, центр, программа, развитие, россия, институт 
##       FREX: мау?_s, ранхигс?_s, тарасова, владимир, академия, подробность, фиро?_s 
##       Lift: иом?_s, сверхзадача, волохин?_s, гражданство, ибда?_s, пушкарев, пушкарева 
##       Score: ранхигс?_s, фиро?_s, мау?_s, тарасова, социализация, подробность, научно-исследовательский 
## Topic 9 Top Words:
##       Highest Prob: человек, ребенок, новый, греф, мир, знание, цель 
##       FREX: греф, партия, ощущение, гарвард, салман, глобалист?_s, герман 
##       Lift: воровать, клаус, руно, шваб, эмблема, восклицание, грефовский?_a 
##       Score: греф, партия, глобалист?_s, герман, присцилла, гарвард, салман 
## Topic 10 Top Words:
##       Highest Prob: педагогика, ребенок, год, учитель, наука, конференция, амонашвили?_s 
##       FREX: амонашвили?_s, гуманный, шалва, педагогика, женщина, химический, исследователь 
##       Lift: гриднев, марголис?_s, психометрика?_s, стирать, манифест, пленум, геном 
##       Score: амонашвили?_s, гуманный, шалва, женщина, педагогика, манифест, исследователь 
## Topic 11 Top Words:
##       Highest Prob: педагогический, доцент, кафедра, доклад, н, наука, профессиональный 
##       FREX: доцент, доклад, магистрант, прикладной, информатика, секция, мурманский 
##       Lift: атрощенко, гриншкун?_s, комарницкая?_s, азевич, баранникова, вадимович, горин 
##       Score: доцент, кафедра, доклад, секция, информатика, н, мурманский 
## Topic 12 Top Words:
##       Highest Prob: проект, регион, область, программа, развитие, псковский, новый 
##       FREX: псковский, тарасенко, анна, итмо?_s, ведерников, больница, специализированный 
##       Lift: гусев, аптечный, ведерникова, нинель, природоведение, салагаева?_s, сигнализировать 
##       Score: тарасенко, псковский, гусев, ведерников, итмо?_s, ярмарка, детекция?_s 
## Topic 13 Top Words:
##       Highest Prob: год, педагог, конкурс, ребенок, этап, организация, дополнительный 
##       FREX: югра, этап, вадский, заочный, полуфинал, общеобразовательный, очный 
##       Lift: жеребьевка, вручаться, когалым, урайский?_a, яр, вадский, нижневартовск 
##       Score: вадский, югра, конкурс, полуфинал, сош?_s, общеобразовательный, жеребьевка 
## Topic 14 Top Words:
##       Highest Prob: цифровой, ребенок, год, обучение, россия, родитель, платформа 
##       FREX: швабауэр?_s, господин, эксперимент, приказ, документ, сбера?_s, катюша 
##       Lift: отчужденность, вакханалия, заменяться, лемехов?_s, подорвать, швабауэр?_s, диверсия 
##       Score: швабауэр?_s, господин, заменяться, греф, сбера?_s, катюша, цифровизатор?_s 
## Topic 15 Top Words:
##       Highest Prob: программа, проект, персонализировать, развитие, обучение, личностный, участник 
##       FREX: личностный, потенциал, модуль, персонализировать, команда, участник, квалификация 
##       Lift: каинский, коллаборативный?_a, личной, нетбук, байгузинский?_a, кисак?_s, прогресский?_a 
##       Score: личностный, сберкласс?_s, сессия, модуль, пмо?_s, волгоградский, вклад 
## Topic 16 Top Words:
##       Highest Prob: год, проект, новый, работа, ребенок, рубль, городской 
##       FREX: куйвашев?_s, каменск, отремонтировать, бокс, уральский, ремонт, сквер 
##       Lift: аварийный, водный, водоем, дворовый, каменцев, круговой, пролетарский 
##       Score: каменск, куйвашев?_s, уральский, междуреченск, бокс, ремонт, отремонтировать 
## Topic 17 Top Words:
##       Highest Prob: учитель, год, конкурс, работа, педагог, становиться, сберкласс?_s 
##       FREX: география, кфу?_s, сберкласс?_s, нижегородский, лицей, елена, юлия 
##       Lift: клименков?_s, первопроходец, присуждение, маркович, десятиклассник, чернышев, карина 
##       Score: сберкласс?_s, конкурс, кфу?_s, клименков?_s, нижегородский, география, анатольевна 
## Topic 18 Top Words:
##       Highest Prob: год, проект, центр, федеральный, также, учитель, программа 
##       FREX: чеченский, сколково?_adv, резидент, якутия, республика, строительство, статус 
##       Lift: сивцев?_s, командировка, кравецдиректор?_s, малочисленный, местник, местников?_s, ханжина?_s 
##       Score: чеченский, якутия, резидент, сколково?_adv, местник, сивцев?_s, нижегородский 
## Topic 19 Top Words:
##       Highest Prob: учитель, директор, профессиональный, педагог, развитие, современный, новый 
##       FREX: круглый, стол, яндекс, ммсо?_s, салон, дискуссия, дпо?_s 
##       Lift: лурье, гастев, коммуникативность, конвергентный, конфуций?_s, подразделять, продолжатель 
##       Score: ммсо?_s, круглый, конвергентный, яндекс, стриж, стол, салон 
## Topic 20 Top Words:
##       Highest Prob: язык, платформа, система, год, ученик, цифровой, высокий 
##       FREX: космический, татарстан, пмо?_s, татарский, язык, коллегия, неравенство 
##       Lift: оценочность?_s, космический, татарский, сфу?_s, коллегия, айтишник?_s, несопоставимый 
##       Score: космический, пмо?_s, татарский, татарстан, стандартизированный, коллегия, методолог 
## Topic 21 Top Words:
##       Highest Prob: проект, конкурс, россия, развитие, участник, цифровой, трек 
##       FREX: прорыв, трек, комиссар, тгу?_s, кейс, конструктор, архипелаг 
##       Lift: архипелаг, туристский, беспилотник?_s, верифицироваться?_v, геоскан?_s, гранд, граф 
##       Score: тгу?_s, трек, комиссар, архипелаг, полуфинал, конкурс, кейс 
## Topic 22 Top Words:
##       Highest Prob: ребенок, детский, сад, родитель, год, тарасова, педагог 
##       FREX: радио, детсад, воспитатель, тарасова, сад, уединение, малыш 
##       Lift: ларсен, нежилой, релакс?_s, заселяться, застилать, отгораживать, пичкать 
##       Score: радио, сад, тарасова, уединение, ларсен, воспитатель, детский 
## Topic 23 Top Words:
##       Highest Prob: обучение, год, ребенок, дистанционный, класс, область, регион 
##       FREX: ленинградский, цос?_s, оборудование, мобильный, техника, дистанционно, комитет 
##       Lift: лоиро?_s, меридиан, пресс-клуб, учир?_s, беспрепятственно, визирякин?_s, дрозденко 
##       Score: ленинградский, цос?_s, оборудование, карелия, ноутбук, лидия, кузбасс 
## Topic 24 Top Words:
##       Highest Prob: год, ребенок, компания, россия, деньги, становиться, уже 
##       FREX: авдеев, цукерберг?_s, марк, деньги, женщина, рожать, отец 
##       Lift: миллионер, медведь, авдеев, единорог, жена, родить, мультипликатор 
##       Score: авдеев, марк, цукерберг?_s, женщина, жена, деньги, рожать 
## Topic 25 Top Words:
##       Highest Prob: учитель, год, магистерский, педагог, работать, высокий, ученик 
##       FREX: магистерский, сергеевна, викторовна, николаевна, ивановна, алексеевна, александровна 
##       Lift: архипова, михеев, евгеньевна, координата, колокольцов?_s, алина, антонина 
##       Score: сергеевна, магистерский, николаевна, александровна, викторовна, евгеньевна, алексеевна 
## Topic 26 Top Words:
##       Highest Prob: ребенок, педагог, проект, модель, ситуация, трудный, ранхигс?_s 
##       FREX: трудный, самореализация, жизненный, попов, находиться, фиро?_s, ирина 
##       Lift: бобылев, воробьев, пенитенциарный, расправлять, асоу?_s, всеобщность, евтушенко 
##       Score: фиро?_s, трудный, ранхигс?_s, жизненный, ирина, социализация, вебинар?_s 
## Topic 27 Top Words:
##       Highest Prob: фгос?_s, стандарт, новый, год, общий, проект, российский 
##       FREX: фгос?_s, стандарт, доработка, редакция, иностранец, критика, рао 
##       Lift: надзорный, нащупывать, гильдия, словесник, иностранец, ноо?_s, безбарьерный 
##       Score: фгос?_s, иностранец, стандарт, рао, редакция, асмолов, критика 
## Topic 28 Top Words:
##       Highest Prob: ребенок, учитель, мочь, год, родитель, школьник, говорить 
##       FREX: карантин, радио, контрольный, экзамен, тарасова, сдача, отменять 
##       Lift: аукнуться, духанина?_s, надомный, невнятный, неотработанность, определенно, сбоить 
##       Score: тарасова, радио, егэ, сдача, контрольный, экзамен, карантин 
## Topic 29 Top Words:
##       Highest Prob: дистанционный, учитель, обучение, онлайн, условие, педагог, работа 
##       FREX: респондент, опрос, готовность, опрашивать, процент, дистанционный, рисунок 
##       Lift: единогласный, желательный, изредка, классник?_s, контентный?_a, манкирование, незаконный 
##       Score: респондент, опрос, опрашивать, фиро?_s, готовность, ранхигс?_s, списывать 
## Topic 30 Top Words:
##       Highest Prob: обучение, онлайн, цифровой, мочь, преподаватель, система, работа 
##       FREX: регистрация, вышка, домашний, усталость, канал, собрание, минута 
##       Lift: переутомление, графство, домино, нервировать, упразднение, физиологически, хартфордшир?_s 
##       Score: вышка, усталость, регистрация, ивановский, нервировать, самоподготовка, уставать 
## Topic 31 Top Words:
##       Highest Prob: портфолио, цифровой, достижение, мочь, вуз, спбга?_s, студент 
##       FREX: портфолио, спбга?_s, рособрнадзор?_s, абитуриент, музаев?_s, анзор, балл 
##       Lift: кропачев?_s, несовершенный, фиктивный, музаев?_s, портфолио, начислять, анзор 
##       Score: портфолио, музаев?_s, спбга?_s, рособрнадзор?_s, анзор, абитуриент, балл 
## Topic 32 Top Words:
##       Highest Prob: развитие, система, региональный, цифровой, регион, работа, год 
##       FREX: совещание, инновационный, региональный, инициатива, сетевой, стратегический, экономика 
##       Lift: экватор, брусницына, галиханов?_s, индексация, нормирование, роялти, шайхутдинов?_s 
##       Score: совещание, бунаков, допобразование?_s, югра, сессия, митрофанов, дорожный 
## Topic 33 Top Words:
##       Highest Prob: сош?_s, мбоу?_s, гимназия, г, район, год, область 
##       FREX: мбоу?_s, сош?_s, мкоу?_s, гимназия, маоу?_s, елец, пенза 
##       Lift: стаховская?_s, александрова, видеообращение?_s, демин, доброта, есин, йошкар-ола 
##       Score: сош?_s, мбоу?_s, гимназия, маоу?_s, мкоу?_s, район, победитель 
## Topic 34 Top Words:
##       Highest Prob: новый, работа, онлайн, пандемия, обучение, год, отмечать 
##       FREX: дискуссия, пандемия, красноярский, персонал, госслужба?_s, корпоративный, кадр 
##       Lift: освещаться, консалтинг, госслужащий, ростеха?_s, старовойт?_s, смит, госслужба?_s 
##       Score: госслужба?_s, красноярский, дискуссия, ростеха?_s, гайдаровский?_a, корпоративный, садовничий 
## Topic 35 Top Words:
##       Highest Prob: педагогический, профессиональный, организация, центр, педагог, развитие, работа 
##       FREX: алтайский, работник, семинар, служба, мбдоу?_s, дошкольный, наставничество 
##       Lift: госзадание?_s, петушинский, репин, мининский?_a, мэо?_s, форс-мажор, мбдоу?_s 
##       Score: фиро?_s, мбдоу?_s, дошкольный, алтайский, ранхигс?_s, сад, мининский?_a 
## Topic 36 Top Words:
##       Highest Prob: учитель, год, платформа, ребенок, сберкласс?_s, новый, педагог 
##       FREX: й, сберкласс?_s, обратный, владимир, путин, методология, пмо?_s 
##       Lift: односторонний, поговорка, поразмыслить, рассмешить, враг, перо, обертываться 
##       Score: сберкласс?_s, шалва, пмо?_s, перо, рао, поговорка, амонашвили?_s 
## Topic 37 Top Words:
##       Highest Prob: студент, университет, вуз, программа, курс, обучение, индивидуальный 
##       FREX: студент, вуз, урфа, иот?_s, дисциплина, университет, курс 
##       Lift: кокшаров, клеточка, подгонка, радиоэлектроника, электив?_s, иот?_s, самоопределяться 
##       Score: иот?_s, урфа, студент, университет, вуз, дисциплина, курс 
## Topic 38 Top Words:
##       Highest Prob: медицинский, пензенский, год, марина, инженерный, также, уже 
##       FREX: пензенский, дементьев, физик, производитель, медицинский, инженер, дементьева 
##       Lift: домарев?_s, купля, луи, мединдустрия?_s, пгу?_s, подозрение, светомузыкальный?_a 
##       Score: пензенский, медицинский, дементьев, физик, подозрение, производитель, изделие 
## Topic 39 Top Words:
##       Highest Prob: учитель, педагог, год, работа, программа, дефицит, работать 
##       FREX: дефицит, земский, вакансия, стриж, зарплата, претендент, сельский 
##       Lift: первоклашка, подвижнический, полюбить, драгоценный, пединститут, рекреация, цок?_s 
##       Score: земский, дефицит, стриж, вакансия, полюбить, вакантный, претендент 
## Topic 40 Top Words:
##       Highest Prob: новый, цифровой, технология, развитие, бизнес, технологический, организация 
##       FREX: инженер, инженерный, грамотность, технологический, книга, евразия, бизнес 
##       Lift: гений, предвидение, визитный, выраженный, недаром, евразия, рельефно 
##       Score: инженерный, инженер, евразия, грамотность, капитализм, предвидение, книга 
## Topic 41 Top Words:
##       Highest Prob: человек, обучение, мочь, студент, онлайн, ученик, вуз 
##       FREX: индивидуализация, бикбулатова, мотивация, айрат, альбина, миша, пищевой 
##       Lift: комьюнити?_s, бикбулатова, калашникова, тоннель, гранулированный, оригинально, подталкивание 
##       Score: миша, бикбулатова, альбина, пищевой, айрат, индивидуализация, ситников 
## Topic 42 Top Words:
##       Highest Prob: ребенок, конференция, ранхигс?_s, центр, развитие, фиро?_s, дошкольный 
##       FREX: раса, морозов, фиро?_s, сопровождение, аутистический?_a, дошкольный, конференция 
##       Lift: корелин?_s, младенческий, робо?_s, сплочение, царев, чигрина?_s, аутичный 
##       Score: раса, фиро?_s, ранхигс?_s, дошкольный, социализация, морозов, аутистический?_a 
## Topic 43 Top Words:
##       Highest Prob: год, страна, общий, вопрос, министр, стандарт, российский 
##       FREX: кравцов, министр, асмолов, рао, академик, фгос?_s, заседание 
##       Lift: залежалый, минпросовский?_a, хузин?_s, декларативный, духоподъемный?_a, инкриминировать, криулино?_s 
##       Score: кравцов, рао, асмолов, редакционный, фгос?_s, хузин?_s, заседание 
## Topic 44 Top Words:
##       Highest Prob: платформа, цифровой, обучение, ученик, сбербанк, школьный, задание 
##       FREX: липецкий, платформа, видео, график, задание, нижегородский, калининградский 
##       Lift: беспрерывный, дообучать?_v, роскосмос?_s, алиханов, загеев?_s, космонавтика, прокопьевск 
##       Score: липецкий, сбербанк, кузбасс, нижегородский, платформа, калининградский, кузбасский 
## Topic 45 Top Words:
##       Highest Prob: конкурс, учебный, материал, участие, будущее, фонд, номинация 
##       FREX: номинация, конкурс, приз, заявка, конкурсный, компетентность, положение 
##       Lift: каронн?_s, селекторный, межпредметность?_s, скан, лилипутина?_s, видеоматериал, турчин 
##       Score: конкурс, номинация, заявка, приз, конкурсный, победитель, остров 
## Topic 46 Top Words:
##       Highest Prob: ребенок, программа, мочь, педагог, учитель, развитие, личностный 
##       FREX: белгородский, личностный, эмоция, потенциал, эмоциональный, отставать, людмила 
##       Lift: достояние, симулировать, доброжелательность, злиться, пещера, думаться, коридор 
##       Score: белгородский, личностный, сад, эмоция, григорьевич, симулировать, детский 
## Topic 47 Top Words:
##       Highest Prob: педагог, учитель, ребенок, человек, новый, мочь, работать 
##       FREX: диана, наставник, наверное, конечно, слышать, прием, владеть 
##       Lift: гугл, законченный, кивнуть, незыблемый, пешка, подавно, разъехаться 
##       Score: диана, фасилитационный?_a, слет, смолякова, кашинский, партия, наставник 
## Topic 48 Top Words:
##       Highest Prob: обучение, ребенок, дистанционный, цифровой, платформа, система, российский 
##       FREX: ст, конституция, фз, согласие, навигатор, персональный, закон 
##       Lift: безальтернативный, вступ?_s, дистационный?_a, есиа?_s, изм?_s, преимущественный, сенатор 
##       Score: ст, конституция, слом, фз, согласие, минпросвет?_s, ася 
## Topic 49 Top Words:
##       Highest Prob: система, решение, сервис, новый, частный, технология, платформа 
##       FREX: нейроинтерфейс?_s, биометрический, нейротехнология?_s, бесконтактный, частный, пациент, идентификация 
##       Lift: бизнес-приложение, титов, убор, хорошевский, шеринговый?_a, бесконтактность?_s, видеоаналитик?_s 
##       Score: нейроинтерфейс?_s, нейротехнология?_s, биометрический, бесконтактный, пациент, пропускной, частный 
## Topic 50 Top Words:
##       Highest Prob: область, организация, год, ребенок, обучение, дистанционный, обучающийся 
##       FREX: ульяновский, питание, обучающийся, воронежский, автобус, пищеблок, ответ 
##       Lift: расходный, заслушивание, пересматриваться, сравниться, уба, столовый, вышеуказанный 
##       Score: ульяновский, питание, пищеблок, муниципальный, бунаков, воронежский, автобус 
## Topic 51 Top Words:
##       Highest Prob: искусственный, система, интеллект, край, год, хабаровск, уже 
##       FREX: хабаровск, земля, вакцина, продовольственный, беспилотный, транспорт, локомотив 
##       Lift: гектар, продовольственный, стикер, сенсор, фермерский, бить, раунд 
##       Score: стикер, хабаровск, продовольственный, беспилотный, транспорт, тайга, земля 
## Topic 52 Top Words:
##       Highest Prob: урок, искусственный, интеллект, цифра, цифровой, проект, технология 
##       FREX: цифра, искусственный, урок, интеллект, олимпиада, просветительский, машинный 
##       Lift: урокцифра?_s, блажь, кентавр, приватность?_s, сопроводительный, стрелецкий, касперский 
##       Score: кентавр, искусственный, урок, интеллект, цифра, просветительский, вебинар?_s 
## Topic 53 Top Words:
##       Highest Prob: год, программа, цифровой, проект, обучение, профессиональный, организация 
##       FREX: гражданин, колледж, спортивный, материально-технический, показатель, население, спорт 
##       Lift: новенький, новочеркасск, стилус?_s, счастливчик, предпенсионный, безработный, легковой 
##       Score: гражданин, спортивный, материально-технический, колледж, спорт, плановый, уфа 
## Topic 54 Top Words:
##       Highest Prob: персонализировать, обучение, группа, учитель, программа, сбербанк, область 
##       FREX: свердловский, белый, металлургия, результативный, группа, котово, сессия 
##       Lift: булин, качканар, сысерть, анащенко?_s, брусницын, заряд, котово 
##       Score: металлургия, свердловский, котово, белый, первоуральск, екатеринбург, сысерть 
## Topic 55 Top Words:
##       Highest Prob: муниципальный, учреждение, общеобразовательный, город, автономный, округ, городской 
##       FREX: муниципальный, автономный, округ, екатеринбург, общеобразовательный, учреждение, городской 
##       Lift: трубный, петушок, бабет?_s, тагил, комбинированный, предпрофильный?_a, прокопьевский 
##       Score: муниципальный, автономный, екатеринбург, округ, общеобразовательный, свердловский, тагил 
## Topic 56 Top Words:
##       Highest Prob: навык, обучение, ребенок, цифровой, развитие, год, интеллект 
##       FREX: навык, меняться, тренд, мягкий, интеллект, востребовать, сбера?_s 
##       Lift: тянуться, навыковый?_a, переучиваться, гимн, хард, ку, диджитализация?_s 
##       Score: греф, сбера?_s, навык, мягкий, сбер?_s, интеллект, искусственный 
## Topic 57 Top Words:
##       Highest Prob: педагогический, наука, вебинар?_s, русский, слово, университет, май 
##       FREX: издательство, филологический, умк?_s, вебинар?_s, дидактика, май, русский 
##       Lift: слепов?_s, тихоновский, янушкявичен?_s, козьма, межвузовский, меркина?_s, мещерякова 
##       Score: вебинар?_s, издательство, мещерякова, умк?_s, филологический, консорциум, кандидат 
## Topic 58 Top Words:
##       Highest Prob: будущее, вклад, фонд, программа, личностный, развитие, потенциал 
##       FREX: консорциум, вклад, психология, личностный, асмолов, реморенко?_s, фонд 
##       Lift: заморский, недостижимый, обыденный, утвердительный, рбоо?_s, положевцо?_s, реморенко?_s 
##       Score: консорциум, асмолов, личностный, вклад, реморенко?_s, григорьевич, психология 
## Topic 59 Top Words:
##       Highest Prob: ребенок, задача, задание, учитель, ученик, уровень, мочь 
##       FREX: пользователь, отметка, задание, сложность, рейтинг, оценивание, модуль 
##       Lift: фигурировать, ежевечерний, листочек, подбираться, пятиминутный, устно, эдьютейнмент?_s 
##       Score: отметка, пользователь, эдьютейнмент?_s, задание, модуль, рейтинг, фигурировать 
## Topic 60 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, обучение, школьный, проект, развитие 
##       FREX: креативный, содержать, критически, сберкласс?_s, соответствовать, мыслить, республика 
##       Lift: информполитика?_s, козюр?_s, чван?_s, приморский, радюшкин?_a, риамо?_adv, среднерусский 
##       Score: хабаровский, сбербанк, сберкласс?_s, двфу?_s, креативный, мыслить, содержать 
## Topic 61 Top Words:
##       Highest Prob: сбербанк, год, сервис, банк, проект, клиент, рубль 
##       FREX: кредит, клиент, ипотека, безналичный, сбера?_s, сбер?_s, ипотечный 
##       Lift: горбунок, заемщик, ломоносовский, наличка, наличные, рефинансирование, самокат 
##       Score: кредит, сбера?_s, клиент, сбербанк, сбер?_s, млрд, банк 
## Topic 62 Top Words:
##       Highest Prob: университет, конференция, технология, обучение, онлайн, новый, мисис?_s 
##       FREX: мисис?_s, нит, инжиниринг, рейтинг, конференция, дискуссия, университет 
##       Lift: блиц-интервью, грейс, дворкович?_s, джефф, дюбук?_s, лакин?_s, маджионкальд?_s 
##       Score: мисис?_s, нит, остров, инжиниринг, университет, рейтинг, конференция 
## Topic 63 Top Words:
##       Highest Prob: н, центр, кафедра, институт, в, медицинский, форум 
##       FREX: клинический, ргппа?_s, н, клуб, метапредметный?_a, онкология, форум 
##       Lift: анатомия, биомедицинский, онкология, хирургия, ревда, евразийский, ирландия 
##       Score: хирургия, ргппа?_s, клинический, н, онкология, кафедра, анатомия 
## Topic 64 Top Words:
##       Highest Prob: профессиональный, личность, будущее, развитие, студент, прогностический, поколение 
##       FREX: прогностический, прогнозирование, личность, компонент, компетентность, познавательный, поколение 
##       Lift: центрировать, беспомощность, регулятивный, структурно, целостность, церковникова?_s, аналитичность 
##       Score: прогностический, прогнозирование, личность, компонент, р, настоящее, компетентность 
## Topic 65 Top Words:
##       Highest Prob: учитель, проект, платформа, цифровой, обучение, система, ребенок 
##       FREX: краснодарский, орловский, бунинский, краснодар, сберкласс?_s, кубань, край 
##       Lift: бурлачко?_s, гайдук, кубанец, кубанский, моноблок, подгружать, подолько?_adv 
##       Score: сберкласс?_s, краснодарский, орловский, бунинский, кубань, краснодар, край 
## Topic 66 Top Words:
##       Highest Prob: университет, рынок, год, компания, мочь, проект, студент 
##       FREX: ниша, тпу?_s, фадеев, рынок, квантовый, выручка, индустрия 
##       Lift: авто, брошюра, геологический, глючать?_v, диффур?_s, зачетка, киберфизический?_a 
##       Score: тпу?_s, фадеев, ниша, тгу?_s, рынок, квантовый, выручка 
## Topic 67 Top Words:
##       Highest Prob: ребенок, программа, год, работа, педагог, онлайн, школьный 
##       FREX: сберкампус?_s, воронежский, лагерь, корифей, технопарк?_s, маша, интенсив 
##       Lift: картография, летательный, филипка, этнокультурный, буфет, радоваться, стул 
##       Score: сберкампус?_s, маша, воронежский, корифей, этнокультурный, интенсив, технопарк?_s 
## Topic 68 Top Words:
##       Highest Prob: знание, подчеркивать, осваивать, школьный, желание, янаульский?_a, рассказывать 
##       FREX: подчеркивать, янаульский?_a, осваивать, желание, знание, свежий, школьный 
##       Lift: янаульский?_a, свежий, печатный, подчеркивать, выпуск, современность, осваивать 
##       Score: янаульский?_a, осваивать, подчеркивать, свежий, желание, печатный, выпуск
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
##  [1]  -85.15910  -76.34537  -29.91541  -24.43673  -50.73472  -28.10190
##  [7]  -40.23698  -52.07151  -48.43230  -72.15652  -70.17370  -81.87355
## [13]  -47.38194  -36.78085  -40.32829  -42.32512  -48.61284  -38.89164
## [19]  -62.89439  -53.55058  -48.55150  -61.17566  -24.71794  -45.46436
## [25] -102.08657  -63.31113  -41.67811  -36.37295  -43.11870  -37.67812
## [31]  -69.99793  -42.76364  -63.65803  -36.68625  -42.72731  -39.14672
## [37]  -39.93551 -129.59637  -45.80199  -58.52193  -36.00465  -68.08307
## [43]  -50.77858  -23.73003  -52.20265  -35.80037  -30.35102  -37.86367
## [49]  -45.21001  -65.58776 -113.15756  -65.75030  -41.69519  -26.67214
## [55]  -81.97084  -38.19094  -88.29399  -46.62340  -33.97816  -18.90934
## [61]  -70.02518  -77.83198  -70.45412 -100.52484  -36.92581  -47.22107
## [67]  -33.65493 -133.01392
##  [1] 9.594354 9.553892 9.880529 9.151736 9.798675 9.345141 9.902236 9.684309
##  [9] 9.104494 9.295808 9.807460 9.646750 9.735679 9.282608 9.869191 9.337875
## [17] 9.563869 9.385765 9.620674 9.546870 9.705381 9.497537 9.558613 9.263789
## [25] 9.669980 9.831804 9.414016 9.217066 9.668872 9.393632 9.857369 9.655902
## [33] 9.756819 9.324625 9.729357 9.368767 9.764314 9.699529 9.306794 9.229348
## [41] 9.172764 9.799366 9.453847 9.814684 9.917045 9.125884 9.361386 9.184543
## [49] 9.482208 9.463220 9.720607 9.906922 9.662103 9.686746 9.956681 9.637581
## [57] 9.849587 9.808270 9.446829 9.786995 9.629510 9.701791 9.849608 9.719651
## [65] 9.262981 9.333641 9.205636 9.993234

Sys.time() - t
## Time difference of 5.444169 mins

16 тем

##1

t <- Sys.time()
n.topics <- 16

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 1
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: ребенок, человек, мочь, очень, работать, говорить, сейчас 
##       FREX: думать, очень, знать, казаться, действительно, надо, научаться 
##       Lift: бирюзовый, восклицание, выучиваться, гарри, грамматика, грефовский?_a, директивный 
##       Score: греф, конвергентный, миша, стриж, надо, наверное, казаться 
## Topic 2 Top Words:
##       Highest Prob: обучение, дистанционный, ребенок, онлайн, учитель, учебный, год 
##       FREX: экзамен, карантин, дистанционный, расписание, аттестация, дистанционно, дистанционка?_s 
##       Lift: нерабочий, памятный, пресс-клуб, самопознание, тоннель, шафран, азарт 
##       Score: памятный, ленинградский, дифференцированный, ситников, егэ, карантин, швабауэр?_s 
## Topic 3 Top Words:
##       Highest Prob: учитель, ребенок, педагог, обучение, дистанционный, онлайн, работа 
##       FREX: респондент, опрос, тарасова, опрашивать, радио, готовность, процент 
##       Lift: воевать, желательный, классник?_s, контентный?_a, наедине, отчужденность, переутомление 
##       Score: фиро?_s, респондент, тарасова, ранхигс?_s, социализация, контрольно-измерительный, радио 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, школьный, программа, обучение, персонализировать 
##       FREX: смартбокс?_s, комплект, тачпадом?_adv, телевизор, сбербанк, пао?_s, приставка 
##       Lift: беспрерывный, боева, дагестанский, информполитика?_s, козюр?_s, моноблок, нетбук 
##       Score: смартбокс?_s, сбербанк, тачпадом?_adv, приставка, клавиатура, телевизор, безвозмездно 
## Topic 5 Top Words:
##       Highest Prob: ребенок, цифровой, сош?_s, обучение, мбоу?_s, г, платформа 
##       FREX: мбоу?_s, сош?_s, ст, маоу?_s, вадский, мкоу?_s, урицкий 
##       Lift: колокольцов?_s, мкоу?_s, урицкий, форсайтщик?_s, александрова, афера, басня 
##       Score: сош?_s, мбоу?_s, ст, маоу?_s, вадский, урицкий, мкоу?_s 
## Topic 6 Top Words:
##       Highest Prob: год, новый, ребенок, россия, человек, педагогика, становиться 
##       FREX: шалва, гуманный, амонашвили?_s, капитализм, благосостояние, авдеев, шапша?_s 
##       Lift: капитализм, англия, африканский, бесконтактность?_s, бульба, бушети?_s, видеоаналитик?_s 
##       Score: амонашвили?_s, шалва, гуманный, авдеев, шапша?_s, благосостояние, нейроинтерфейс?_s 
## Topic 7 Top Words:
##       Highest Prob: цифровой, проект, развитие, технология, новый, экономика, год 
##       FREX: экономика, кадр, инженерный, инженер, искусственный, интеллект, трансформация 
##       Lift: касперский, преемственный, сивцев?_s, симуляция, трансфер, урокцифра?_s, якутский 
##       Score: инженерный, цос?_s, искусственный, цифровой, кентавр, кадр, тгу?_s 
## Topic 8 Top Words:
##       Highest Prob: педагогический, наука, развитие, институт, директор, кафедра, научный 
##       FREX: кафедра, мгпу?_s, доцент, доклад, консорциум, кандидат, профессор 
##       Lift: гриншкун?_s, плотникова, сплочение, тихоновский, янушкявичен?_s, азевич, анатомия 
##       Score: доцент, кафедра, консорциум, н, мгпу?_s, доклад, сергеевна 
## Topic 9 Top Words:
##       Highest Prob: университет, студент, обучение, вуз, онлайн, новый, технология 
##       FREX: мисис?_s, нит, студент, университет, вуз, урфа, рынок 
##       Lift: блиц-интервью, выживать, госслужащий, дворкович?_s, деканат, дюбук?_s, емкость 
##       Score: мисис?_s, нит, иот?_s, урфа, студент, университет, тпу?_s 
## Topic 10 Top Words:
##       Highest Prob: развитие, профессиональный, будущее, личность, фгос?_s, новый, стандарт 
##       FREX: прогностический, прогнозирование, личность, фгос?_s, поколение, неопределенность, ценностный 
##       Lift: абориген, агрессивный, актуализироваться, беспомощность, бессознательно, блокироваться, буржуазный 
##       Score: прогностический, прогнозирование, личность, асмолов, картирование, рао, регулятивный 
## Topic 11 Top Words:
##       Highest Prob: конкурс, платформа, учебный, задание, персонализировать, обучение, материал 
##       FREX: конкурс, номинация, приз, универсальный, задание, кейс, модуль 
##       Lift: координата, роскосмос?_s, рубрикатор, широта, котово, анащенко?_s, аудиофайл?_s 
##       Score: конкурс, номинация, задание, приз, межпредметность?_s, остров, котово 
## Topic 12 Top Words:
##       Highest Prob: год, ребенок, учреждение, проект, муниципальный, организация, область 
##       FREX: муниципальный, сад, ремонт, автономный, округ, общеобразовательный, бюджетный 
##       Lift: аварийный, автодорога, автолаб?_s, агропромышленный, агрохимия, антарес, базарный 
##       Score: дошкольный, куйвашев?_s, муниципальный, каменск, сад, общеобразовательный, тагил 
## Topic 13 Top Words:
##       Highest Prob: сбербанк, год, сервис, проект, банк, клиент, медицинский 
##       FREX: безналичный, клиент, кредит, сберздоровье?_s, господдержка?_s, пензенский, ипотечный 
##       Lift: медоборудование, сберздоровье?_s, амбассадор?_s, антей, астраханец, аэропорт, бактерицидный 
##       Score: сбера?_s, сберздоровье?_s, пензенский, клиент, сбер?_s, легкое, кредит 
## Topic 14 Top Words:
##       Highest Prob: педагог, учитель, год, работа, проект, программа, педагогический 
##       FREX: портфолио, югра, лицей, олимпиада, этап, спбга?_s, сессия 
##       Lift: анжелика, бабет?_s, борисоглебский?_a, булгаков, гугл, когалым, мирошниченко 
##       Score: югра, портфолио, конкурс, полуфинал, лицей, педагог, корифей 
## Topic 15 Top Words:
##       Highest Prob: ребенок, ранхигс?_s, фиро?_s, центр, педагог, развитие, дополнительный 
##       FREX: фиро?_s, ранхигс?_s, научно-исследовательский, трудный, социализация, семинар, раса 
##       Lift: бобылев, воробьев, иваново, илюхин, корелин?_s, корчаковский?_a, олигофренопедагогика 
##       Score: фиро?_s, ранхигс?_s, социализация, раса, дошкольный, канд?_s, научно-исследовательский 
## Topic 16 Top Words:
##       Highest Prob: учитель, ребенок, платформа, сберкласс?_s, цифровой, обучение, проект 
##       FREX: пмо?_s, сберкласс?_s, краснодарский, наставник, методология, обратный, меняться 
##       Lift: гайдук, кубанец, подгружать, путаться, трехуровневый?_a, бурлачко?_s, кубанский 
##       Score: пмо?_s, сберкласс?_s, краснодарский, кубань, бурлачко?_s, ракова, сбер?_s
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
##  [1] -31.76137 -25.77866 -28.00242 -16.33089 -62.87012 -43.21585 -28.22925
##  [8] -51.09987 -35.29866 -53.81538 -36.36476 -48.21980 -68.58241 -32.76945
## [15] -37.04350 -29.91096
##  [1] 9.228708 8.917412 9.003227 9.682752 9.018960 8.532490 9.328589 9.516002
##  [9] 8.905587 9.140994 9.553930 9.352192 9.309764 8.848833 9.632483 8.934163

Sys.time() - t
## Time difference of 1.35406 mins

##2

t <- Sys.time()
n.topics <- 16

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 2
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: ребенок, человек, мочь, очень, работать, говорить, сейчас 
##       FREX: думать, очень, знать, казаться, действительно, надо, научаться 
##       Lift: бирюзовый, восклицание, выучиваться, гарри, грамматика, грефовский?_a, директивный 
##       Score: греф, конвергентный, миша, стриж, надо, наверное, казаться 
## Topic 2 Top Words:
##       Highest Prob: обучение, дистанционный, ребенок, онлайн, учитель, учебный, год 
##       FREX: экзамен, карантин, дистанционный, расписание, аттестация, дистанционно, дистанционка?_s 
##       Lift: нерабочий, памятный, пресс-клуб, самопознание, тоннель, шафран, азарт 
##       Score: памятный, ленинградский, дифференцированный, ситников, егэ, карантин, швабауэр?_s 
## Topic 3 Top Words:
##       Highest Prob: учитель, ребенок, педагог, обучение, дистанционный, онлайн, работа 
##       FREX: респондент, опрос, тарасова, опрашивать, радио, готовность, процент 
##       Lift: воевать, желательный, классник?_s, контентный?_a, наедине, отчужденность, переутомление 
##       Score: фиро?_s, респондент, тарасова, ранхигс?_s, социализация, контрольно-измерительный, радио 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, школьный, программа, обучение, персонализировать 
##       FREX: смартбокс?_s, комплект, тачпадом?_adv, телевизор, сбербанк, пао?_s, приставка 
##       Lift: беспрерывный, боева, дагестанский, информполитика?_s, козюр?_s, моноблок, нетбук 
##       Score: смартбокс?_s, сбербанк, тачпадом?_adv, приставка, клавиатура, телевизор, безвозмездно 
## Topic 5 Top Words:
##       Highest Prob: ребенок, цифровой, сош?_s, обучение, мбоу?_s, г, платформа 
##       FREX: мбоу?_s, сош?_s, ст, маоу?_s, вадский, мкоу?_s, урицкий 
##       Lift: колокольцов?_s, мкоу?_s, урицкий, форсайтщик?_s, александрова, афера, басня 
##       Score: сош?_s, мбоу?_s, ст, маоу?_s, вадский, урицкий, мкоу?_s 
## Topic 6 Top Words:
##       Highest Prob: год, новый, ребенок, россия, человек, педагогика, становиться 
##       FREX: шалва, гуманный, амонашвили?_s, капитализм, благосостояние, авдеев, шапша?_s 
##       Lift: капитализм, англия, африканский, бесконтактность?_s, бульба, бушети?_s, видеоаналитик?_s 
##       Score: амонашвили?_s, шалва, гуманный, авдеев, шапша?_s, благосостояние, нейроинтерфейс?_s 
## Topic 7 Top Words:
##       Highest Prob: цифровой, проект, развитие, технология, новый, экономика, год 
##       FREX: экономика, кадр, инженерный, инженер, искусственный, интеллект, трансформация 
##       Lift: касперский, преемственный, сивцев?_s, симуляция, трансфер, урокцифра?_s, якутский 
##       Score: инженерный, цос?_s, искусственный, цифровой, кентавр, кадр, тгу?_s 
## Topic 8 Top Words:
##       Highest Prob: педагогический, наука, развитие, институт, директор, кафедра, научный 
##       FREX: кафедра, мгпу?_s, доцент, доклад, консорциум, кандидат, профессор 
##       Lift: гриншкун?_s, плотникова, сплочение, тихоновский, янушкявичен?_s, азевич, анатомия 
##       Score: доцент, кафедра, консорциум, н, мгпу?_s, доклад, сергеевна 
## Topic 9 Top Words:
##       Highest Prob: университет, студент, обучение, вуз, онлайн, новый, технология 
##       FREX: мисис?_s, нит, студент, университет, вуз, урфа, рынок 
##       Lift: блиц-интервью, выживать, госслужащий, дворкович?_s, деканат, дюбук?_s, емкость 
##       Score: мисис?_s, нит, иот?_s, урфа, студент, университет, тпу?_s 
## Topic 10 Top Words:
##       Highest Prob: развитие, профессиональный, будущее, личность, фгос?_s, новый, стандарт 
##       FREX: прогностический, прогнозирование, личность, фгос?_s, поколение, неопределенность, ценностный 
##       Lift: абориген, агрессивный, актуализироваться, беспомощность, бессознательно, блокироваться, буржуазный 
##       Score: прогностический, прогнозирование, личность, асмолов, картирование, рао, регулятивный 
## Topic 11 Top Words:
##       Highest Prob: конкурс, платформа, учебный, задание, персонализировать, обучение, материал 
##       FREX: конкурс, номинация, приз, универсальный, задание, кейс, модуль 
##       Lift: координата, роскосмос?_s, рубрикатор, широта, котово, анащенко?_s, аудиофайл?_s 
##       Score: конкурс, номинация, задание, приз, межпредметность?_s, остров, котово 
## Topic 12 Top Words:
##       Highest Prob: год, ребенок, учреждение, проект, муниципальный, организация, область 
##       FREX: муниципальный, сад, ремонт, автономный, округ, общеобразовательный, бюджетный 
##       Lift: аварийный, автодорога, автолаб?_s, агропромышленный, агрохимия, антарес, базарный 
##       Score: дошкольный, куйвашев?_s, муниципальный, каменск, сад, общеобразовательный, тагил 
## Topic 13 Top Words:
##       Highest Prob: сбербанк, год, сервис, проект, банк, клиент, медицинский 
##       FREX: безналичный, клиент, кредит, сберздоровье?_s, господдержка?_s, пензенский, ипотечный 
##       Lift: медоборудование, сберздоровье?_s, амбассадор?_s, антей, астраханец, аэропорт, бактерицидный 
##       Score: сбера?_s, сберздоровье?_s, пензенский, клиент, сбер?_s, легкое, кредит 
## Topic 14 Top Words:
##       Highest Prob: педагог, учитель, год, работа, проект, программа, педагогический 
##       FREX: портфолио, югра, лицей, олимпиада, этап, спбга?_s, сессия 
##       Lift: анжелика, бабет?_s, борисоглебский?_a, булгаков, гугл, когалым, мирошниченко 
##       Score: югра, портфолио, конкурс, полуфинал, лицей, педагог, корифей 
## Topic 15 Top Words:
##       Highest Prob: ребенок, ранхигс?_s, фиро?_s, центр, педагог, развитие, дополнительный 
##       FREX: фиро?_s, ранхигс?_s, научно-исследовательский, трудный, социализация, семинар, раса 
##       Lift: бобылев, воробьев, иваново, илюхин, корелин?_s, корчаковский?_a, олигофренопедагогика 
##       Score: фиро?_s, ранхигс?_s, социализация, раса, дошкольный, канд?_s, научно-исследовательский 
## Topic 16 Top Words:
##       Highest Prob: учитель, ребенок, платформа, сберкласс?_s, цифровой, обучение, проект 
##       FREX: пмо?_s, сберкласс?_s, краснодарский, наставник, методология, обратный, меняться 
##       Lift: гайдук, кубанец, подгружать, путаться, трехуровневый?_a, бурлачко?_s, кубанский 
##       Score: пмо?_s, сберкласс?_s, краснодарский, кубань, бурлачко?_s, ракова, сбер?_s
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
##  [1] -31.76137 -25.77866 -28.00242 -16.33089 -62.87012 -43.21585 -28.22925
##  [8] -51.09987 -35.29866 -53.81538 -36.36476 -48.21980 -68.58241 -32.76945
## [15] -37.04350 -29.91096
##  [1] 9.228708 8.917412 9.003227 9.682752 9.018960 8.532490 9.328589 9.516002
##  [9] 8.905587 9.140994 9.553930 9.352192 9.309764 8.848833 9.632483 8.934163

Sys.time() - t
## Time difference of 1.311725 mins

15 тем

##1

t <- Sys.time()
n.topics <- 15

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 3
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: ребенок, человек, мочь, очень, учитель, говорить, работать 
##       FREX: знать, надо, очень, думать, конечно, понимать, говорить 
##       Lift: восклицание, враг, выучиваться, гарри, грамматика, грефовский?_a, гувернер 
##       Score: греф, стриж, миша, казаться, конвергентный, надо, цукерберг?_s 
## Topic 2 Top Words:
##       Highest Prob: обучение, дистанционный, ребенок, онлайн, учитель, ученик, учебный 
##       FREX: экзамен, карантин, пользователь, расписание, егэ, дистанционный, дистанционно 
##       Lift: азарт, аккредитовать, асинхронный, бездушный, беспрепятственно, взлом, визирякин?_s 
##       Score: памятный, пользователь, дифференцированный, задание, егэ, карантин, ситников 
## Topic 3 Top Words:
##       Highest Prob: учитель, ребенок, педагог, обучение, дистанционный, онлайн, работа 
##       FREX: опрос, респондент, тарасова, опрашивать, готовность, наталья, радио 
##       Lift: абсурд, амос, велеть, висеть, воевать, гильотина, графство 
##       Score: тарасова, фиро?_s, респондент, ранхигс?_s, социализация, опрашивать, контрольно-измерительный 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, школьный, программа, обучение, персонализировать 
##       FREX: смартбокс?_s, комплект, тачпадом?_adv, телевизор, пао?_s, сбербанк, приставка 
##       Lift: алеево?_s, алиханов, байгузинский?_a, бакланова, башинформ?_s, беспрерывный, боева 
##       Score: смартбокс?_s, сбербанк, тачпадом?_adv, приставка, клавиатура, телевизор, безвозмездно 
## Topic 5 Top Words:
##       Highest Prob: цифровой, проект, год, район, обучение, сош?_s, г 
##       FREX: мбоу?_s, сош?_s, ст, район, орловский, ноутбук, маоу?_s 
##       Lift: колокольцов?_s, урицкий, александрова, бунинский, видеообращение?_s, владикавказ, ддт 
##       Score: сош?_s, мбоу?_s, орловский, урицкий, ст, маоу?_s, вадский 
## Topic 6 Top Words:
##       Highest Prob: год, новый, россия, человек, система, педагогика, становиться 
##       FREX: амонашвили?_s, гуманный, шалва, капитализм, женщина, авдеев, благосостояние 
##       Lift: капитализм, амонашвили?_s, хорошевский, щетинин, авдеев, англия, африканский 
##       Score: амонашвили?_s, гуманный, шалва, авдеев, благосостояние, капитализм, шапша?_s 
## Topic 7 Top Words:
##       Highest Prob: цифровой, проект, развитие, технология, новый, экономика, год 
##       FREX: экономика, кадр, инженерный, искусственный, интеллект, инженер, компетенция 
##       Lift: архипелаг, беспилотник?_s, блажь, геоскан?_s, змей, индексация, картографический 
##       Score: инженерный, искусственный, цос?_s, цифровой, кентавр, архипелаг, тгу?_s 
## Topic 8 Top Words:
##       Highest Prob: наука, развитие, институт, педагогический, директор, центр, конференция 
##       FREX: доцент, кафедра, доклад, кандидат, профессор, мгпу?_s, дпо?_s 
##       Lift: авалуев?_s, анатомия, артеменко, атрощенко, бобылев, геномный, гриншкун?_s 
##       Score: ранхигс?_s, доцент, фиро?_s, канд?_s, кафедра, дошкольный, доклад 
## Topic 9 Top Words:
##       Highest Prob: университет, студент, вуз, обучение, онлайн, программа, новый 
##       FREX: мисис?_s, нит, студент, университет, вуз, рынок, урфа 
##       Lift: иот?_s, тпу?_s, авто, безоговорочно, бен, бета-версия, бикбулатова 
##       Score: мисис?_s, нит, иот?_s, урфа, университет, тпу?_s, фадеев 
## Topic 10 Top Words:
##       Highest Prob: развитие, профессиональный, личностный, будущее, личность, педагогический, новый 
##       FREX: прогностический, личность, личностный, фгос?_s, прогнозирование, консорциум, поколение 
##       Lift: абориген, агрессивный, акмулла?_s, актуализироваться, аналитичность, антропологический, беспомощность 
##       Score: прогностический, асмолов, консорциум, прогнозирование, рао, личность, реморенко?_s 
## Topic 11 Top Words:
##       Highest Prob: платформа, конкурс, персонализировать, учитель, учебный, задание, обучение 
##       FREX: пмо?_s, конкурс, номинация, приз, задание, ракова, модуль 
##       Lift: анащенко?_s, аудиофайл?_s, брейн-ринг, верифицироваться?_v, гранд, граф, доделывать 
##       Score: конкурс, пмо?_s, номинация, задание, сберкласс?_s, межпредметность?_s, приз 
## Topic 12 Top Words:
##       Highest Prob: год, ребенок, учреждение, муниципальный, область, организация, детский 
##       FREX: муниципальный, сад, автономный, округ, бюджетный, детский, учреждение 
##       Lift: аварийный, автодорога, водопровод, двухразовый, дневной, езаовый?_a, компенсационный 
##       Score: дошкольный, сад, куйвашев?_s, муниципальный, каменск, тагил, округ 
## Topic 13 Top Words:
##       Highest Prob: сбербанк, год, сервис, проект, банк, медицинский, клиент 
##       FREX: безналичный, ипотечный, клиент, сберздоровье?_s, кредит, сбера?_s, господдержка?_s 
##       Lift: алмаз, амбассадор?_s, антей, астраханец, бактерицидный, банкомат, безналичный 
##       Score: сберздоровье?_s, пензенский, сбера?_s, клиент, сбербанк, ипотечный, кредит 
## Topic 14 Top Words:
##       Highest Prob: педагог, учитель, проект, год, работа, программа, педагогический 
##       FREX: портфолио, югра, лицей, олимпиада, воронежский, этап, сессия 
##       Lift: анжелика, бабет?_s, борисоглебский?_a, булгаков, булин, гугл, жеребьевка 
##       Score: портфолио, югра, конкурс, лицей, полуфинал, корифей, сергеевна 
## Topic 15 Top Words:
##       Highest Prob: ребенок, ранхигс?_s, фиро?_s, дополнительный, педагог, модель, проект 
##       FREX: раса, трудный, фиро?_s, самореализация, жизненный, семинар, сопровождение 
##       Lift: аутичный, афера, басня, беженец, брусницына, всеобщность, газман?_s 
##       Score: фиро?_s, ранхигс?_s, раса, социализация, аутизм, ниц, аутистический?_a
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
##  [1] -28.81805 -27.65776 -26.87164 -14.27752 -66.82404 -33.63162 -28.66152
##  [8] -39.63804 -35.29866 -59.87453 -34.10919 -48.20845 -68.76471 -32.23562
## [15] -47.74182
##  [1] 9.120504 8.848770 8.996029 9.668937 9.258500 8.282019 9.300646 9.463313
##  [9] 8.888557 9.133631 9.461892 9.364548 9.297091 8.879005 9.544132

Sys.time() - t
## Time difference of 1.321862 mins

##2

t <- Sys.time()
n.topics <- 15

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 4
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: ребенок, человек, мочь, очень, учитель, говорить, работать 
##       FREX: знать, надо, очень, думать, конечно, понимать, говорить 
##       Lift: восклицание, враг, выучиваться, гарри, грамматика, грефовский?_a, гувернер 
##       Score: греф, стриж, миша, казаться, конвергентный, надо, цукерберг?_s 
## Topic 2 Top Words:
##       Highest Prob: обучение, дистанционный, ребенок, онлайн, учитель, ученик, учебный 
##       FREX: экзамен, карантин, пользователь, расписание, егэ, дистанционный, дистанционно 
##       Lift: азарт, аккредитовать, асинхронный, бездушный, беспрепятственно, взлом, визирякин?_s 
##       Score: памятный, пользователь, дифференцированный, задание, егэ, карантин, ситников 
## Topic 3 Top Words:
##       Highest Prob: учитель, ребенок, педагог, обучение, дистанционный, онлайн, работа 
##       FREX: опрос, респондент, тарасова, опрашивать, готовность, наталья, радио 
##       Lift: абсурд, амос, велеть, висеть, воевать, гильотина, графство 
##       Score: тарасова, фиро?_s, респондент, ранхигс?_s, социализация, опрашивать, контрольно-измерительный 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, школьный, программа, обучение, персонализировать 
##       FREX: смартбокс?_s, комплект, тачпадом?_adv, телевизор, пао?_s, сбербанк, приставка 
##       Lift: алеево?_s, алиханов, байгузинский?_a, бакланова, башинформ?_s, беспрерывный, боева 
##       Score: смартбокс?_s, сбербанк, тачпадом?_adv, приставка, клавиатура, телевизор, безвозмездно 
## Topic 5 Top Words:
##       Highest Prob: цифровой, проект, год, район, обучение, сош?_s, г 
##       FREX: мбоу?_s, сош?_s, ст, район, орловский, ноутбук, маоу?_s 
##       Lift: колокольцов?_s, урицкий, александрова, бунинский, видеообращение?_s, владикавказ, ддт 
##       Score: сош?_s, мбоу?_s, орловский, урицкий, ст, маоу?_s, вадский 
## Topic 6 Top Words:
##       Highest Prob: год, новый, россия, человек, система, педагогика, становиться 
##       FREX: амонашвили?_s, гуманный, шалва, капитализм, женщина, авдеев, благосостояние 
##       Lift: капитализм, амонашвили?_s, хорошевский, щетинин, авдеев, англия, африканский 
##       Score: амонашвили?_s, гуманный, шалва, авдеев, благосостояние, капитализм, шапша?_s 
## Topic 7 Top Words:
##       Highest Prob: цифровой, проект, развитие, технология, новый, экономика, год 
##       FREX: экономика, кадр, инженерный, искусственный, интеллект, инженер, компетенция 
##       Lift: архипелаг, беспилотник?_s, блажь, геоскан?_s, змей, индексация, картографический 
##       Score: инженерный, искусственный, цос?_s, цифровой, кентавр, архипелаг, тгу?_s 
## Topic 8 Top Words:
##       Highest Prob: наука, развитие, институт, педагогический, директор, центр, конференция 
##       FREX: доцент, кафедра, доклад, кандидат, профессор, мгпу?_s, дпо?_s 
##       Lift: авалуев?_s, анатомия, артеменко, атрощенко, бобылев, геномный, гриншкун?_s 
##       Score: ранхигс?_s, доцент, фиро?_s, канд?_s, кафедра, дошкольный, доклад 
## Topic 9 Top Words:
##       Highest Prob: университет, студент, вуз, обучение, онлайн, программа, новый 
##       FREX: мисис?_s, нит, студент, университет, вуз, рынок, урфа 
##       Lift: иот?_s, тпу?_s, авто, безоговорочно, бен, бета-версия, бикбулатова 
##       Score: мисис?_s, нит, иот?_s, урфа, университет, тпу?_s, фадеев 
## Topic 10 Top Words:
##       Highest Prob: развитие, профессиональный, личностный, будущее, личность, педагогический, новый 
##       FREX: прогностический, личность, личностный, фгос?_s, прогнозирование, консорциум, поколение 
##       Lift: абориген, агрессивный, акмулла?_s, актуализироваться, аналитичность, антропологический, беспомощность 
##       Score: прогностический, асмолов, консорциум, прогнозирование, рао, личность, реморенко?_s 
## Topic 11 Top Words:
##       Highest Prob: платформа, конкурс, персонализировать, учитель, учебный, задание, обучение 
##       FREX: пмо?_s, конкурс, номинация, приз, задание, ракова, модуль 
##       Lift: анащенко?_s, аудиофайл?_s, брейн-ринг, верифицироваться?_v, гранд, граф, доделывать 
##       Score: конкурс, пмо?_s, номинация, задание, сберкласс?_s, межпредметность?_s, приз 
## Topic 12 Top Words:
##       Highest Prob: год, ребенок, учреждение, муниципальный, область, организация, детский 
##       FREX: муниципальный, сад, автономный, округ, бюджетный, детский, учреждение 
##       Lift: аварийный, автодорога, водопровод, двухразовый, дневной, езаовый?_a, компенсационный 
##       Score: дошкольный, сад, куйвашев?_s, муниципальный, каменск, тагил, округ 
## Topic 13 Top Words:
##       Highest Prob: сбербанк, год, сервис, проект, банк, медицинский, клиент 
##       FREX: безналичный, ипотечный, клиент, сберздоровье?_s, кредит, сбера?_s, господдержка?_s 
##       Lift: алмаз, амбассадор?_s, антей, астраханец, бактерицидный, банкомат, безналичный 
##       Score: сберздоровье?_s, пензенский, сбера?_s, клиент, сбербанк, ипотечный, кредит 
## Topic 14 Top Words:
##       Highest Prob: педагог, учитель, проект, год, работа, программа, педагогический 
##       FREX: портфолио, югра, лицей, олимпиада, воронежский, этап, сессия 
##       Lift: анжелика, бабет?_s, борисоглебский?_a, булгаков, булин, гугл, жеребьевка 
##       Score: портфолио, югра, конкурс, лицей, полуфинал, корифей, сергеевна 
## Topic 15 Top Words:
##       Highest Prob: ребенок, ранхигс?_s, фиро?_s, дополнительный, педагог, модель, проект 
##       FREX: раса, трудный, фиро?_s, самореализация, жизненный, семинар, сопровождение 
##       Lift: аутичный, афера, басня, беженец, брусницына, всеобщность, газман?_s 
##       Score: фиро?_s, ранхигс?_s, раса, социализация, аутизм, ниц, аутистический?_a
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
##  [1] -28.81805 -27.65776 -26.87164 -14.27752 -66.82404 -33.63162 -28.66152
##  [8] -39.63804 -35.29866 -59.87453 -34.10919 -48.20845 -68.76471 -32.23562
## [15] -47.74182
##  [1] 9.120504 8.848770 8.996029 9.668937 9.258500 8.282019 9.300646 9.463313
##  [9] 8.888557 9.133631 9.461892 9.364548 9.297091 8.879005 9.544132

Sys.time() - t
## Time difference of 1.504116 mins

14 тем

##1

t <- Sys.time()
n.topics <- 14

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 5
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: ребенок, человек, мочь, очень, говорить, работать, учитель 
##       FREX: знать, очень, думать, понимать, конечно, надо, казаться 
##       Lift: банальный, беда, бирюзовый, биться, восклицание, враг, выныривать 
##       Score: греф, миша, цукерберг?_s, конвергентный, надо, стриж, казаться 
## Topic 2 Top Words:
##       Highest Prob: обучение, дистанционный, ребенок, учитель, онлайн, учебный, школьник 
##       FREX: карантин, экзамен, дистанционный, егэ, дистанционно, расписание, дистанционка?_s 
##       Lift: выразитель, минутный, нерабочий, памятный, пресс-клуб, самопознание, тоннель 
##       Score: памятный, карантин, дистанционка?_s, егэ, задание, ситников, дифференцированный 
## Topic 3 Top Words:
##       Highest Prob: учитель, ребенок, педагог, обучение, работа, дистанционный, год 
##       FREX: респондент, опрос, тарасова, опрашивать, готовность, процент, радио 
##       Lift: воевать, встревожить, желательный, классник?_s, контентный?_a, наедине, переутомление 
##       Score: фиро?_s, респондент, тарасова, ранхигс?_s, контрольно-измерительный, социализация, радио 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, школьный, программа, обучение, персонализировать 
##       FREX: смартбокс?_s, комплект, тачпадом?_adv, телевизор, сбербанк, клавиатура, приставка 
##       Lift: боева, дагестанский, информполитика?_s, нетбук, чван?_s, янаульский?_a, тачпадом?_adv 
##       Score: смартбокс?_s, сбербанк, тачпадом?_adv, приставка, телевизор, клавиатура, безвозмездно 
## Topic 5 Top Words:
##       Highest Prob: цифровой, ребенок, обучение, сош?_s, платформа, г, проект 
##       FREX: мбоу?_s, ст, сош?_s, мкоу?_s, вадский, краснодарский, маоу?_s 
##       Lift: агрессивность, александрова, афера, басня, безальтернативный, бигдэйт?_s, бутиковый?_a 
##       Score: сош?_s, ст, мбоу?_s, вадский, маоу?_s, мкоу?_s, минпросвет?_s 
## Topic 6 Top Words:
##       Highest Prob: ребенок, конференция, год, новый, ранхигс?_s, развитие, вопрос 
##       FREX: амонашвили?_s, раса, шалва, гуманный, педагогика, дискуссия, круглый 
##       Lift: хорошевский, щетинин, амонашвили?_s, гастев, ммсо?_s, царев, аутичный 
##       Score: ранхигс?_s, раса, амонашвили?_s, фиро?_s, шалва, гуманный, дискуссия 
## Topic 7 Top Words:
##       Highest Prob: цифровой, проект, развитие, технология, новый, экономика, программа 
##       FREX: экономика, портфолио, кадр, инженерный, трансформация, инженер, компетенция 
##       Lift: архипелаг, беспилотник?_s, гафуров, ильшат, касперский, кропачев?_s, местник 
##       Score: цос?_s, искусственный, портфолио, инженерный, инженер, кентавр, кадр 
## Topic 8 Top Words:
##       Highest Prob: ребенок, педагогический, центр, профессиональный, наука, развитие, ранхигс?_s 
##       FREX: доцент, кандидат, кафедра, вебинар?_s, н, семинар, трудный 
##       Lift: азевич, анатомия, асоу?_s, атрощенко, баранникова, белоруссия, биомедицинский 
##       Score: фиро?_s, ранхигс?_s, доцент, социализация, канд?_s, вебинар?_s, ниц 
## Topic 9 Top Words:
##       Highest Prob: университет, студент, обучение, вуз, онлайн, технология, программа 
##       FREX: мисис?_s, нит, студент, университет, урфа, рынок, вуз 
##       Lift: биржа, блиц-интервью, выживать, госслужащий, дворкович?_s, деканат, дюбук?_s 
##       Score: мисис?_s, нит, иот?_s, урфа, тпу?_s, фадеев, рынок 
## Topic 10 Top Words:
##       Highest Prob: развитие, профессиональный, личностный, будущее, личность, педагогический, новый 
##       FREX: прогностический, личность, личностный, фгос?_s, прогнозирование, консорциум, поколение 
##       Lift: агрессивный, акмулла?_s, беспомощность, блокироваться, богданов, буржуазный, гармонизация 
##       Score: прогностический, консорциум, асмолов, прогнозирование, рао, личность, реморенко?_s 
## Topic 11 Top Words:
##       Highest Prob: платформа, персонализировать, учитель, конкурс, обучение, учебный, ученик 
##       FREX: пмо?_s, конкурс, номинация, приз, задание, персонализировать, методология 
##       Lift: алтгпу?_s, булин, вербальный, качканар, координата, корректность, предеин?_s 
##       Score: конкурс, пмо?_s, сберкласс?_s, номинация, задание, приз, ракова 
## Topic 12 Top Words:
##       Highest Prob: год, ребенок, учреждение, проект, область, муниципальный, организация 
##       FREX: муниципальный, сад, автономный, ремонт, бюджетный, екатеринбург, округ 
##       Lift: аварийный, автодорога, автолаб?_s, агропромышленный, агрохимия, антарес, базарный 
##       Score: дошкольный, куйвашев?_s, каменск, сад, тагил, муниципальный, район 
## Topic 13 Top Words:
##       Highest Prob: год, сбербанк, сервис, проект, медицинский, банк, клиент 
##       FREX: безналичный, ипотечный, клиент, кредит, сберздоровье?_s, господдержка?_s, медицинский 
##       Lift: алмаз, антей, биржевой, бурденко, ветеринария, взнос, вирусный 
##       Score: сбера?_s, сберздоровье?_s, клиент, пензенский, ипотечный, сбербанк, сбер?_s 
## Topic 14 Top Words:
##       Highest Prob: педагог, год, учитель, конкурс, проект, программа, работа 
##       FREX: югра, лицей, обществознание, гимназия, география, этап, заочный 
##       Lift: анжелика, жеребьевка, жуков, когалым, копытов?_s, лопатина, луиза 
##       Score: конкурс, югра, анатольевна, сергеевна, лицей, полуфинал, николаевна
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
##  [1] -27.20243 -28.08763 -31.89147 -14.27752 -59.73084 -43.13356 -26.66590
##  [8] -33.54559 -35.93964 -59.87453 -36.67704 -49.68542 -63.23690 -32.76945
##  [1] 8.949096 8.959240 8.882666 9.641446 9.127215 8.892825 9.208433 9.427343
##  [9] 8.840952 9.056944 9.511606 9.330783 9.300905 8.914196

Sys.time() - t
## Time difference of 1.544952 mins

##2

t <- Sys.time()
n.topics <- 14

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 6
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: ребенок, человек, мочь, очень, говорить, работать, учитель 
##       FREX: знать, очень, думать, понимать, конечно, надо, казаться 
##       Lift: банальный, беда, бирюзовый, биться, восклицание, враг, выныривать 
##       Score: греф, миша, цукерберг?_s, конвергентный, надо, стриж, казаться 
## Topic 2 Top Words:
##       Highest Prob: обучение, дистанционный, ребенок, учитель, онлайн, учебный, школьник 
##       FREX: карантин, экзамен, дистанционный, егэ, дистанционно, расписание, дистанционка?_s 
##       Lift: выразитель, минутный, нерабочий, памятный, пресс-клуб, самопознание, тоннель 
##       Score: памятный, карантин, дистанционка?_s, егэ, задание, ситников, дифференцированный 
## Topic 3 Top Words:
##       Highest Prob: учитель, ребенок, педагог, обучение, работа, дистанционный, год 
##       FREX: респондент, опрос, тарасова, опрашивать, готовность, процент, радио 
##       Lift: воевать, встревожить, желательный, классник?_s, контентный?_a, наедине, переутомление 
##       Score: фиро?_s, респондент, тарасова, ранхигс?_s, контрольно-измерительный, социализация, радио 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, школьный, программа, обучение, персонализировать 
##       FREX: смартбокс?_s, комплект, тачпадом?_adv, телевизор, сбербанк, клавиатура, приставка 
##       Lift: боева, дагестанский, информполитика?_s, нетбук, чван?_s, янаульский?_a, тачпадом?_adv 
##       Score: смартбокс?_s, сбербанк, тачпадом?_adv, приставка, телевизор, клавиатура, безвозмездно 
## Topic 5 Top Words:
##       Highest Prob: цифровой, ребенок, обучение, сош?_s, платформа, г, проект 
##       FREX: мбоу?_s, ст, сош?_s, мкоу?_s, вадский, краснодарский, маоу?_s 
##       Lift: агрессивность, александрова, афера, басня, безальтернативный, бигдэйт?_s, бутиковый?_a 
##       Score: сош?_s, ст, мбоу?_s, вадский, маоу?_s, мкоу?_s, минпросвет?_s 
## Topic 6 Top Words:
##       Highest Prob: ребенок, конференция, год, новый, ранхигс?_s, развитие, вопрос 
##       FREX: амонашвили?_s, раса, шалва, гуманный, педагогика, дискуссия, круглый 
##       Lift: хорошевский, щетинин, амонашвили?_s, гастев, ммсо?_s, царев, аутичный 
##       Score: ранхигс?_s, раса, амонашвили?_s, фиро?_s, шалва, гуманный, дискуссия 
## Topic 7 Top Words:
##       Highest Prob: цифровой, проект, развитие, технология, новый, экономика, программа 
##       FREX: экономика, портфолио, кадр, инженерный, трансформация, инженер, компетенция 
##       Lift: архипелаг, беспилотник?_s, гафуров, ильшат, касперский, кропачев?_s, местник 
##       Score: цос?_s, искусственный, портфолио, инженерный, инженер, кентавр, кадр 
## Topic 8 Top Words:
##       Highest Prob: ребенок, педагогический, центр, профессиональный, наука, развитие, ранхигс?_s 
##       FREX: доцент, кандидат, кафедра, вебинар?_s, н, семинар, трудный 
##       Lift: азевич, анатомия, асоу?_s, атрощенко, баранникова, белоруссия, биомедицинский 
##       Score: фиро?_s, ранхигс?_s, доцент, социализация, канд?_s, вебинар?_s, ниц 
## Topic 9 Top Words:
##       Highest Prob: университет, студент, обучение, вуз, онлайн, технология, программа 
##       FREX: мисис?_s, нит, студент, университет, урфа, рынок, вуз 
##       Lift: биржа, блиц-интервью, выживать, госслужащий, дворкович?_s, деканат, дюбук?_s 
##       Score: мисис?_s, нит, иот?_s, урфа, тпу?_s, фадеев, рынок 
## Topic 10 Top Words:
##       Highest Prob: развитие, профессиональный, личностный, будущее, личность, педагогический, новый 
##       FREX: прогностический, личность, личностный, фгос?_s, прогнозирование, консорциум, поколение 
##       Lift: агрессивный, акмулла?_s, беспомощность, блокироваться, богданов, буржуазный, гармонизация 
##       Score: прогностический, консорциум, асмолов, прогнозирование, рао, личность, реморенко?_s 
## Topic 11 Top Words:
##       Highest Prob: платформа, персонализировать, учитель, конкурс, обучение, учебный, ученик 
##       FREX: пмо?_s, конкурс, номинация, приз, задание, персонализировать, методология 
##       Lift: алтгпу?_s, булин, вербальный, качканар, координата, корректность, предеин?_s 
##       Score: конкурс, пмо?_s, сберкласс?_s, номинация, задание, приз, ракова 
## Topic 12 Top Words:
##       Highest Prob: год, ребенок, учреждение, проект, область, муниципальный, организация 
##       FREX: муниципальный, сад, автономный, ремонт, бюджетный, екатеринбург, округ 
##       Lift: аварийный, автодорога, автолаб?_s, агропромышленный, агрохимия, антарес, базарный 
##       Score: дошкольный, куйвашев?_s, каменск, сад, тагил, муниципальный, район 
## Topic 13 Top Words:
##       Highest Prob: год, сбербанк, сервис, проект, медицинский, банк, клиент 
##       FREX: безналичный, ипотечный, клиент, кредит, сберздоровье?_s, господдержка?_s, медицинский 
##       Lift: алмаз, антей, биржевой, бурденко, ветеринария, взнос, вирусный 
##       Score: сбера?_s, сберздоровье?_s, клиент, пензенский, ипотечный, сбербанк, сбер?_s 
## Topic 14 Top Words:
##       Highest Prob: педагог, год, учитель, конкурс, проект, программа, работа 
##       FREX: югра, лицей, обществознание, гимназия, география, этап, заочный 
##       Lift: анжелика, жеребьевка, жуков, когалым, копытов?_s, лопатина, луиза 
##       Score: конкурс, югра, анатольевна, сергеевна, лицей, полуфинал, николаевна
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
##  [1] -27.20243 -28.08763 -31.89147 -14.27752 -59.73084 -43.13356 -26.66590
##  [8] -33.54559 -35.93964 -59.87453 -36.67704 -49.68542 -63.23690 -32.76945
##  [1] 8.949096 8.959240 8.882666 9.641446 9.127215 8.892825 9.208433 9.427343
##  [9] 8.840952 9.056944 9.511606 9.330783 9.300905 8.914196

Sys.time() - t
## Time difference of 1.505338 mins

13 тем

##1

t <- Sys.time()
n.topics <- 13

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 7
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: ребенок, человек, мочь, учитель, очень, работать, говорить 
##       FREX: понимать, делать, конечно, вещь, хорошо, учить, очень 
##       Lift: бирюзовый, игла, логин, стандартизировать, фич?_s, человечный, автопроверка?_s 
##       Score: стриж, миша, греф, пмо?_s, надо, конвергентный, ученик 
## Topic 2 Top Words:
##       Highest Prob: обучение, дистанционный, онлайн, ребенок, учитель, учебный, год 
##       FREX: экзамен, карантин, егэ, дистанционный, цос?_s, расписание, дистанционно 
##       Lift: вживый?_a, выразитель, копытов?_s, крыться, минутный, нерабочий, обилие 
##       Score: дистанционный, цос?_s, карантин, памятный, ситников, егэ, сдача 
## Topic 3 Top Words:
##       Highest Prob: учитель, педагог, ребенок, обучение, дистанционный, год, работа 
##       FREX: опрос, респондент, готовность, опрашивать, процент, тарасова, радио 
##       Lift: воевать, восьмиклассник, глагол, желательный, зажигать, классник?_s, контентный?_a 
##       Score: фиро?_s, тарасова, респондент, ранхигс?_s, контрольно-измерительный, социализация, учитель 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, школьный, программа, обучение, персонализировать 
##       FREX: смартбокс?_s, комплект, тачпадом?_adv, телевизор, клавиатура, приставка, сбербанк 
##       Lift: автопарк, алеево?_s, алиханов, аптечный, байгузинский?_a, бакланова, башинформ?_s 
##       Score: смартбокс?_s, сбербанк, телевизор, тачпадом?_adv, приставка, клавиатура, безвозмездно 
## Topic 5 Top Words:
##       Highest Prob: цифровой, ребенок, обучение, год, проект, родитель, сош?_s 
##       FREX: мбоу?_s, сош?_s, ст, согласие, мкоу?_s, маоу?_s, урицкий 
##       Lift: александрова, афера, басня, безальтернативный, бигдэйт?_s, бутиковый?_a, вакханалия 
##       Score: сош?_s, ст, мбоу?_s, маоу?_s, вадский, урицкий, минпросвет?_s 
## Topic 6 Top Words:
##       Highest Prob: ребенок, год, родитель, новый, педагогика, ранхигс?_s, директор 
##       FREX: амонашвили?_s, гуманный, раса, шалва, ммсо?_s, морозов, педагогика 
##       Lift: активист, вакуленко, внештатный, иом?_s, ипэи?_s, корелин?_s, корчаковский?_a 
##       Score: раса, амонашвили?_s, ранхигс?_s, фиро?_s, гуманный, шалва, ммсо?_s 
## Topic 7 Top Words:
##       Highest Prob: цифровой, университет, студент, обучение, технология, вуз, новый 
##       FREX: университет, студент, вуз, экономика, мисис?_s, портфолио, нит 
##       Lift: агрегат, архипелаг, беспилотник?_s, визионерский, второкурсник, гафуров, геоскан?_s 
##       Score: университет, мисис?_s, нит, урфа, иот?_s, вуз, тгу?_s 
## Topic 8 Top Words:
##       Highest Prob: ребенок, педагогический, развитие, центр, профессиональный, институт, наука 
##       FREX: доцент, доклад, кафедра, кандидат, вебинар?_s, семинар, н 
##       Lift: авалуев?_s, азевич, альбертовна, анатомия, асоу?_s, атрощенко, баранникова 
##       Score: фиро?_s, ранхигс?_s, доцент, вебинар?_s, социализация, канд?_s, ниц 
## Topic 9 Top Words:
##       Highest Prob: год, сбербанк, сервис, проект, компания, клиент, банк 
##       FREX: безналичный, ипотечный, клиент, сберздоровье?_s, кредит, сбер?_s, господдержка?_s 
##       Lift: пензенец, телемедицинский?_a, банкомат, безналичный, застройщик, кредитование, наличный 
##       Score: сбера?_s, сберздоровье?_s, пензенский, клиент, сбербанк, сбер?_s, ипотечный 
## Topic 10 Top Words:
##       Highest Prob: развитие, профессиональный, будущее, личностный, новый, личность, педагогический 
##       FREX: прогностический, личность, фгос?_s, прогнозирование, личностный, рао, консорциум 
##       Lift: агрессивный, акмулла?_s, антропологический, беспомощность, блокироваться, богданов, буржуазный 
##       Score: прогностический, консорциум, асмолов, личность, цивилизация, прогнозирование, фгос?_s 
## Topic 11 Top Words:
##       Highest Prob: конкурс, учитель, педагог, персонализировать, участник, проект, обучение 
##       FREX: конкурс, номинация, победитель, югра, команда, приз, лицей 
##       Lift: алтгпу?_s, булин, жеребьевка, качканар, кейсовый?_a, координата, корректность 
##       Score: конкурс, полуфинал, номинация, югра, сберкласс?_s, пмо?_s, межпредметность?_s 
## Topic 12 Top Words:
##       Highest Prob: год, проект, организация, ребенок, область, учреждение, муниципальный 
##       FREX: муниципальный, автономный, округ, сад, общеобразовательный, ремонт, учреждение 
##       Lift: аварийный, автодорога, автолаб?_s, агропромышленный, агрохимия, антарес, арктика 
##       Score: дошкольный, куйвашев?_s, общеобразовательный, каменск, тагил, муниципальный, сад 
## Topic 13 Top Words:
##       Highest Prob: год, человек, задача, медицинский, мочь, работать, много 
##       FREX: физик, медицинский, инженер, деньги, партия, авдеев, инженерный 
##       Lift: автопилот, айтишник?_s, алмаз, воровать, геном, дань, дотягивать 
##       Score: авдеев, хирургия, шапша?_s, изделие, физик, цукерберг?_s, производитель
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
##  [1] -26.57166 -26.18654 -28.66439 -14.97302 -63.01019 -38.36082 -30.89523
##  [8] -33.60349 -62.11361 -55.53312 -36.90830 -52.67451 -31.86407
##  [1] 8.861751 8.831662 8.886582 9.642151 8.865420 8.699150 9.302908 9.450677
##  [9] 9.282936 9.146768 9.385513 9.330132 8.640972

Sys.time() - t
## Time difference of 1.520871 mins

##2

t <- Sys.time()
n.topics <- 13

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 8
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: ребенок, человек, мочь, учитель, очень, работать, говорить 
##       FREX: понимать, делать, конечно, вещь, хорошо, учить, очень 
##       Lift: бирюзовый, игла, логин, стандартизировать, фич?_s, человечный, автопроверка?_s 
##       Score: стриж, миша, греф, пмо?_s, надо, конвергентный, ученик 
## Topic 2 Top Words:
##       Highest Prob: обучение, дистанционный, онлайн, ребенок, учитель, учебный, год 
##       FREX: экзамен, карантин, егэ, дистанционный, цос?_s, расписание, дистанционно 
##       Lift: вживый?_a, выразитель, копытов?_s, крыться, минутный, нерабочий, обилие 
##       Score: дистанционный, цос?_s, карантин, памятный, ситников, егэ, сдача 
## Topic 3 Top Words:
##       Highest Prob: учитель, педагог, ребенок, обучение, дистанционный, год, работа 
##       FREX: опрос, респондент, готовность, опрашивать, процент, тарасова, радио 
##       Lift: воевать, восьмиклассник, глагол, желательный, зажигать, классник?_s, контентный?_a 
##       Score: фиро?_s, тарасова, респондент, ранхигс?_s, контрольно-измерительный, социализация, учитель 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, школьный, программа, обучение, персонализировать 
##       FREX: смартбокс?_s, комплект, тачпадом?_adv, телевизор, клавиатура, приставка, сбербанк 
##       Lift: автопарк, алеево?_s, алиханов, аптечный, байгузинский?_a, бакланова, башинформ?_s 
##       Score: смартбокс?_s, сбербанк, телевизор, тачпадом?_adv, приставка, клавиатура, безвозмездно 
## Topic 5 Top Words:
##       Highest Prob: цифровой, ребенок, обучение, год, проект, родитель, сош?_s 
##       FREX: мбоу?_s, сош?_s, ст, согласие, мкоу?_s, маоу?_s, урицкий 
##       Lift: александрова, афера, басня, безальтернативный, бигдэйт?_s, бутиковый?_a, вакханалия 
##       Score: сош?_s, ст, мбоу?_s, маоу?_s, вадский, урицкий, минпросвет?_s 
## Topic 6 Top Words:
##       Highest Prob: ребенок, год, родитель, новый, педагогика, ранхигс?_s, директор 
##       FREX: амонашвили?_s, гуманный, раса, шалва, ммсо?_s, морозов, педагогика 
##       Lift: активист, вакуленко, внештатный, иом?_s, ипэи?_s, корелин?_s, корчаковский?_a 
##       Score: раса, амонашвили?_s, ранхигс?_s, фиро?_s, гуманный, шалва, ммсо?_s 
## Topic 7 Top Words:
##       Highest Prob: цифровой, университет, студент, обучение, технология, вуз, новый 
##       FREX: университет, студент, вуз, экономика, мисис?_s, портфолио, нит 
##       Lift: агрегат, архипелаг, беспилотник?_s, визионерский, второкурсник, гафуров, геоскан?_s 
##       Score: университет, мисис?_s, нит, урфа, иот?_s, вуз, тгу?_s 
## Topic 8 Top Words:
##       Highest Prob: ребенок, педагогический, развитие, центр, профессиональный, институт, наука 
##       FREX: доцент, доклад, кафедра, кандидат, вебинар?_s, семинар, н 
##       Lift: авалуев?_s, азевич, альбертовна, анатомия, асоу?_s, атрощенко, баранникова 
##       Score: фиро?_s, ранхигс?_s, доцент, вебинар?_s, социализация, канд?_s, ниц 
## Topic 9 Top Words:
##       Highest Prob: год, сбербанк, сервис, проект, компания, клиент, банк 
##       FREX: безналичный, ипотечный, клиент, сберздоровье?_s, кредит, сбер?_s, господдержка?_s 
##       Lift: пензенец, телемедицинский?_a, банкомат, безналичный, застройщик, кредитование, наличный 
##       Score: сбера?_s, сберздоровье?_s, пензенский, клиент, сбербанк, сбер?_s, ипотечный 
## Topic 10 Top Words:
##       Highest Prob: развитие, профессиональный, будущее, личностный, новый, личность, педагогический 
##       FREX: прогностический, личность, фгос?_s, прогнозирование, личностный, рао, консорциум 
##       Lift: агрессивный, акмулла?_s, антропологический, беспомощность, блокироваться, богданов, буржуазный 
##       Score: прогностический, консорциум, асмолов, личность, цивилизация, прогнозирование, фгос?_s 
## Topic 11 Top Words:
##       Highest Prob: конкурс, учитель, педагог, персонализировать, участник, проект, обучение 
##       FREX: конкурс, номинация, победитель, югра, команда, приз, лицей 
##       Lift: алтгпу?_s, булин, жеребьевка, качканар, кейсовый?_a, координата, корректность 
##       Score: конкурс, полуфинал, номинация, югра, сберкласс?_s, пмо?_s, межпредметность?_s 
## Topic 12 Top Words:
##       Highest Prob: год, проект, организация, ребенок, область, учреждение, муниципальный 
##       FREX: муниципальный, автономный, округ, сад, общеобразовательный, ремонт, учреждение 
##       Lift: аварийный, автодорога, автолаб?_s, агропромышленный, агрохимия, антарес, арктика 
##       Score: дошкольный, куйвашев?_s, общеобразовательный, каменск, тагил, муниципальный, сад 
## Topic 13 Top Words:
##       Highest Prob: год, человек, задача, медицинский, мочь, работать, много 
##       FREX: физик, медицинский, инженер, деньги, партия, авдеев, инженерный 
##       Lift: автопилот, айтишник?_s, алмаз, воровать, геном, дань, дотягивать 
##       Score: авдеев, хирургия, шапша?_s, изделие, физик, цукерберг?_s, производитель
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
##  [1] -26.57166 -26.18654 -28.66439 -14.97302 -63.01019 -38.36082 -30.89523
##  [8] -33.60349 -62.11361 -55.53312 -36.90830 -52.67451 -31.86407
##  [1] 8.861751 8.831662 8.886582 9.642151 8.865420 8.699150 9.302908 9.450677
##  [9] 9.282936 9.146768 9.385513 9.330132 8.640972

Sys.time() - t
## Time difference of 32.13911 mins

12 тем

##1

t <- Sys.time()
n.topics <- 12

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 9
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: ребенок, человек, учитель, мочь, очень, работать, говорить 
##       FREX: знать, конечно, надо, понимать, очень, действительно, думать 
##       Lift: автопроверка?_s, ассоциировать, ассоциироваться, безматерный?_a, белокобыльский, бигдэйт?_s, биометрия 
##       Score: греф, стриж, конвергентный, миша, надо, казаться, учитель 
## Topic 2 Top Words:
##       Highest Prob: обучение, мочь, онлайн, студент, система, уже, задача 
##       FREX: пользователь, экзамен, егэ, адаптивный, алгоритм, аудитория, простой 
##       Lift: нерабочий, шафран, актор, асинхронный, аудиал?_s, биться, визирякин?_s 
##       Score: памятный, ситников, адаптивный, пользователь, егэ, курс, вуз 
## Topic 3 Top Words:
##       Highest Prob: учитель, ребенок, обучение, дистанционный, педагог, онлайн, родитель 
##       FREX: респондент, опрос, опрашивать, готовность, дистанционный, процент, карантин 
##       Lift: бодрый, желательный, заболеваемость, классник?_s, контентный?_a, лурье, наверх 
##       Score: фиро?_s, тарасова, респондент, ранхигс?_s, учитель, педагог, контрольно-измерительный 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, школьный, программа, обучение, персонализировать 
##       FREX: смартбокс?_s, комплект, приставка, тачпадом?_adv, телевизор, платформа, сбербанк 
##       Lift: беспрерывный, боева, дагестанский, дообучать?_v, информполитика?_s, козюр?_s, летательный 
##       Score: смартбокс?_s, сбербанк, тачпадом?_adv, приставка, клавиатура, телевизор, безвозмездно 
## Topic 5 Top Words:
##       Highest Prob: цифровой, год, обучение, ребенок, проект, платформа, сош?_s 
##       FREX: мбоу?_s, сош?_s, цос?_s, ст, орловский, мкоу?_s, маоу?_s 
##       Lift: колокольцов?_s, жуков, мкоу?_s, урицкий, шпитцер?_s, агрессивность, александрова 
##       Score: сош?_s, ст, орловский, мбоу?_s, урицкий, маоу?_s, вадский 
## Topic 6 Top Words:
##       Highest Prob: ребенок, год, новый, становиться, человек, педагогика, родитель 
##       FREX: амонашвили?_s, гуманный, шалва, женщина, авдеев, ммсо?_s, нейроинтерфейс?_s 
##       Lift: автономность, амонашвили?_s, англия, бах, безотметочный?_a, бесконтактность?_s, близость 
##       Score: амонашвили?_s, авдеев, гуманный, шалва, женщина, шапша?_s, нейроинтерфейс?_s 
## Topic 7 Top Words:
##       Highest Prob: цифровой, университет, технология, студент, новый, обучение, вуз 
##       FREX: мисис?_s, нит, университет, экономика, кадр, трек, вуз 
##       Lift: архипелаг, блиц-интервью, визионерский, гафуров, дюбук?_s, жданов, ильшат 
##       Score: университет, мисис?_s, нит, урфа, иот?_s, вуз, тгу?_s 
## Topic 8 Top Words:
##       Highest Prob: ребенок, ранхигс?_s, центр, развитие, педагогический, институт, профессиональный 
##       FREX: доцент, фиро?_s, ранхигс?_s, кафедра, кандидат, вебинар?_s, семинар 
##       Lift: петушки, тихоновский, янушкявичен?_s, авалуев?_s, азевич, алиев, альбертовна 
##       Score: фиро?_s, ранхигс?_s, доцент, социализация, раса, канд?_s, вебинар?_s 
## Topic 9 Top Words:
##       Highest Prob: год, сбербанк, сервис, проект, компания, клиент, медицинский 
##       FREX: безналичный, ипотечный, клиент, сберздоровье?_s, кредит, сбер?_s, господдержка?_s 
##       Lift: заем, медоборудование, нефинансовый, сберздоровье?_s, ситимобил?_s, телемедицина?_s, авто 
##       Score: сбера?_s, сберздоровье?_s, пензенский, сбербанк, сбер?_s, клиент, ипотечный 
## Topic 10 Top Words:
##       Highest Prob: развитие, профессиональный, будущее, личностный, новый, педагогический, личность 
##       FREX: прогностический, личность, фгос?_s, прогнозирование, личностный, консорциум, рао 
##       Lift: агрессивный, акмулла?_s, антропологический, беспомощность, блокироваться, богданов, буржуазный 
##       Score: прогностический, консорциум, асмолов, прогнозирование, рао, личность, реморенко?_s 
## Topic 11 Top Words:
##       Highest Prob: конкурс, учитель, педагог, персонализировать, участник, учебный, программа 
##       FREX: конкурс, пмо?_s, номинация, победитель, команда, лицей, югра 
##       Lift: алтгпу?_s, бабет?_s, булин, градус, жеребьевка, координата, предуниверсарий?_s 
##       Score: конкурс, полуфинал, номинация, пмо?_s, югра, сберкласс?_s, конкурсный 
## Topic 12 Top Words:
##       Highest Prob: год, проект, область, организация, ребенок, учреждение, муниципальный 
##       FREX: муниципальный, автономный, округ, сад, общеобразовательный, ремонт, учреждение 
##       Lift: автодорога, профилизация?_s, аварийный, автолаб?_s, агропромышленный, агрохимия, антарес 
##       Score: общеобразовательный, куйвашев?_s, муниципальный, дошкольный, тагил, каменск, сад
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
##  [1] -30.85788 -32.21636 -28.47324 -15.72023 -47.10868 -34.38085 -27.39315
##  [8] -35.25589 -65.65462 -52.07799 -30.28993 -52.66007
##  [1] 8.885085 8.913052 9.268951 9.638207 8.752587 8.481973 9.260136 9.375266
##  [9] 9.359271 9.089487 9.261043 9.321037

Sys.time() - t
## Time difference of 1.295011 mins

##2

t <- Sys.time()
n.topics <- 12

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 10
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: ребенок, человек, учитель, мочь, очень, работать, говорить 
##       FREX: знать, конечно, надо, понимать, очень, действительно, думать 
##       Lift: автопроверка?_s, ассоциировать, ассоциироваться, безматерный?_a, белокобыльский, бигдэйт?_s, биометрия 
##       Score: греф, стриж, конвергентный, миша, надо, казаться, учитель 
## Topic 2 Top Words:
##       Highest Prob: обучение, мочь, онлайн, студент, система, уже, задача 
##       FREX: пользователь, экзамен, егэ, адаптивный, алгоритм, аудитория, простой 
##       Lift: нерабочий, шафран, актор, асинхронный, аудиал?_s, биться, визирякин?_s 
##       Score: памятный, ситников, адаптивный, пользователь, егэ, курс, вуз 
## Topic 3 Top Words:
##       Highest Prob: учитель, ребенок, обучение, дистанционный, педагог, онлайн, родитель 
##       FREX: респондент, опрос, опрашивать, готовность, дистанционный, процент, карантин 
##       Lift: бодрый, желательный, заболеваемость, классник?_s, контентный?_a, лурье, наверх 
##       Score: фиро?_s, тарасова, респондент, ранхигс?_s, учитель, педагог, контрольно-измерительный 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, школьный, программа, обучение, персонализировать 
##       FREX: смартбокс?_s, комплект, приставка, тачпадом?_adv, телевизор, платформа, сбербанк 
##       Lift: беспрерывный, боева, дагестанский, дообучать?_v, информполитика?_s, козюр?_s, летательный 
##       Score: смартбокс?_s, сбербанк, тачпадом?_adv, приставка, клавиатура, телевизор, безвозмездно 
## Topic 5 Top Words:
##       Highest Prob: цифровой, год, обучение, ребенок, проект, платформа, сош?_s 
##       FREX: мбоу?_s, сош?_s, цос?_s, ст, орловский, мкоу?_s, маоу?_s 
##       Lift: колокольцов?_s, жуков, мкоу?_s, урицкий, шпитцер?_s, агрессивность, александрова 
##       Score: сош?_s, ст, орловский, мбоу?_s, урицкий, маоу?_s, вадский 
## Topic 6 Top Words:
##       Highest Prob: ребенок, год, новый, становиться, человек, педагогика, родитель 
##       FREX: амонашвили?_s, гуманный, шалва, женщина, авдеев, ммсо?_s, нейроинтерфейс?_s 
##       Lift: автономность, амонашвили?_s, англия, бах, безотметочный?_a, бесконтактность?_s, близость 
##       Score: амонашвили?_s, авдеев, гуманный, шалва, женщина, шапша?_s, нейроинтерфейс?_s 
## Topic 7 Top Words:
##       Highest Prob: цифровой, университет, технология, студент, новый, обучение, вуз 
##       FREX: мисис?_s, нит, университет, экономика, кадр, трек, вуз 
##       Lift: архипелаг, блиц-интервью, визионерский, гафуров, дюбук?_s, жданов, ильшат 
##       Score: университет, мисис?_s, нит, урфа, иот?_s, вуз, тгу?_s 
## Topic 8 Top Words:
##       Highest Prob: ребенок, ранхигс?_s, центр, развитие, педагогический, институт, профессиональный 
##       FREX: доцент, фиро?_s, ранхигс?_s, кафедра, кандидат, вебинар?_s, семинар 
##       Lift: петушки, тихоновский, янушкявичен?_s, авалуев?_s, азевич, алиев, альбертовна 
##       Score: фиро?_s, ранхигс?_s, доцент, социализация, раса, канд?_s, вебинар?_s 
## Topic 9 Top Words:
##       Highest Prob: год, сбербанк, сервис, проект, компания, клиент, медицинский 
##       FREX: безналичный, ипотечный, клиент, сберздоровье?_s, кредит, сбер?_s, господдержка?_s 
##       Lift: заем, медоборудование, нефинансовый, сберздоровье?_s, ситимобил?_s, телемедицина?_s, авто 
##       Score: сбера?_s, сберздоровье?_s, пензенский, сбербанк, сбер?_s, клиент, ипотечный 
## Topic 10 Top Words:
##       Highest Prob: развитие, профессиональный, будущее, личностный, новый, педагогический, личность 
##       FREX: прогностический, личность, фгос?_s, прогнозирование, личностный, консорциум, рао 
##       Lift: агрессивный, акмулла?_s, антропологический, беспомощность, блокироваться, богданов, буржуазный 
##       Score: прогностический, консорциум, асмолов, прогнозирование, рао, личность, реморенко?_s 
## Topic 11 Top Words:
##       Highest Prob: конкурс, учитель, педагог, персонализировать, участник, учебный, программа 
##       FREX: конкурс, пмо?_s, номинация, победитель, команда, лицей, югра 
##       Lift: алтгпу?_s, бабет?_s, булин, градус, жеребьевка, координата, предуниверсарий?_s 
##       Score: конкурс, полуфинал, номинация, пмо?_s, югра, сберкласс?_s, конкурсный 
## Topic 12 Top Words:
##       Highest Prob: год, проект, область, организация, ребенок, учреждение, муниципальный 
##       FREX: муниципальный, автономный, округ, сад, общеобразовательный, ремонт, учреждение 
##       Lift: автодорога, профилизация?_s, аварийный, автолаб?_s, агропромышленный, агрохимия, антарес 
##       Score: общеобразовательный, куйвашев?_s, муниципальный, дошкольный, тагил, каменск, сад
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
##  [1] -30.85788 -32.21636 -28.47324 -15.72023 -47.10868 -34.38085 -27.39315
##  [8] -35.25589 -65.65462 -52.07799 -30.28993 -52.66007
##  [1] 8.885085 8.913052 9.268951 9.638207 8.752587 8.481973 9.260136 9.375266
##  [9] 9.359271 9.089487 9.261043 9.321037

Sys.time() - t
## Time difference of 1.172903 mins

11 тем

##1

t <- Sys.time()
n.topics <- 11

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 11
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: ребенок, человек, мочь, учитель, очень, работать, говорить 
##       FREX: знать, понимать, надо, конечно, действительно, думать, казаться 
##       Lift: бигдэйт?_s, бирюзовый, биться, более-менее, вообще-то, воровать, вэф?_s 
##       Score: греф, миша, стриж, казаться, ребенок, знать, человек 
## Topic 2 Top Words:
##       Highest Prob: год, обучение, ребенок, система, уже, мочь, российский 
##       FREX: кравцов, ст, экзамен, министр, власть, заявление, конституция 
##       Lift: нерабочий, татарский, авральный, агрессивность, азарт, аис, асинхронный 
##       Score: ст, швабауэр?_s, кравцов, егэ, конституция, земский, иностранец 
## Topic 3 Top Words:
##       Highest Prob: учитель, обучение, ребенок, дистанционный, онлайн, педагог, ученик 
##       FREX: опрос, респондент, урок, карантин, опрашивать, готовность, домашний 
##       Lift: гаврилова, классник?_s, контентный?_a, палочка, срез, хамардюк?_s, контрольно-измерительный 
##       Score: фиро?_s, респондент, учитель, ранхигс?_s, тарасова, контрольно-измерительный, педагог 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, школьный, программа, обучение, персонализировать 
##       FREX: смартбокс?_s, приставка, клавиатура, комплект, тачпадом?_adv, телевизор, платформа 
##       Lift: автопарк, алеево?_s, алиханов, аптечный, байгузинский?_a, бакланова, башинформ?_s 
##       Score: смартбокс?_s, сбербанк, тачпадом?_adv, приставка, клавиатура, безвозмездно, телевизор 
## Topic 5 Top Words:
##       Highest Prob: год, проект, организация, область, ребенок, учреждение, муниципальный 
##       FREX: муниципальный, район, округ, общеобразовательный, автономный, ремонт, учреждение 
##       Lift: аварийный, автодорога, борисоглебский?_a, водопровод, двухразовый, езаовый?_a, зерно 
##       Score: муниципальный, вадский, сош?_s, общеобразовательный, тагил, район, дошкольный 
## Topic 6 Top Words:
##       Highest Prob: ребенок, год, родитель, становиться, детский, новый, жизнь 
##       FREX: амонашвили?_s, гуманный, шалва, куйвашев?_s, радио, любовь, женщина 
##       Lift: вакуленко, водить, восьмиклассник, еремин, иом?_s, ипэи?_s, кант 
##       Score: куйвашев?_s, амонашвили?_s, авдеев, гуманный, шалва, каменск, радио 
## Topic 7 Top Words:
##       Highest Prob: цифровой, университет, студент, обучение, технология, вуз, новый 
##       FREX: университет, студент, вуз, экономика, мисис?_s, нит, трек 
##       Lift: архипелаг, гафуров, жданов, ильшат, кокшаров, перезачет?_s, северо-восточный 
##       Score: университет, урфа, иот?_s, мисис?_s, нит, вуз, тгу?_s 
## Topic 8 Top Words:
##       Highest Prob: ребенок, ранхигс?_s, центр, развитие, педагогический, институт, профессиональный 
##       FREX: доцент, фиро?_s, ранхигс?_s, кандидат, кафедра, вебинар?_s, доклад 
##       Lift: геномный, гриншкун?_s, демаков?_s, зав, илюхин, калашникова, лучик 
##       Score: фиро?_s, ранхигс?_s, социализация, доцент, раса, канд?_s, вебинар?_s 
## Topic 9 Top Words:
##       Highest Prob: год, сбербанк, сервис, проект, компания, клиент, медицинский 
##       FREX: безналичный, ипотечный, клиент, сберздоровье?_s, кредит, господдержка?_s, сбера?_s 
##       Lift: медоборудование, пензенец, телемедицинский?_a, банкомат, безналичный, кредитование, наличный 
##       Score: сберздоровье?_s, сбера?_s, пензенский, клиент, ипотечный, безналичный, сбербанк 
## Topic 10 Top Words:
##       Highest Prob: развитие, профессиональный, личностный, будущее, педагогический, личность, новый 
##       FREX: прогностический, личность, фгос?_s, прогнозирование, рао, личностный, консорциум 
##       Lift: абориген, агрессивный, акмулла?_s, актуализироваться, аналитичность, антропологический, беспомощность 
##       Score: прогностический, асмолов, консорциум, ргппа?_s, прогнозирование, картирование, рао 
## Topic 11 Top Words:
##       Highest Prob: конкурс, персонализировать, учитель, педагог, участник, программа, проект 
##       FREX: конкурс, номинация, пмо?_s, победитель, мбоу?_s, югра, лицей 
##       Lift: алтгпу?_s, архипова, бабет?_s, булгаков, булин, вышка, градус 
##       Score: конкурс, полуфинал, номинация, пмо?_s, сош?_s, сберкласс?_s, конкурсный
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
##  [1] -29.70665 -33.27081 -26.10377 -15.43329 -46.08823 -43.57915 -30.71907
##  [8] -41.67408 -61.47399 -52.56250 -30.71567
##  [1] 8.669359 8.424601 9.266808 9.626763 9.251091 8.542346 9.362548 9.446451
##  [9] 9.171873 9.104380 9.290020

Sys.time() - t
## Time difference of 1.285818 mins

##2

t <- Sys.time()
n.topics <- 11

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 12
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: ребенок, человек, мочь, учитель, очень, работать, говорить 
##       FREX: знать, понимать, надо, конечно, действительно, думать, казаться 
##       Lift: бигдэйт?_s, бирюзовый, биться, более-менее, вообще-то, воровать, вэф?_s 
##       Score: греф, миша, стриж, казаться, ребенок, знать, человек 
## Topic 2 Top Words:
##       Highest Prob: год, обучение, ребенок, система, уже, мочь, российский 
##       FREX: кравцов, ст, экзамен, министр, власть, заявление, конституция 
##       Lift: нерабочий, татарский, авральный, агрессивность, азарт, аис, асинхронный 
##       Score: ст, швабауэр?_s, кравцов, егэ, конституция, земский, иностранец 
## Topic 3 Top Words:
##       Highest Prob: учитель, обучение, ребенок, дистанционный, онлайн, педагог, ученик 
##       FREX: опрос, респондент, урок, карантин, опрашивать, готовность, домашний 
##       Lift: гаврилова, классник?_s, контентный?_a, палочка, срез, хамардюк?_s, контрольно-измерительный 
##       Score: фиро?_s, респондент, учитель, ранхигс?_s, тарасова, контрольно-измерительный, педагог 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, школьный, программа, обучение, персонализировать 
##       FREX: смартбокс?_s, приставка, клавиатура, комплект, тачпадом?_adv, телевизор, платформа 
##       Lift: автопарк, алеево?_s, алиханов, аптечный, байгузинский?_a, бакланова, башинформ?_s 
##       Score: смартбокс?_s, сбербанк, тачпадом?_adv, приставка, клавиатура, безвозмездно, телевизор 
## Topic 5 Top Words:
##       Highest Prob: год, проект, организация, область, ребенок, учреждение, муниципальный 
##       FREX: муниципальный, район, округ, общеобразовательный, автономный, ремонт, учреждение 
##       Lift: аварийный, автодорога, борисоглебский?_a, водопровод, двухразовый, езаовый?_a, зерно 
##       Score: муниципальный, вадский, сош?_s, общеобразовательный, тагил, район, дошкольный 
## Topic 6 Top Words:
##       Highest Prob: ребенок, год, родитель, становиться, детский, новый, жизнь 
##       FREX: амонашвили?_s, гуманный, шалва, куйвашев?_s, радио, любовь, женщина 
##       Lift: вакуленко, водить, восьмиклассник, еремин, иом?_s, ипэи?_s, кант 
##       Score: куйвашев?_s, амонашвили?_s, авдеев, гуманный, шалва, каменск, радио 
## Topic 7 Top Words:
##       Highest Prob: цифровой, университет, студент, обучение, технология, вуз, новый 
##       FREX: университет, студент, вуз, экономика, мисис?_s, нит, трек 
##       Lift: архипелаг, гафуров, жданов, ильшат, кокшаров, перезачет?_s, северо-восточный 
##       Score: университет, урфа, иот?_s, мисис?_s, нит, вуз, тгу?_s 
## Topic 8 Top Words:
##       Highest Prob: ребенок, ранхигс?_s, центр, развитие, педагогический, институт, профессиональный 
##       FREX: доцент, фиро?_s, ранхигс?_s, кандидат, кафедра, вебинар?_s, доклад 
##       Lift: геномный, гриншкун?_s, демаков?_s, зав, илюхин, калашникова, лучик 
##       Score: фиро?_s, ранхигс?_s, социализация, доцент, раса, канд?_s, вебинар?_s 
## Topic 9 Top Words:
##       Highest Prob: год, сбербанк, сервис, проект, компания, клиент, медицинский 
##       FREX: безналичный, ипотечный, клиент, сберздоровье?_s, кредит, господдержка?_s, сбера?_s 
##       Lift: медоборудование, пензенец, телемедицинский?_a, банкомат, безналичный, кредитование, наличный 
##       Score: сберздоровье?_s, сбера?_s, пензенский, клиент, ипотечный, безналичный, сбербанк 
## Topic 10 Top Words:
##       Highest Prob: развитие, профессиональный, личностный, будущее, педагогический, личность, новый 
##       FREX: прогностический, личность, фгос?_s, прогнозирование, рао, личностный, консорциум 
##       Lift: абориген, агрессивный, акмулла?_s, актуализироваться, аналитичность, антропологический, беспомощность 
##       Score: прогностический, асмолов, консорциум, ргппа?_s, прогнозирование, картирование, рао 
## Topic 11 Top Words:
##       Highest Prob: конкурс, персонализировать, учитель, педагог, участник, программа, проект 
##       FREX: конкурс, номинация, пмо?_s, победитель, мбоу?_s, югра, лицей 
##       Lift: алтгпу?_s, архипова, бабет?_s, булгаков, булин, вышка, градус 
##       Score: конкурс, полуфинал, номинация, пмо?_s, сош?_s, сберкласс?_s, конкурсный
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
##  [1] -29.70665 -33.27081 -26.10377 -15.43329 -46.08823 -43.57915 -30.71907
##  [8] -41.67408 -61.47399 -52.56250 -30.71567
##  [1] 8.669359 8.424601 9.266808 9.626763 9.251091 8.542346 9.362548 9.446451
##  [9] 9.171873 9.104380 9.290020

Sys.time() - t
## Time difference of 1.270174 mins

10 тем

##1

t <- Sys.time()
n.topics <- 10

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 13
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: ребенок, человек, мочь, очень, учитель, работать, говорить 
##       FREX: знать, понимать, казаться, надо, конечно, думать, очень 
##       Lift: аристотель, ассоциировать, ассоциироваться, аудиал?_s, безматерный?_a, белокобыльский, бигдэйт?_s 
##       Score: греф, миша, конвергентный, стриж, пмо?_s, честно, глобалист?_s 
## Topic 2 Top Words:
##       Highest Prob: год, обучение, ребенок, дистанционный, система, российский, рф 
##       FREX: белгородский, кравцов, министр, закон, заявление, частный, экзамен 
##       Lift: авральный, аис, безальтернативный, вступ?_s, генпрокуратура, доза, есиа?_s 
##       Score: белгородский, ст, земский, егэ, кравцов, швабауэр?_s, памятный 
## Topic 3 Top Words:
##       Highest Prob: учитель, обучение, ребенок, онлайн, педагог, ученик, дистанционный 
##       FREX: опрос, урок, респондент, готовность, карантин, опрашивать, домашний 
##       Lift: гаврилова, классник?_s, контентный?_a, палочка, хамардюк?_s, вышка, контрольно-измерительный 
##       Score: фиро?_s, учитель, педагог, ранхигс?_s, респондент, тарасова, задание 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, школьный, программа, персонализировать, обучение 
##       FREX: приставка, смартбокс?_s, комплект, сберкласс?_s, тачпадом?_adv, благотворительный, платформа 
##       Lift: автопарк, алеево?_s, алиханов, анащенко?_s, аптечный, аудиозапись?_s, байгузинский?_a 
##       Score: смартбокс?_s, сбербанк, тачпадом?_adv, приставка, клавиатура, сберкласс?_s, безвозмездно 
## Topic 5 Top Words:
##       Highest Prob: год, проект, конкурс, организация, область, ребенок, учреждение 
##       FREX: муниципальный, конкурс, округ, общеобразовательный, район, номинация, автономный 
##       Lift: аварийный, автодорога, борисоглебский?_a, выезд, добросовестный, единожды, езаовый?_a 
##       Score: сош?_s, конкурс, общеобразовательный, вадский, маоу?_s, район, конкурсный 
## Topic 6 Top Words:
##       Highest Prob: ребенок, год, родитель, детский, новый, становиться, жизнь 
##       FREX: амонашвили?_s, гуманный, шалва, куйвашев?_s, женщина, радио, каменск 
##       Lift: митинг, амонашвили?_s, автограф, автономность, англия, бах, безотметочный?_a 
##       Score: куйвашев?_s, амонашвили?_s, авдеев, гуманный, шалва, радио, шапша?_s 
## Topic 7 Top Words:
##       Highest Prob: цифровой, университет, студент, обучение, технология, вуз, новый 
##       FREX: мисис?_s, нит, университет, студент, вуз, трек, экономика 
##       Lift: архипелаг, беспилотник?_s, визионерский, гафуров, жданов, ильшат, инжиниринг 
##       Score: университет, мисис?_s, нит, урфа, вуз, иот?_s, тгу?_s 
## Topic 8 Top Words:
##       Highest Prob: ребенок, развитие, педагогический, центр, ранхигс?_s, институт, директор 
##       FREX: доцент, кандидат, фиро?_s, кафедра, ранхигс?_s, доклад, вебинар?_s 
##       Lift: авалуев?_s, анатомия, артеменко, атрощенко, бобылев, воробьев, геномный 
##       Score: фиро?_s, ранхигс?_s, социализация, вебинар?_s, канд?_s, доцент, раса 
## Topic 9 Top Words:
##       Highest Prob: год, сбербанк, сервис, проект, компания, клиент, банк 
##       FREX: безналичный, ипотечный, клиент, сберздоровье?_s, кредит, сбер?_s, сбера?_s 
##       Lift: безналичный, сберздоровье?_s, ситимобил?_s, авто, алмаз, амбассадор?_s, антей 
##       Score: пензенский, сберздоровье?_s, сбера?_s, сбербанк, клиент, безналичный, ипотечный 
## Topic 10 Top Words:
##       Highest Prob: развитие, профессиональный, будущее, фгос?_s, личность, личностный, современный 
##       FREX: прогностический, фгос?_s, личность, прогнозирование, компетентность, компонент, метапредметный?_a 
##       Lift: абориген, агрессивный, актуализироваться, аналитичность, беспомощность, бессознательно, блокироваться 
##       Score: прогностический, ргппа?_s, прогнозирование, зеер?_s, тагил, фгос?_s, асмолов
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
##  [1] -28.05821 -32.57252 -26.10377 -15.43329 -51.93160 -40.88943 -30.89523
##  [8] -37.35588 -61.96142 -54.36032
##  [1] 8.586255 8.507567 9.271450 9.631040 9.287309 8.567821 9.256512 9.331707
##  [9] 9.180239 9.195662

Sys.time() - t
## Time difference of 1.105415 mins

##2

t <- Sys.time()
n.topics <- 10

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 14
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: ребенок, человек, мочь, очень, учитель, работать, говорить 
##       FREX: знать, понимать, казаться, надо, конечно, думать, очень 
##       Lift: аристотель, ассоциировать, ассоциироваться, аудиал?_s, безматерный?_a, белокобыльский, бигдэйт?_s 
##       Score: греф, миша, конвергентный, стриж, пмо?_s, честно, глобалист?_s 
## Topic 2 Top Words:
##       Highest Prob: год, обучение, ребенок, дистанционный, система, российский, рф 
##       FREX: белгородский, кравцов, министр, закон, заявление, частный, экзамен 
##       Lift: авральный, аис, безальтернативный, вступ?_s, генпрокуратура, доза, есиа?_s 
##       Score: белгородский, ст, земский, егэ, кравцов, швабауэр?_s, памятный 
## Topic 3 Top Words:
##       Highest Prob: учитель, обучение, ребенок, онлайн, педагог, ученик, дистанционный 
##       FREX: опрос, урок, респондент, готовность, карантин, опрашивать, домашний 
##       Lift: гаврилова, классник?_s, контентный?_a, палочка, хамардюк?_s, вышка, контрольно-измерительный 
##       Score: фиро?_s, учитель, педагог, ранхигс?_s, респондент, тарасова, задание 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, школьный, программа, персонализировать, обучение 
##       FREX: приставка, смартбокс?_s, комплект, сберкласс?_s, тачпадом?_adv, благотворительный, платформа 
##       Lift: автопарк, алеево?_s, алиханов, анащенко?_s, аптечный, аудиозапись?_s, байгузинский?_a 
##       Score: смартбокс?_s, сбербанк, тачпадом?_adv, приставка, клавиатура, сберкласс?_s, безвозмездно 
## Topic 5 Top Words:
##       Highest Prob: год, проект, конкурс, организация, область, ребенок, учреждение 
##       FREX: муниципальный, конкурс, округ, общеобразовательный, район, номинация, автономный 
##       Lift: аварийный, автодорога, борисоглебский?_a, выезд, добросовестный, единожды, езаовый?_a 
##       Score: сош?_s, конкурс, общеобразовательный, вадский, маоу?_s, район, конкурсный 
## Topic 6 Top Words:
##       Highest Prob: ребенок, год, родитель, детский, новый, становиться, жизнь 
##       FREX: амонашвили?_s, гуманный, шалва, куйвашев?_s, женщина, радио, каменск 
##       Lift: митинг, амонашвили?_s, автограф, автономность, англия, бах, безотметочный?_a 
##       Score: куйвашев?_s, амонашвили?_s, авдеев, гуманный, шалва, радио, шапша?_s 
## Topic 7 Top Words:
##       Highest Prob: цифровой, университет, студент, обучение, технология, вуз, новый 
##       FREX: мисис?_s, нит, университет, студент, вуз, трек, экономика 
##       Lift: архипелаг, беспилотник?_s, визионерский, гафуров, жданов, ильшат, инжиниринг 
##       Score: университет, мисис?_s, нит, урфа, вуз, иот?_s, тгу?_s 
## Topic 8 Top Words:
##       Highest Prob: ребенок, развитие, педагогический, центр, ранхигс?_s, институт, директор 
##       FREX: доцент, кандидат, фиро?_s, кафедра, ранхигс?_s, доклад, вебинар?_s 
##       Lift: авалуев?_s, анатомия, артеменко, атрощенко, бобылев, воробьев, геномный 
##       Score: фиро?_s, ранхигс?_s, социализация, вебинар?_s, канд?_s, доцент, раса 
## Topic 9 Top Words:
##       Highest Prob: год, сбербанк, сервис, проект, компания, клиент, банк 
##       FREX: безналичный, ипотечный, клиент, сберздоровье?_s, кредит, сбер?_s, сбера?_s 
##       Lift: безналичный, сберздоровье?_s, ситимобил?_s, авто, алмаз, амбассадор?_s, антей 
##       Score: пензенский, сберздоровье?_s, сбера?_s, сбербанк, клиент, безналичный, ипотечный 
## Topic 10 Top Words:
##       Highest Prob: развитие, профессиональный, будущее, фгос?_s, личность, личностный, современный 
##       FREX: прогностический, фгос?_s, личность, прогнозирование, компетентность, компонент, метапредметный?_a 
##       Lift: абориген, агрессивный, актуализироваться, аналитичность, беспомощность, бессознательно, блокироваться 
##       Score: прогностический, ргппа?_s, прогнозирование, зеер?_s, тагил, фгос?_s, асмолов
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
##  [1] -28.05821 -32.57252 -26.10377 -15.43329 -51.93160 -40.88943 -30.89523
##  [8] -37.35588 -61.96142 -54.36032
##  [1] 8.586255 8.507567 9.271450 9.631040 9.287309 8.567821 9.256512 9.331707
##  [9] 9.180239 9.195662

Sys.time() - t
## Time difference of 1.114358 mins

9 тем

##1

t <- Sys.time()
n.topics <- 9

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 15
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: человек, развитие, новый, будущее, профессиональный, система, мир 
##       FREX: прогностический, личность, прогнозирование, ценность, фгос?_s, поколение, ценностный 
##       Lift: агрессивный, апологет, аргументация, безграмотность, беспомощность, бигдэйт?_s, биоинженерия 
##       Score: прогностический, греф, асмолов, конвергентный, личность, капитализм, прогнозирование 
## Topic 2 Top Words:
##       Highest Prob: год, сбербанк, сервис, проект, банк, клиент, компания 
##       FREX: безналичный, легкое, ипотека, ипотечный, клиент, сберздоровье?_s, млрд 
##       Lift: арендный, биржевой, бурденко, вирусный, гипермаркет, горбунок, доза 
##       Score: пензенский, сбербанк, клиент, сбера?_s, сберздоровье?_s, кредит, безналичный 
## Topic 3 Top Words:
##       Highest Prob: ребенок, учитель, обучение, педагог, ученик, мочь, родитель 
##       FREX: получаться, карантин, опрос, респондент, опрашивать, домашний, экзамен 
##       Lift: абсурд, амос, аттестовать, аукнуться, беззаботный, безлимитный, биться 
##       Score: учитель, тарасова, педагог, задание, фиро?_s, респондент, ранхигс?_s 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, обучение, школьный, программа, персонализировать 
##       FREX: смартбокс?_s, сберкласс?_s, благотворительный, платформа, комплект, тачпадом?_adv, приставка 
##       Lift: автопарк, алеево?_s, анащенко?_s, аптечный, аудиозапись?_s, байгузинский?_a, бакланова 
##       Score: смартбокс?_s, сбербанк, приставка, тачпадом?_adv, сберкласс?_s, безвозмездно, клавиатура 
## Topic 5 Top Words:
##       Highest Prob: год, проект, организация, ребенок, область, программа, педагог 
##       FREX: земский, сош?_s, район, бюджет, ст, ноутбук, вадский 
##       Lift: автодорога, земский, аварийный, автолаб?_s, агропромышленный, агрохимия, александрова 
##       Score: сош?_s, вадский, район, маоу?_s, земский, ленинградский, урицкий 
## Topic 6 Top Words:
##       Highest Prob: ребенок, год, детский, учреждение, муниципальный, дошкольный, сад 
##       FREX: каменск, амонашвили?_s, екатеринбург, шалва, куйвашев?_s, свердловский, тагил 
##       Lift: хорошевский, аллея, амонашвили?_s, каменск, профилизация?_s, авдеев, автограф 
##       Score: дошкольный, каменск, тагил, куйвашев?_s, сад, амонашвили?_s, гуманный 
## Topic 7 Top Words:
##       Highest Prob: цифровой, проект, развитие, конкурс, программа, технология, обучение 
##       FREX: портфолио, конкурс, экономика, грамотность, компетенция, команда, кейс 
##       Lift: арктика, архипелаг, аспирантура, беспилотник?_s, блажь, верифицироваться?_v, геоскан?_s 
##       Score: конкурс, тгу?_s, кентавр, портфолио, архипелаг, номинация, спбга?_s 
## Topic 8 Top Words:
##       Highest Prob: ребенок, развитие, педагогический, центр, ранхигс?_s, институт, директор 
##       FREX: доцент, ранхигс?_s, фиро?_s, доклад, кафедра, кандидат, экспертный 
##       Lift: авалуев?_s, анатомия, антропологический, артеменко, атрощенко, бобылев, воробьев 
##       Score: фиро?_s, ранхигс?_s, социализация, канд?_s, педагогический, доцент, раса 
## Topic 9 Top Words:
##       Highest Prob: университет, студент, вуз, обучение, год, новый, онлайн 
##       FREX: мисис?_s, нит, инжиниринг, студент, университет, рынок, вуз 
##       Lift: алмаз, беркли, блиц-интервью, быстрорастущий, выживать, госслужащий, дворкович?_s 
##       Score: мисис?_s, нит, урфа, иот?_s, тпу?_s, фадеев, университет
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
## [1] -37.11030 -43.84151 -27.61481 -15.24298 -32.60923 -60.29823 -38.17040
## [8] -35.80962 -37.01314
## [1] 7.949986 9.117737 8.630730 9.643067 8.586862 9.401223 9.265900 9.324077
## [9] 8.498057

Sys.time() - t
## Time difference of 58.67893 secs

##2

t <- Sys.time()
n.topics <- 9

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 16
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: человек, развитие, новый, будущее, профессиональный, система, мир 
##       FREX: прогностический, личность, прогнозирование, ценность, фгос?_s, поколение, ценностный 
##       Lift: агрессивный, апологет, аргументация, безграмотность, беспомощность, бигдэйт?_s, биоинженерия 
##       Score: прогностический, греф, асмолов, конвергентный, личность, капитализм, прогнозирование 
## Topic 2 Top Words:
##       Highest Prob: год, сбербанк, сервис, проект, банк, клиент, компания 
##       FREX: безналичный, легкое, ипотека, ипотечный, клиент, сберздоровье?_s, млрд 
##       Lift: арендный, биржевой, бурденко, вирусный, гипермаркет, горбунок, доза 
##       Score: пензенский, сбербанк, клиент, сбера?_s, сберздоровье?_s, кредит, безналичный 
## Topic 3 Top Words:
##       Highest Prob: ребенок, учитель, обучение, педагог, ученик, мочь, родитель 
##       FREX: получаться, карантин, опрос, респондент, опрашивать, домашний, экзамен 
##       Lift: абсурд, амос, аттестовать, аукнуться, беззаботный, безлимитный, биться 
##       Score: учитель, тарасова, педагог, задание, фиро?_s, респондент, ранхигс?_s 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, обучение, школьный, программа, персонализировать 
##       FREX: смартбокс?_s, сберкласс?_s, благотворительный, платформа, комплект, тачпадом?_adv, приставка 
##       Lift: автопарк, алеево?_s, анащенко?_s, аптечный, аудиозапись?_s, байгузинский?_a, бакланова 
##       Score: смартбокс?_s, сбербанк, приставка, тачпадом?_adv, сберкласс?_s, безвозмездно, клавиатура 
## Topic 5 Top Words:
##       Highest Prob: год, проект, организация, ребенок, область, программа, педагог 
##       FREX: земский, сош?_s, район, бюджет, ст, ноутбук, вадский 
##       Lift: автодорога, земский, аварийный, автолаб?_s, агропромышленный, агрохимия, александрова 
##       Score: сош?_s, вадский, район, маоу?_s, земский, ленинградский, урицкий 
## Topic 6 Top Words:
##       Highest Prob: ребенок, год, детский, учреждение, муниципальный, дошкольный, сад 
##       FREX: каменск, амонашвили?_s, екатеринбург, шалва, куйвашев?_s, свердловский, тагил 
##       Lift: хорошевский, аллея, амонашвили?_s, каменск, профилизация?_s, авдеев, автограф 
##       Score: дошкольный, каменск, тагил, куйвашев?_s, сад, амонашвили?_s, гуманный 
## Topic 7 Top Words:
##       Highest Prob: цифровой, проект, развитие, конкурс, программа, технология, обучение 
##       FREX: портфолио, конкурс, экономика, грамотность, компетенция, команда, кейс 
##       Lift: арктика, архипелаг, аспирантура, беспилотник?_s, блажь, верифицироваться?_v, геоскан?_s 
##       Score: конкурс, тгу?_s, кентавр, портфолио, архипелаг, номинация, спбга?_s 
## Topic 8 Top Words:
##       Highest Prob: ребенок, развитие, педагогический, центр, ранхигс?_s, институт, директор 
##       FREX: доцент, ранхигс?_s, фиро?_s, доклад, кафедра, кандидат, экспертный 
##       Lift: авалуев?_s, анатомия, антропологический, артеменко, атрощенко, бобылев, воробьев 
##       Score: фиро?_s, ранхигс?_s, социализация, канд?_s, педагогический, доцент, раса 
## Topic 9 Top Words:
##       Highest Prob: университет, студент, вуз, обучение, год, новый, онлайн 
##       FREX: мисис?_s, нит, инжиниринг, студент, университет, рынок, вуз 
##       Lift: алмаз, беркли, блиц-интервью, быстрорастущий, выживать, госслужащий, дворкович?_s 
##       Score: мисис?_s, нит, урфа, иот?_s, тпу?_s, фадеев, университет
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
## [1] -37.11030 -43.84151 -27.61481 -15.24298 -32.60923 -60.29823 -38.17040
## [8] -35.80962 -37.01314
## [1] 7.949986 9.117737 8.630730 9.643067 8.586862 9.401223 9.265900 9.324077
## [9] 8.498057

Sys.time() - t
## Time difference of 1.036277 mins

8 тем

##1

t <- Sys.time()
n.topics <- 8

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 17
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: ребенок, человек, мочь, очень, учитель, новый, говорить 
##       FREX: знать, думать, казаться, очень, марк, цукерберг?_s, жить 
##       Lift: билл, биоинженерия, бирюзовый, воровать, гарри, глоток, дальнесрочный?_a 
##       Score: греф, конвергентный, человек, знать, цукерберг?_s, надо, миша 
## Topic 2 Top Words:
##       Highest Prob: год, сбербанк, сервис, проект, компания, банк, клиент 
##       FREX: ипотечный, сберздоровье?_s, клиент, сбера?_s, кредит, господдержка?_s, сбер?_s 
##       Lift: арендный, биржа, биржевой, бурденко, гипермаркет, горбунок, дочка 
##       Score: сбербанк, пензенский, сберздоровье?_s, сбера?_s, безналичный, ипотечный, рубль 
## Topic 3 Top Words:
##       Highest Prob: учитель, ребенок, обучение, дистанционный, педагог, онлайн, родитель 
##       FREX: респондент, опрос, карантин, опрашивать, урок, проверочный, дистанционный 
##       Lift: абсурд, аттестовать, аукнуться, беззаботный, безлимитный, бодрый, буфет 
##       Score: учитель, тарасова, фиро?_s, педагог, ранхигс?_s, респондент, социализация 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, обучение, программа, персонализировать, школьный 
##       FREX: сберкласс?_s, смартбокс?_s, тачпадом?_adv, комплект, платформа, благотворительный, персонализировать 
##       Lift: автопарк, алеево?_s, алиханов, анащенко?_s, аптечный, аудиозапись?_s, байгузинский?_a 
##       Score: смартбокс?_s, сбербанк, тачпадом?_adv, приставка, клавиатура, сберкласс?_s, безвозмездно 
## Topic 5 Top Words:
##       Highest Prob: год, проект, область, организация, ребенок, учреждение, муниципальный 
##       FREX: муниципальный, каменск, сад, округ, район, автономный, общеобразовательный 
##       Lift: законный, аварийный, автодорога, автолаб?_s, агропромышленный, агрохимия, александрова 
##       Score: сош?_s, муниципальный, общеобразовательный, вадский, район, дошкольный, тагил 
## Topic 6 Top Words:
##       Highest Prob: развитие, год, новый, конференция, ребенок, российский, центр 
##       FREX: мисис?_s, нит, амонашвили?_s, дискуссия, раса, рао, шалва 
##       Lift: амонашвили?_s, ммсо?_s, австралия, автономность, активист, артеменко, архангельский 
##       Score: ранхигс?_s, мисис?_s, нит, фиро?_s, раса, амонашвили?_s, дискуссия 
## Topic 7 Top Words:
##       Highest Prob: цифровой, университет, студент, обучение, вуз, технология, программа 
##       FREX: студент, вуз, университет, экономика, портфолио, курс, кадр 
##       Lift: айтишник?_s, архипелаг, беспилотник?_s, визионерский, гафуров, гений, деканат 
##       Score: университет, урфа, иот?_s, тгу?_s, тпу?_s, фадеев, рынок 
## Topic 8 Top Words:
##       Highest Prob: профессиональный, педагогический, развитие, педагог, ребенок, проект, программа 
##       FREX: прогностический, доцент, ирина, личностный, кандидат, вебинар?_s, жизненный 
##       Lift: азевич, альбертовна, амбулаторный, аналитичность, анатомия, архипова, асоу?_s 
##       Score: прогностический, фиро?_s, ранхигс?_s, педагогический, канд?_s, социализация, доцент
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
## [1] -26.20280 -45.54432 -24.27929 -14.79614 -52.53272 -32.66445 -34.07992
## [8] -31.57670
## [1] 8.044976 9.032077 8.861642 9.605248 9.084177 8.561009 9.059288 8.986239

Sys.time() - t
## Time difference of 46.49105 secs

##2

t <- Sys.time()
n.topics <- 8

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 17
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: ребенок, человек, мочь, очень, учитель, новый, говорить 
##       FREX: знать, думать, казаться, очень, марк, цукерберг?_s, жить 
##       Lift: билл, биоинженерия, бирюзовый, воровать, гарри, глоток, дальнесрочный?_a 
##       Score: греф, конвергентный, человек, знать, цукерберг?_s, надо, миша 
## Topic 2 Top Words:
##       Highest Prob: год, сбербанк, сервис, проект, компания, банк, клиент 
##       FREX: ипотечный, сберздоровье?_s, клиент, сбера?_s, кредит, господдержка?_s, сбер?_s 
##       Lift: арендный, биржа, биржевой, бурденко, гипермаркет, горбунок, дочка 
##       Score: сбербанк, пензенский, сберздоровье?_s, сбера?_s, безналичный, ипотечный, рубль 
## Topic 3 Top Words:
##       Highest Prob: учитель, ребенок, обучение, дистанционный, педагог, онлайн, родитель 
##       FREX: респондент, опрос, карантин, опрашивать, урок, проверочный, дистанционный 
##       Lift: абсурд, аттестовать, аукнуться, беззаботный, безлимитный, бодрый, буфет 
##       Score: учитель, тарасова, фиро?_s, педагог, ранхигс?_s, респондент, социализация 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, обучение, программа, персонализировать, школьный 
##       FREX: сберкласс?_s, смартбокс?_s, тачпадом?_adv, комплект, платформа, благотворительный, персонализировать 
##       Lift: автопарк, алеево?_s, алиханов, анащенко?_s, аптечный, аудиозапись?_s, байгузинский?_a 
##       Score: смартбокс?_s, сбербанк, тачпадом?_adv, приставка, клавиатура, сберкласс?_s, безвозмездно 
## Topic 5 Top Words:
##       Highest Prob: год, проект, область, организация, ребенок, учреждение, муниципальный 
##       FREX: муниципальный, каменск, сад, округ, район, автономный, общеобразовательный 
##       Lift: законный, аварийный, автодорога, автолаб?_s, агропромышленный, агрохимия, александрова 
##       Score: сош?_s, муниципальный, общеобразовательный, вадский, район, дошкольный, тагил 
## Topic 6 Top Words:
##       Highest Prob: развитие, год, новый, конференция, ребенок, российский, центр 
##       FREX: мисис?_s, нит, амонашвили?_s, дискуссия, раса, рао, шалва 
##       Lift: амонашвили?_s, ммсо?_s, австралия, автономность, активист, артеменко, архангельский 
##       Score: ранхигс?_s, мисис?_s, нит, фиро?_s, раса, амонашвили?_s, дискуссия 
## Topic 7 Top Words:
##       Highest Prob: цифровой, университет, студент, обучение, вуз, технология, программа 
##       FREX: студент, вуз, университет, экономика, портфолио, курс, кадр 
##       Lift: айтишник?_s, архипелаг, беспилотник?_s, визионерский, гафуров, гений, деканат 
##       Score: университет, урфа, иот?_s, тгу?_s, тпу?_s, фадеев, рынок 
## Topic 8 Top Words:
##       Highest Prob: профессиональный, педагогический, развитие, педагог, ребенок, проект, программа 
##       FREX: прогностический, доцент, ирина, личностный, кандидат, вебинар?_s, жизненный 
##       Lift: азевич, альбертовна, амбулаторный, аналитичность, анатомия, архипова, асоу?_s 
##       Score: прогностический, фиро?_s, ранхигс?_s, педагогический, канд?_s, социализация, доцент
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
## [1] -26.20280 -45.54432 -24.27929 -14.79614 -52.53272 -32.66445 -34.07992
## [8] -31.57670
## [1] 8.044976 9.032077 8.861642 9.605248 9.084177 8.561009 9.059288 8.986239

Sys.time() - t
## Time difference of 44.56971 secs

7 тем

##1

t <- Sys.time()
n.topics <- 7

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 19
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: человек, новый, развитие, будущее, профессиональный, система, жизнь 
##       FREX: прогностический, амонашвили?_s, гуманный, шалва, личность, ценность, капитализм 
##       Lift: капитализм, абориген, агрессивный, адепт, актуализироваться, амонашвили?_s, аналитичность 
##       Score: прогностический, греф, асмолов, амонашвили?_s, личность, конвергентный, гуманный 
## Topic 2 Top Words:
##       Highest Prob: год, сбербанк, сервис, проект, компания, уже, банк 
##       FREX: ипотечный, магазин, сберздоровье?_s, господдержка?_s, млрд, клиент, кредит 
##       Lift: ленобласть, амбассадор?_s, англия, антикризисный, арендный, атака, африканский 
##       Score: пензенский, сбербанк, клиент, сбера?_s, сберздоровье?_s, кредит, рубль 
## Topic 3 Top Words:
##       Highest Prob: ребенок, учитель, обучение, педагог, мочь, ученик, родитель 
##       FREX: радио, карантин, респондент, получаться, опрос, опрашивать, мама 
##       Lift: безлимитный, бодрость, бодрый, братство, вербальный, воевать, волос 
##       Score: учитель, педагог, тарасова, фиро?_s, ранхигс?_s, респондент, социализация 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, обучение, программа, школьный, персонализировать 
##       FREX: смартбокс?_s, приставка, клавиатура, сберкласс?_s, комплект, тачпадом?_adv, платформа 
##       Lift: аудиозапись?_s, беспрерывный, благовещенск, боева, булин, видеоматериал, воронков 
##       Score: смартбокс?_s, сбербанк, приставка, тачпадом?_adv, клавиатура, телевизор, безвозмездно 
## Topic 5 Top Words:
##       Highest Prob: год, проект, организация, область, ребенок, учреждение, муниципальный 
##       FREX: муниципальный, каменск, округ, сад, общеобразовательный, район, автономный 
##       Lift: аварийный, автодорога, автолаб?_s, агропромышленный, агрохимия, александрова, алсу 
##       Score: муниципальный, сош?_s, район, вадский, общеобразовательный, тагил, маоу?_s 
## Topic 6 Top Words:
##       Highest Prob: ребенок, развитие, педагогический, центр, директор, ранхигс?_s, профессиональный 
##       FREX: доцент, ранхигс?_s, фиро?_s, ирина, вебинар?_s, доклад, кандидат 
##       Lift: корра?_s, петушки, тихоновский, янушкявичен?_s, ммсо?_s, сергеевна, авалуев?_s 
##       Score: фиро?_s, ранхигс?_s, социализация, педагогический, доцент, канд?_s, ниц 
## Topic 7 Top Words:
##       Highest Prob: цифровой, университет, студент, обучение, вуз, технология, новый 
##       FREX: мисис?_s, нит, университет, студент, вуз, инжиниринг, трек 
##       Lift: иот?_s, урфа, авто, архипелаг, беспилотник?_s, бета-версия, бизнес-проект 
##       Score: мисис?_s, нит, университет, урфа, иот?_s, тпу?_s, тгу?_s
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
## [1] -31.64482 -60.35855 -30.15916 -14.33529 -42.34101 -34.22819 -33.34411
## [1] 7.665713 8.939741 8.436981 9.609425 8.908609 9.215568 8.846295

Sys.time() - t
## Time difference of 44.41975 secs

##2

t <- Sys.time()
n.topics <- 7

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 20
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: человек, новый, развитие, будущее, профессиональный, система, жизнь 
##       FREX: прогностический, амонашвили?_s, гуманный, шалва, личность, ценность, капитализм 
##       Lift: капитализм, абориген, агрессивный, адепт, актуализироваться, амонашвили?_s, аналитичность 
##       Score: прогностический, греф, асмолов, амонашвили?_s, личность, конвергентный, гуманный 
## Topic 2 Top Words:
##       Highest Prob: год, сбербанк, сервис, проект, компания, уже, банк 
##       FREX: ипотечный, магазин, сберздоровье?_s, господдержка?_s, млрд, клиент, кредит 
##       Lift: ленобласть, амбассадор?_s, англия, антикризисный, арендный, атака, африканский 
##       Score: пензенский, сбербанк, клиент, сбера?_s, сберздоровье?_s, кредит, рубль 
## Topic 3 Top Words:
##       Highest Prob: ребенок, учитель, обучение, педагог, мочь, ученик, родитель 
##       FREX: радио, карантин, респондент, получаться, опрос, опрашивать, мама 
##       Lift: безлимитный, бодрость, бодрый, братство, вербальный, воевать, волос 
##       Score: учитель, педагог, тарасова, фиро?_s, ранхигс?_s, респондент, социализация 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, обучение, программа, школьный, персонализировать 
##       FREX: смартбокс?_s, приставка, клавиатура, сберкласс?_s, комплект, тачпадом?_adv, платформа 
##       Lift: аудиозапись?_s, беспрерывный, благовещенск, боева, булин, видеоматериал, воронков 
##       Score: смартбокс?_s, сбербанк, приставка, тачпадом?_adv, клавиатура, телевизор, безвозмездно 
## Topic 5 Top Words:
##       Highest Prob: год, проект, организация, область, ребенок, учреждение, муниципальный 
##       FREX: муниципальный, каменск, округ, сад, общеобразовательный, район, автономный 
##       Lift: аварийный, автодорога, автолаб?_s, агропромышленный, агрохимия, александрова, алсу 
##       Score: муниципальный, сош?_s, район, вадский, общеобразовательный, тагил, маоу?_s 
## Topic 6 Top Words:
##       Highest Prob: ребенок, развитие, педагогический, центр, директор, ранхигс?_s, профессиональный 
##       FREX: доцент, ранхигс?_s, фиро?_s, ирина, вебинар?_s, доклад, кандидат 
##       Lift: корра?_s, петушки, тихоновский, янушкявичен?_s, ммсо?_s, сергеевна, авалуев?_s 
##       Score: фиро?_s, ранхигс?_s, социализация, педагогический, доцент, канд?_s, ниц 
## Topic 7 Top Words:
##       Highest Prob: цифровой, университет, студент, обучение, вуз, технология, новый 
##       FREX: мисис?_s, нит, университет, студент, вуз, инжиниринг, трек 
##       Lift: иот?_s, урфа, авто, архипелаг, беспилотник?_s, бета-версия, бизнес-проект 
##       Score: мисис?_s, нит, университет, урфа, иот?_s, тпу?_s, тгу?_s
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
## [1] -31.64482 -60.35855 -30.15916 -14.33529 -42.34101 -34.22819 -33.34411
## [1] 7.665713 8.939741 8.436981 9.609425 8.908609 9.215568 8.846295

Sys.time() - t
## Time difference of 45.43094 secs

6 тем

##1

t <- Sys.time()
n.topics <- 6

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 21
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: человек, новый, развитие, будущее, мочь, профессиональный, жизнь 
##       FREX: прогностический, амонашвили?_s, гуманистический, гуманный, шалва, портфолио, личность 
##       Lift: агрессивный, амонашвили?_s, апологет, аргументация, безграмотность, беспомощность, бесспорно 
##       Score: прогностический, личность, греф, конвергентный, амонашвили?_s, асмолов, личностный 
## Topic 2 Top Words:
##       Highest Prob: год, цифровой, университет, студент, обучение, онлайн, новый 
##       FREX: рынок, спрос, предприниматель, бизнес, урфа, иот?_s, клиент 
##       Lift: иот?_s, австрия, авто, агрегатор?_s, айтишник?_s, антикризисный, аристотель 
##       Score: университет, урфа, иот?_s, клиент, рынок, тгу?_s, компания 
## Topic 3 Top Words:
##       Highest Prob: ребенок, учитель, обучение, педагог, ученик, мочь, родитель 
##       FREX: радио, карантин, опрашивать, респондент, егэ, опрос, мама 
##       Lift: безлимитный, восьмиклассник, гаврилова, гугл, домашка?_s, дуб, зарядка 
##       Score: учитель, ребенок, тарасова, педагог, фиро?_s, ранхигс?_s, респондент 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, программа, обучение, школьный, персонализировать 
##       FREX: смартбокс?_s, приставка, клавиатура, тачпадом?_adv, сбербанк, сберкласс?_s, комплект 
##       Lift: приставка, сберздоровье?_s, автопарк, алеево?_s, алиханов, анащенко?_s, анисимов 
##       Score: смартбокс?_s, сбербанк, тачпадом?_adv, пензенский, приставка, безвозмездно, клавиатура 
## Topic 5 Top Words:
##       Highest Prob: год, проект, организация, область, ребенок, программа, цифровой 
##       FREX: муниципальный, округ, каменск, район, сад, общеобразовательный, автономный 
##       Lift: законный, аварийный, автодорога, автолаб?_s, агропромышленный, агрохимия, александрова 
##       Score: муниципальный, район, сош?_s, вадский, дошкольный, тагил, куйвашев?_s 
## Topic 6 Top Words:
##       Highest Prob: развитие, ребенок, педагогический, директор, центр, проект, программа 
##       FREX: доцент, конференция, вебинар?_s, научно-исследовательский, ранхигс?_s, кафедра, экспертный 
##       Lift: ммсо?_s, авалуев?_s, автономность, азевич, алиев, альбертовна, анатомия 
##       Score: фиро?_s, ранхигс?_s, социализация, доцент, нит, мисис?_s, научно-исследовательский
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
## [1] -29.29902 -35.06270 -24.89394 -16.80891 -40.15061 -35.14933
## [1] 7.382018 8.499430 8.349431 9.303845 8.639818 8.967006

Sys.time() - t
## Time difference of 39.98244 secs

##2

t <- Sys.time()
n.topics <- 6

 
Model.stm <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = n.topics
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 22
                 , verbose = FALSE)

labelTopics(Model.stm)
## Topic 1 Top Words:
##       Highest Prob: человек, новый, развитие, будущее, мочь, профессиональный, жизнь 
##       FREX: прогностический, амонашвили?_s, гуманистический, гуманный, шалва, портфолио, личность 
##       Lift: агрессивный, амонашвили?_s, апологет, аргументация, безграмотность, беспомощность, бесспорно 
##       Score: прогностический, личность, греф, конвергентный, амонашвили?_s, асмолов, личностный 
## Topic 2 Top Words:
##       Highest Prob: год, цифровой, университет, студент, обучение, онлайн, новый 
##       FREX: рынок, спрос, предприниматель, бизнес, урфа, иот?_s, клиент 
##       Lift: иот?_s, австрия, авто, агрегатор?_s, айтишник?_s, антикризисный, аристотель 
##       Score: университет, урфа, иот?_s, клиент, рынок, тгу?_s, компания 
## Topic 3 Top Words:
##       Highest Prob: ребенок, учитель, обучение, педагог, ученик, мочь, родитель 
##       FREX: радио, карантин, опрашивать, респондент, егэ, опрос, мама 
##       Lift: безлимитный, восьмиклассник, гаврилова, гугл, домашка?_s, дуб, зарядка 
##       Score: учитель, ребенок, тарасова, педагог, фиро?_s, ранхигс?_s, респондент 
## Topic 4 Top Words:
##       Highest Prob: платформа, цифровой, сбербанк, программа, обучение, школьный, персонализировать 
##       FREX: смартбокс?_s, приставка, клавиатура, тачпадом?_adv, сбербанк, сберкласс?_s, комплект 
##       Lift: приставка, сберздоровье?_s, автопарк, алеево?_s, алиханов, анащенко?_s, анисимов 
##       Score: смартбокс?_s, сбербанк, тачпадом?_adv, пензенский, приставка, безвозмездно, клавиатура 
## Topic 5 Top Words:
##       Highest Prob: год, проект, организация, область, ребенок, программа, цифровой 
##       FREX: муниципальный, округ, каменск, район, сад, общеобразовательный, автономный 
##       Lift: законный, аварийный, автодорога, автолаб?_s, агропромышленный, агрохимия, александрова 
##       Score: муниципальный, район, сош?_s, вадский, дошкольный, тагил, куйвашев?_s 
## Topic 6 Top Words:
##       Highest Prob: развитие, ребенок, педагогический, директор, центр, проект, программа 
##       FREX: доцент, конференция, вебинар?_s, научно-исследовательский, ранхигс?_s, кафедра, экспертный 
##       Lift: ммсо?_s, авалуев?_s, автономность, азевич, алиев, альбертовна, анатомия 
##       Score: фиро?_s, ранхигс?_s, социализация, доцент, нит, мисис?_s, научно-исследовательский
plot(Model.stm
     , type = "summary"
     , text.cex = 0.5
     , main = "Topic shares on the corpus as a whole"
     , xlab = "estimated share of topics")

topicQuality(Model.stm, DFM2stm$documents)
## [1] -29.29902 -35.06270 -24.89394 -16.80891 -40.15061 -35.14933
## [1] 7.382018 8.499430 8.349431 9.303845 8.639818 8.967006

Sys.time() - t
## Time difference of 39.33822 secs