Topic Models

Техническая информация и библиотеки

rm(list = ls())
date()
## [1] "Mon Sep  2 23:10:30 2024"
sessionInfo()
## R version 4.4.1 (2024-06-14)
## Platform: x86_64-apple-darwin20
## Running under: macOS Ventura 13.6.9
## 
## Matrix products: default
## BLAS:   /Library/Frameworks/R.framework/Versions/4.4-x86_64/Resources/lib/libRblas.0.dylib 
## LAPACK: /Library/Frameworks/R.framework/Versions/4.4-x86_64/Resources/lib/libRlapack.dylib;  LAPACK version 3.12.0
## 
## locale:
## [1] en_US.UTF-8/en_US.UTF-8/en_US.UTF-8/C/en_US.UTF-8/en_US.UTF-8
## 
## time zone: Europe/Moscow
## tzcode source: internal
## 
## attached base packages:
## [1] stats     graphics  grDevices datasets  utils     methods   base     
## 
## loaded via a namespace (and not attached):
##  [1] digest_0.6.36     R6_2.5.1          fastmap_1.2.0     xfun_0.45        
##  [5] cachem_1.1.0      knitr_1.48        htmltools_0.5.8.1 rmarkdown_2.27   
##  [9] lifecycle_1.0.4   cli_3.6.3         sass_0.4.9        renv_1.0.7       
## [13] jquerylib_0.1.4   compiler_4.4.1    rstudioapi_0.16.0 tools_4.4.1      
## [17] evaluate_0.24.0   bslib_0.7.0       yaml_2.3.9        jsonlite_1.8.8   
## [21] rlang_1.1.4

Библиотеки

library(quanteda)
library(quanteda.textstats)
library(stm)

#library(topicmodels)
library(ldatuning)
library(stringr)
library(tidyr)
library(wordcloud)
library(dplyr)
library(ggplot2)

load(file = "Tokens_S.Rdata")
load(file = "Words.Rdata")
load(file = "Corpus.RData")

Матрица документ/слово

DFM <- Tokens_S |>
  tokens_keep(pattern = c("*_S", "*_V", "*_A")) |>
  tokens_replace(Words$W1, Words$W2, valuetype = "fixed") |>
  dfm()

Выводим самые частотные слова

tab <- DFM |>
  textstat_frequency() |>
  as.data.frame() |> 
  select(-group)|>
  head(20)
tab$feature <- factor(tab$feature, levels = tab$feature)

tab

##     feature frequency rank docfreq
## 1      быть       219    1     112
## 2   мужчина       200    2      87
## 3   женщина       179    3      85
## 4   девочка       140    4      39
## 5   девушка       139    5      69
## 6    хотеть       128    6      77
## 7    думать       117    7      69
## 8      мочь       101    8      67
## 9   ребенок        87    9      32
## 10   сидеть        78   10      61
## 11 пытаться        76   11      54
## 12     мама        69   12      28
## 13  уходить        65   13      41
## 14 ситуация        64   14      40
## 15  сказать        54   15      45
## 16    знать        54   15      33
## 17 смотреть        53   17      41
## 18     рука        48   18      38
## 19     дочь        43   19      14
## 20     няня        40   20      17

#topfeatures(DFM, n = 20)

tab_long <- pivot_longer(tab, 
    cols = c(frequency, docfreq), 
    names_to = "Variable", 
    values_to = "Value")

# Создаем график с двумя линиями
ggplot(data = tab_long, aes(x = feature, y = Value, color = Variable, group = Variable)) +
  geom_line() +                     # Добавляем линии
  geom_point() +                    # Добавляем точки на линии
  labs(x = "Feature", y = "Value", color = "Variable") +  # Добавляем подписи к осям и легенде
  theme_minimal() +                  # Применяем минималистичный стиль для улучшения читаемости
  theme(axis.text.x = element_text(angle = 45, hjust = 1)) # Поворачиваем подписи оси X для удобства чтения

 DFM <-  dfm_trim(DFM, min_docfreq = 2, max_termfreq = 129)

Убраем первые пять слов. глагол Быть и мужчина, женщина и девочка/девушка.

#Подбор числа тем 1

DTM2topicmodels <- convert(DFM, to = "topicmodels")

t <- Sys.time()

LDAtuning.metrics_Gibbs <- FindTopicsNumber(DTM2topicmodels
                , topics = seq(from = 2, to = 100, by = 10)
                , metrics = c("Griffiths2004", "CaoJuan2009", "Arun2010", "Deveaud2014")
                , method = "Gibbs"
                , control = list(seed = 77)
                , mc.cores = 2L, verbose = TRUE
)

## fit models... done.
## calculate metrics:
##   Griffiths2004... done.
##   CaoJuan2009... done.
##   Arun2010... done.
##   Deveaud2014... done.

FindTopicsNumber_plot(LDAtuning.metrics_Gibbs)

Sys.time() - t

## Time difference of 18.82314 secs

t <- Sys.time()

LDAtuning.metrics_Gibbs <- FindTopicsNumber(DTM2topicmodels
                , topics = seq(from = 2, to = 30, by = 5)
                , metrics = c("Griffiths2004", "CaoJuan2009", "Arun2010", "Deveaud2014")
                , method = "Gibbs"
                , control = list(seed = 77)
                , mc.cores = 2L, verbose = TRUE
)

## fit models... done.
## calculate metrics:
##   Griffiths2004... done.
##   CaoJuan2009... done.
##   Arun2010... done.
##   Deveaud2014... done.

FindTopicsNumber_plot(LDAtuning.metrics_Gibbs)

Sys.time() - t

## Time difference of 16.75694 secs

t <- Sys.time()

LDAtuning.metrics_Gibbs <- FindTopicsNumber(DTM2topicmodels
                , topics = seq(from = 5, to = 20, by = 2)
                , metrics = c("Griffiths2004", "CaoJuan2009", "Arun2010", "Deveaud2014")
                , method = "Gibbs"
                , control = list(seed = 77)
                , mc.cores = 2L, verbose = TRUE
)

## fit models... done.
## calculate metrics:
##   Griffiths2004... done.
##   CaoJuan2009... done.
##   Arun2010... done.
##   Deveaud2014... done.

FindTopicsNumber_plot(LDAtuning.metrics_Gibbs)

Sys.time() - t

## Time difference of 15.97662 secs

t <- Sys.time()

LDAtuning.metrics_Gibbs <- FindTopicsNumber(DTM2topicmodels
                , topics = seq(from = 5, to = 15, by = 1)
                , metrics = c("Griffiths2004", "CaoJuan2009", "Arun2010", "Deveaud2014")
                , method = "Gibbs"
                , control = list(seed = 77)
                , mc.cores = 2L, verbose = TRUE
)

## fit models... done.
## calculate metrics:
##   Griffiths2004... done.
##   CaoJuan2009... done.
##   Arun2010... done.
##   Deveaud2014... done.

FindTopicsNumber_plot(LDAtuning.metrics_Gibbs)

Sys.time() - t

## Time difference of 18.12883 secs

Получается 13 тем или 6-7 + 9? тоже можно попробовать.

Подбор числа тем 2

DFM2stm <- convert(DFM, to = "stm") 

t <- Sys.time()
IdealK <- searchK(DFM2stm$documents, DFM2stm$vocab
                  , K = seq(5, 20, by = 2), max.em.its = 75
                  , cores = 4
                  , seed = 9999)

## Using multiple-cores.  Progress will not be shown.

plot(IdealK)

Sys.time() - t

## Time difference of 6.883535 secs

t <- Sys.time()
IdealK <- searchK(DFM2stm$documents, DFM2stm$vocab
                  , K = seq(7, 15, by = 1), max.em.its = 75
                  , cores = 4
                  , seed = 9999)

## Using multiple-cores.  Progress will not be shown.

plot(IdealK)

Sys.time() - t

## Time difference of 4.475075 secs

13 тем модель

Model.stm_13 <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = 13
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 9999)
## Beginning Spectral Initialization 
##   Calculating the gram matrix...
##   Finding anchor words...
##      .............
##   Recovering initialization...
##      .....
## Initialization complete.
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 1 (approx. per word bound = -5.528) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 2 (approx. per word bound = -5.057, relative change = 8.520e-02) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 3 (approx. per word bound = -4.976, relative change = 1.611e-02) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 4 (approx. per word bound = -4.960, relative change = 3.174e-03) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 5 (approx. per word bound = -4.956, relative change = 7.254e-04) 
## Topic 1: работа, заканчиваться, хотеть, человек, уходить 
##  Topic 2: хотеть, пойти, думать, подходить, чувствовать 
##  Topic 3: няня, жена, уставать, ребенок, кукла 
##  Topic 4: ситуация, думать, видеть, человек, картинка 
##  Topic 5: делать, знать, думать, пытаться, красивый 
##  Topic 6: казаться, пытаться, ребенок, внимание, мочь 
##  Topic 7: думать, сидеть, уходить, заинтересовывать, напугать 
##  Topic 8: мама, дочь, хотеть, кукла, рука 
##  Topic 9: пытаться, уходить, будущее, мочь, решать 
##  Topic 10: мочь, сидеть, подходить, удивлять, сказать 
##  Topic 11: понимать, ситуация, хотеть, лицо, мочь 
##  Topic 12: хотеть, думать, жена, уходить, удерживать 
##  Topic 13: ребенок, мать, держать, старший, дочь 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 6 (approx. per word bound = -4.955, relative change = 2.098e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 7 (approx. per word bound = -4.955, relative change = 3.181e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 8 (approx. per word bound = -4.955, relative change = 9.577e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 9 (approx. per word bound = -4.954, relative change = 7.739e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Model Converged

as.data.frame(t(labelTopics(Model.stm_13, n = 10)$prob))
##            V1          V2       V3       V4        V5          V6
## 1      работа      хотеть     няня ситуация    делать    казаться
## 2      хотеть       пойти     жена  человек     знать    пытаться
## 3     человек      думать  ребенок   думать    думать    внимание
## 4     уходить   подходить    кукла   видеть  пытаться     ребенок
## 5  заниматься чувствовать уставать картинка  говорить        мочь
## 6   отвлекать      любить      муж   момент  красивый    ситуация
## 7  заставлять     молодой картинка   данный начальник      хотеть
## 8      думать        кафе  человек  сделать  понимать      видеть
## 9  спрашивать        друг   видеть   диалог    хотеть происходить
## 10   разговор       вечер    семья  молодой      мочь      сидеть
##                  V7     V8          V9       V10         V11        V12
## 1            думать   мама    пытаться      мочь    ситуация     хотеть
## 2            сидеть   дочь     уходить    сидеть    понимать       жена
## 3           уходить  кукла     будущее подходить      хотеть     думать
## 4  заинтересовывать хотеть        мочь  удивлять        мочь    уходить
## 5          пытаться   рука  изображать   сказать        лицо удерживать
## 6          напугать   мать      решать      дело       знать    картина
## 7              лицо думать      думать     знать чувствовать       мочь
## 8            хотеть  дочка чувствовать    думать      сидеть        муж
## 9        заниматься   няня      хотеть  смотреть       мысль изображать
## 10         сигарета играть успокаивать    делать происходить  любовница
##         V13
## 1   ребенок
## 2   держать
## 3      мать
## 4   старший
## 5  младенец
## 6      дочь
## 7      мама
## 8    хотеть
## 9      рука
## 10   сестра

Ключевые слова

Значимые для темы слова по разным метрикам: The function by default prints several different types of word profiles, including highest probability words and FREX words. FREX weights words by their overall frequency and how exclusive they are to the topic

Lift weights words by dividing by their frequency in other topics, therefore giving higher weight to words that appear less frequently in other topics.

FREX: are the words that are both frequent and exclusive, identifying words that distinguish topics.

FREX: Слова, которые являются частыми и уникальными для темы. Отличают от других. Lift: Слова, которые редко встречаются в других темах.

labelTopics(Model.stm_13)

## Topic 1 Top Words:
##       Highest Prob: работа, хотеть, человек, уходить, заниматься, отвлекать, заставлять 
##       FREX: отвлекать, заставлять, работа, предприятие, спрашивать, заканчиваться, трубка 
##       Lift: отвлекать, интересоваться, предприятие, заставлять, написать, собеседование, тест 
##       Score: интересоваться, отвлекать, заставлять, работа, предприятие, тест, спрашивать 
## Topic 2 Top Words:
##       Highest Prob: хотеть, пойти, думать, подходить, чувствовать, любить, молодой 
##       FREX: любить, вечер, пойти, пить, развлекаться, рваться, поиграть 
##       Lift: возлюбленный, губа, отгибать, пить, развлекаться, размышлять, уточнять 
##       Score: возлюбленный, развлекаться, пить, вечер, рваться, губа, отгибать 
## Topic 3 Top Words:
##       Highest Prob: няня, жена, ребенок, кукла, уставать, муж, картинка 
##       FREX: няня, уставать, жена, выполнять, муж, кукла, семья 
##       Lift: считать, переставать, выполнять, ухаживать, персонаж, следовать, пошутить 
##       Score: считать, няня, жена, муж, кукла, выполнять, раздражение 
## Topic 4 Top Words:
##       Highest Prob: ситуация, человек, думать, видеть, картинка, момент, данный 
##       FREX: искать, ситуация, человек, повод, видеть, данный, картинка 
##       Lift: бояться, отель, жить, конфликтный, искать, последовать, выяснять 
##       Score: бояться, искать, отель, отец, завязываться, обижаться, избегать 
## Topic 5 Top Words:
##       Highest Prob: делать, знать, думать, пытаться, говорить, красивый, начальник 
##       FREX: делать, начальник, красивый, знать, расстраиваться, рассказывать, должный 
##       Lift: надавливать, секретарша, начальник, попадаться, проступок, расстраиваться, правый 
##       Score: попадаться, начальник, делать, расстраиваться, надавливать, секретарша, красивый 
## Topic 6 Top Words:
##       Highest Prob: казаться, пытаться, внимание, ребенок, мочь, ситуация, хотеть 
##       FREX: горничная, внимание, казаться, обучение, любовь, обыденный, сцена 
##       Lift: виноватый, горничная, горничный, поглядывать, преподаватель, расписание, любовь 
##       Score: любовь, горничная, внимание, обучение, направлять, обыденный, ребенок 
## Topic 7 Top Words:
##       Highest Prob: думать, сидеть, уходить, заинтересовывать, пытаться, напугать, лицо 
##       FREX: заинтересовывать, напугать, сигарета, уговаривать, раздражать, ощущение, познакомиться 
##       Lift: раздражать, отвлекаться, уговаривать, процесс, сигарета, вставать, зуб 
##       Score: раздражать, напугать, сигарета, заинтересовывать, уговаривать, зуб, вставать 
## Topic 8 Top Words:
##       Highest Prob: мама, дочь, кукла, хотеть, рука, мать, думать 
##       FREX: мама, дочь, дочка, читать, кукла, нянечка, отвертываться 
##       Lift: сказка, отстранять, воспитание, кормить, спать, капризничать, перелагать 
##       Score: сказка, мама, дочь, дочка, кукла, читать, мать 
## Topic 9 Top Words:
##       Highest Prob: пытаться, уходить, будущее, мочь, изображать, решать, думать 
##       FREX: решать, будущее, светлый, проблема, пытаться, связь, успокаивать 
##       Lift: волос, медсестра, тянуться, светлый, снимать, паб, связь 
##       Score: медсестра, светлый, решать, проблема, встречаться, волос, тянуться 
## Topic 10 Top Words:
##       Highest Prob: мочь, сидеть, подходить, удивлять, сказать, дело, знать 
##       FREX: удивлять, подходить, мочь, знакомый, сидеть, дело, предлагать 
##       Lift: накрасить, предлагать, сообщать, удивлять, рот, столик, знакомый 
##       Score: предлагать, удивлять, подходить, знакомый, мочь, спрашивать, познакомиться 
## Topic 11 Top Words:
##       Highest Prob: ситуация, понимать, хотеть, мочь, лицо, знать, чувствовать 
##       FREX: понимать, разрешать, ситуация, мысль, выражение, заставать, требовать 
##       Lift: зрение, поле, полный, польза, свобода, заставать, требовать 
##       Score: полный, разрешать, заставать, неприятный, спрашивать, допускать, зрение 
## Topic 12 Top Words:
##       Highest Prob: хотеть, жена, думать, уходить, удерживать, картина, мочь 
##       FREX: любовница, жена, удерживать, муж, картина, настраивать, оставаться 
##       Lift: последствие, любовница, привлекать, настраивать, бросать, рассуждать, парень 
##       Score: привлекать, жена, любовница, муж, удерживать, настраивать, партнер 
## Topic 13 Top Words:
##       Highest Prob: ребенок, держать, мать, старший, младенец, дочь, мама 
##       FREX: старший, младенец, помогать, ребенок, мать, младший, брат 
##       Lift: помогать, брат, подержать, следить, младший, старший, ощущать 
##       Score: помогать, ребенок, старший, дочь, младенец, мать, сестра

Облака тем

par(mar = c(0.5, 0.5, 0.5, 0.5))

for (i in 1:13) {
        print(paste("Тема ", i))
cloud(Model.stm_13, topic = i, scale = c(2.25,.5), max.words = 50, rot.per = 0)
}

## [1] "Тема  1"

## [1] "Тема  2"

## [1] "Тема  3"

## [1] "Тема  4"

## [1] "Тема  5"

## [1] "Тема  6"

## [1] "Тема  7"

## [1] "Тема  8"

## [1] "Тема  9"

## [1] "Тема  10"

## [1] "Тема  11"

## [1] "Тема  12"

## [1] "Тема  13"

#plot(Model.stm_13, type = "summary", text.cex = 0.5, main = "Topic shares on the corpus as a whole", xlab = "estimated share of topics")

plot(Model.stm_13, type = "summary", text.cex = 0.5, main = "Распространенность темы во всём корпусе", xlab = "доля темы")

plot(Model.stm_13, type = "summary", text.cex = 0.5, main = "Распространенность темы во всём корпусе (frex)", xlab = "доля темы"
     , labeltype = "frex")

Типичные тексты

Find.stm <- findThoughts(Model.stm_13, texts = as.character(Corpus), n = 2)

Find.stm$docs

## $`Topic 1`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            Control_Испытуемый_14_Картинка_2.txt 
## "Женщина устраиваться на работу. И все бы ничего, если бы эта работа не считалась «мужской». На собеседовании она написала вступительный тест, который проходят все. Тест был написан отлично, ни одной ошибки. Однако мужчину, который принимает новых людей на работу, это не устраивает. Он всячески давит на молодую девушку. Он надеется, что его вопросы поставят даму в ступор, смутят ее, заставят бежать отсюда. Ему не нужна «головная боль» на работе, к тому же, что подумаю о нем, когда узнают, что он принял женщину на их предприятие. Но девушка была готова к «допросу с пристрастием» на собеседовании. Хотя некоторые вопросы вообще не касались ее будущей работы и заставляли ее удивляться бестактности и невоспитанности этого мужчины, она ответила на каждый. Благодаря своей упертость и силе воли, она все-таки получит место на этом предприятии." 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            Control_Испытуемый_18_Картинка_3.txt 
##                                                                                                                                                                                                                                                                                                     "Анна снова целыми днями напролет была увлечена игрой со своей новой куклой, подаренной отцом после командировки. Ничего больше её не заботило, только лишь её кукла Аннабель. Однако нянюшка все-таки заставила её внимать литературу, наказав при этом, что спросит с нее пересказ. Вот и Аня сидит, слушает «Евгения Онегина», думая, когда же все это закончится, переминая правую ногу. Недовольна. Когда же эта «пытка» завершилась, убежала в сад со своей ненаглядной спутницей Аннабель, шепча себе под нос, что извиняется перед ней, что долго не играла с ней." 
## 
## $`Topic 2`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     Control_ Испытуемый_27_Картинка_2.txt 
## "Молодая девушка пришла с веселой компанией на вечер в джаз-клуб, они веселились, пили и развлекались,  много смеялись, как вдруг девушку позвал ее отец, она ошарашена, она не ожидала увидеть его, она не говорила ему о своих планах на вечер, она думала о том, как он мог узнать где она или он оказался здесь случайно, отец зол на нее, он просит девушку пойти с ним домой , но она отказывается и остается на вечере с друзьями , ведь она так долго ждала его и готовилась к этому вечеру, хотела наконец-то отдохнуть и ни о чем не думать, когда она вернется домой ей будет стыдно перед отцом, он не будет ее ругать, они поговорят, поужинают и разойдутся при своим комнатам отдыхать\n " 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      Control_Испытуемый_10_Картинка_1.txt 
##                                               "Так ну эта ситуация где-то около кафе наверное и женщины с мужчиной скорее всего размышляет о том пойти куда-то или нет мужчина настаивает на то чтобы пойти например в другое место а женщина уточняет нужно ли это им или нет у него а отогнуты губа как будто бы небольшой раздражение потому что он хочет чтобы было так как он хочет женщина отчасти не понимает его но хочет наверно переубедить и направить наверное путь вот но скорее всего они в итоге пойдут туда куда хочет мужчина до этого все было хорошо они просто развлекались в том кафе у которого стоят и женщина чувствует непонимание но принимает мужчина просто делает как хочет" 
## 
## $`Topic 3`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        Control_Испытуемый_14_Картинка_1.txt 
## "Эта небольшая история о самой обычной семье. О семье, в которой все прекрасно и все как у всех: сильный и работящий муж и красивая и хозяйственная жена. Однако достаточно ли этого для счастливой семейной жизни? Жена целыми днями готовит и убирается, постоянно ухаживает за собой, делает красивые прически и макияж, выходит на улицу «по делам» только чтобы соседи лишний раз убедились, какая она «красавица». Муж сутками работает на заводе, устает как собака, а домой приходит просто чтобы как следует выспаться. Все в округе знают его как очень трудолюбивого мужчину, который каждую неделю радует свои «любимую красавицу жену» каким ни будь подарком. На прошлой неделе он подарил ей прекрасное красное платье, а до этого золотые сережки, которые случайным образом идеально подходят к новому платью. Все соседи восхищаются ими, называя «эталоном семейной пары». Но счастливы ли эти люди? На деле же, жена уже год упрашивает мужа завести ребенка, ведь все говорят, что «давно уже пора, вы так долго вместе, а детей до сих пор нет». Муж всеми силами противится этому, он не готов пока воспитывать детей, так ещё и выслуживать детский плач по ночам. Он устал постоянно выслушивать от жены после работы, что еще ему нужно сделать, чтобы о их семье не переставали говорить, как об «эталоне семейной пары». Он просто устал… Устал от тяжелой работы, устал от постоянных упреков от жены, устал соответствовать представлениям других людей… Однако бороться он не готов… Намного легче просто игнорировать ситуацию и забываться после работы в алкоголе… намного легче просто выполнять все требования супруги, просто чтобы она от него отстала… Сколько ещё эта «идеальная семейная пара» будет существовать никто не знает." 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       Clinical_Испытуемый_20_Картинка_3.txt 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               "На этой картинке я вижу няню и её подопечную девочку лет 10 на её руках лежит кукла указывает, что это куклы, тк небрежно держит её девочка. Если бы что то случилось с ребёнком лица окружающих людей были бы совсем другие, ребёнок бы плакал и это возможно был бы отражено на лице как раздражение или обеспокоенности или что-то вроде того но лица людей на картинках спокойные девочка немного отвлеченная смотрит в сторону няню возможно говорит ей о том как следует ухаживать за ребёнком и видно девочки это наскучило но няня или гувернантка старается хорошо выполнять свои обязанности не обращать внимания там на эмоции девочки. До этой ситуации возможно девочка играла с куклой, потревожила няню. В будущем эта девочка будет матерью и возможно отношение к ребёнку будет не таким же. Вот после я подозреваю что девочка пойдет просто в комнату отложит игрушку и начнет играть в другие куклы или примерять наряды. Няня продолжит читать книгу, которую я вижу вот у неё в руках" 
## 
## $`Topic 4`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               Control_Испытуемый_13_Картинка_1.txt 
## "Так ну на этой фотографии вижу мужчину который смотрит куда-то в сторону и как будто немножечко отстраняется от диалога и контакт вижу женщину которая активно идёт на контакт ищет его зритель ну взгляд вот и видимо хочет всё-таки выйти на какой-то диалог и вижу ещё улыбающийся женщину на заднем плане вот улыбку у неё как мне кажется не очень добрая вот в общем это какая-то такая ситуация мне кажется тоже конфликтная скорее всего ей предшествовало опять же какой-то недопонимание вот возможно мужчина повёл себя не так как ожидала вот первое вот это женщина вот но по её лицу можно сказать что ей важны отношения с этим мужчиной и она с пониманием как-то относится к произошедшие этим ситуации и в будущем я думаю что если мужчина тоже захочет пойти на диалог то есть ситуацию можно разрешить мирно вот по поводу эмоций ну ещё такая некая отстраненность от этой ситуации возможно пока что желание избежать разговоров о ней ну желание куда-то уйти у женщины наоборот такая ситуация внимание такого желания выяснить что происходит так разобраться довольно конструктивное вот углу женщины на заднем плане такой немножечко зла родства есть какое-то даже ехидно сть не знаю ну по поводу мысли опять же они тоже упирается вот в чувства то что мужчина хочет пока что избежать выяснение отношений женщина хочет выяснить отношения и вот эта женщина просто испытывает радость какое-то удовлетворение" 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               Control_Испытуемый_30_Картинка_1.txt 
##                                                                                                                              "«В общем я вижу на картинке двух молодых людей, которые похожи чем-то друг на друга. У них похожие черты. Возможно, это пара влюбленных молодых людей, но судя по тому, что на заднем плане женщины сидит, вроде, как даже в белье или в ночнушке она вот... Э-э, то, возможно, это какой-то отель или какой-то эскорт-сервис. И, возможно, ситуации предшествовала то, что… Ээ… мужчина зашёл в подобное заведение, либо там вот это его знакомая женщина, либо она просто ему как-то особенно понравилась, и он не мог воспринимать ее обезличено. То есть, не мог её как Ээ…  да эскортницу воспринимать и… Ээ… у них, видимо завязался какой-то диалог. Он решил уйти, потому что решил уйти от этой ситуации. А-а, видит женщина пошла за ним, видимо, чтобы его удержать поговорить типа: «Стойте, куда вы?». Вот в настоящем как раз эта ситуация и показана. Она пытается его остановить поговорить с ним, пойти на диалог. Он отворачивается, избегает. А он в этой ситуации не хочет идти на контакт. Я думаю, что следующим шагом будет, что он всё-таки повернется что-нибудь ей ответить, скажет, либо - «Нет, извините. Я пошёл», - либо у них всё-таки завяжется диалог. И он ей объяснит, что вот: «Вы мне там кого-то напоминаете» или «Я просто не готов сейчас. Мне некомфортно. Я пошел домой»." 
## 
## $`Topic 5`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              Control_Испытуемый_16_Картинка_1.txt 
## "Так, ну тут какой-то сомнительный мужчина… Чисто первая версия мема, где там мужчина оборачивается на женщину рядом со 2 женщиной. Наверное, так...Что у нас сейчас? Мне кажется, у нее был какой то, женщина задала какой то каверзный вопрос, такой, про его работу, отношения или что-то такое, и он явно что-то знает, где-то врал, пытался где-то скрыть, а сейчас она задала прямой вопрос такой, и он пытается понять, он думает о том, как ему соврать, как ему скрыть, как… не рассказать и сделать лучше, а женщина пытается, ну, она спокойнее, думаю, хоть она может быть расстроена, но она думает… но из-за того, что она уже знает ответ, она такая.. напряженно расслаблена, она пытается в него вглядеться, надавить ему на совесть, чтобы он признался, при этом сама очень крепко держится и дает ему пока возможность самому все рассказать, вот… А мужчина явно этого делать не хочет, ну вот в прошлом, собственно, и был какой то диалог между ними, а вранье, возможно, в прошлом она что-то скрывала, лично об этом не знала, а случайно от каких то других, например, узнала… И вот, в будущем, ну, либо она его додавит и он ей признается, и она, наверное, расплачется и расстроится, либо он найдет способ, как так соврать, чтобы она в этом переубедить, что может она неправильно поняла других людей, которые там рассказали правду… Ну как будто как-то так." 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              Clinical_Испытуемый_6_Картинка_2.txt 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  "Тут изображена женщина она будто изумлена, и мужчина у него очень настойчивый взгляд. Будто он на нее давит. Мне кажется, что он знает, что происходило прошлой ночью. У соседей, назовем их «Гольцман», он говорит: «Вас ничего не смущает?» мне кажется вам повезло, что я попался на вашем пути, я, который знает, как решить данную проблему, чтобы об этом никто не узнал, в том числе ваш муж. Она чувствует изумление, испуг, но естественно согласится на авантюру, у нее нет выхода. Он протягивает ей руку, она испуганно дает ему свою и они уходят" 
## 
## $`Topic 6`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        Control_Испытуемый_10_Картинка_3.txt 
## "Так на фотографии изображено две девушки одна скорее всего горничная и у неё в руках книга другая сидит с ребёнком и скорее всего это ситуация может быть обучение девочки с ребёнком ну скорее девушки вот горничная как преподаватель читает что девушка вроде заинтересована так что с ребёнком и я направлю ее внимание больше направлено в другую сторону в окно наверное на слушает но не то чтобы я хотелось этого горничная увлечена тем что делает и иногда она наверное поглядывает на ребёнка и на девушку чтобы понимать так скорее всего в будущем они просто разойдутся каждый по своим делам вот ребенок спокоен ему приятен тон горничной до этого они занимались обыденными делами и расписанию обучение" 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         Control_Испытуемый_7_Картинка_3.txt 
## "Так на фотографии изображены две девушки одна скорее всего горничная и у неё в руках книга другая сидит с ребёнком и скорее всего это ситуация может быть обучение девочки с ребёнком ну скорее девушки вот горничная как преподаватель читает что девушка вроде заинтересована так что с ребёнком и я направлю ее внимание больше направлено в другую сторону в окно наверное на слушает но не то чтобы я хотелось этого горничная увлечена тем что делает и иногда она наверное поглядывает на ребёнка и на девушку чтобы понимать так скорее всего в будущем они просто разойдутся каждый по своим делам вот ребенок спокоен ему приятен тон горничной до этого они занимались обыденными делами и расписанию обучение" 
## 
## $`Topic 7`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                 Clinical_Испытуемый_16_Картинка_2.txt 
## "Девушка сидела отдыхала её какой-то мужик напугал сигарой невкусно пахнет запах сигарет ей не нравится она ему говорит мужчина отойдите мужчине это не нравится ведь он такой думает какая же она красивая я хочу быть рядом вот сейчас в данный момент они переглядываются и думают о разном совершенно вот далее девушка просто встанет и уйдёт а мужчина сядет и будет думать что же с ним не так а не так было сигарета потому что к женщинам не подходят с сигаретами в зубах " 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                  Clinical_Испытуемый_7_Картинка_2.txt 
##                                                       "Сидела женщина отдыхала. Женщина напугана, испугалась флирта, мужчина агрессивно флиртует, будто бандит. Она думает, что ее пугает внешний вид, манера знакомства. В будущем она встанет и уйдет, она интеллигентная, откажет ему. А мужчине женщина понравилась, хочет познакомиться, с трубкой идти вообще-то неуважительно. Он раздосадован, так как она уйдет, а он привык получать то, что хочет. Он плохой она хорошая." 
## 
## $`Topic 8`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    Control_Испытуемый_14_Картинка_3.txt 
## "Девочка весело играла роль заботливой мамы, кормила, играла и пеленала свою дочку-куклу. Девочке очень нравилась эта игра, она могла часами в нее играть. Однако, на этот раз веселье быстро закончилось, так как в игру вступила непосредственно самая, что ни на есть, настоящая мама, мама этой девочки. Она быстро перечислила все ошибки «в воспитании» этой игрушки, больше всего ее не устроило, как запеленали «бедную» куклу. Мама сказала, что дочь неправильно играет и решила показать, как нужно все делать. Но девочка не понимала, «как можно играть неправильно?», «почему в игре, где, она задаёт правила, она должна слушать кого-то другого?». Девочка просто отвернулась от матери, показывая всем своим видом, что она не хочет слушать ее замечания. Мать лишь снисходительно вздохнула и ушла дальше заниматься своими делами." 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    Control_Испытуемый_26_Картинка_3.txt 
##                                                                                                                                                                                                                      "Девочке вообще не очень интересно, что ей там читают… Но это не родительница, я думаю, это просто нянечка девочки. У них нормальные отношения, девочку не ругает няня, потому что у нее нет авторитета… Она просто нянечка, девочка в своих мыслях, думает, что хочет во двор, думает, что ей не нравится, что ее оставляют с няней, ей хотелось бы… Она здорова, у нее все хорошо, эта няня как репетиторство, что-то дополнительное, она хотела бы провести время в другом месте с другими делами… 15 минут до конца занятия, и она побежит со своими подружками играть с куклами… Но у нее нормальные отношения с родителями." 
## 
## $`Topic 9`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        Clinical_Испытуемый_11_Картинка_1.txt 
##                                                                              "Супружеская пара. Девушка пытается его удержать. У него взгляд странный, будто его женщина переспала с другим мужчиной. Теперь двигается в его сторону, чтобы навредить. Вторая девушка пытается его задержать, успокоить, чувствует ответственность за мужчину. А он чувствует тревогу, а думает, наверное, о желании избавиться от тревоги. В прошлом эта пара сидели в кафе, у женщины случился конфликт с другим мужчиной, а он решил ее защитить. В будущем у них все придет в норму, не случится ничего такого, что нельзя было бы изменить, я надеюсь." 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        Clinical_Испытуемый_15_Картинка_1.txt 
## "На этой картинке он как будто злой какой-то а она его пытается успокоить может она узнала про измену там женщина какая-то сидит вот допустим она узнала вот про измену  он пытается утвердить типа нет ты не то подумала а или нет ну пытается выяснить как будто что-то а он не хочет об этом говорить при этом он как будто хочет уйти от неё а она как будто наоборот хочет чтобы он остался таким взглядом влюблённым на него смотрит будущее да в будущем они либо помирятся либо разойдутся ну предположим что пускай они помириться лучше пускай все будет хорошо у них чтобы вот эта женщина оказалась просто какой-то левой бабой" 
## 
## $`Topic 10`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            Control_Испытуемый_25_Картинка_2.txt 
## "К некоторой красивой девушке подошел мужчина. Возможно, она сидела в каком-то общественном месте, и она его заинтересовала, и он подходит и спрашивает: “Ой, а что тут у вас?”. С таким взглядом вопросительным. А она удивлённо смотрит, потому что она не ожидала вообще, что кто-то подойдёт, она занималась своими делами. Наверное, перед этим она просто сидела одна, что-то делала. Скорее всего, после этого у них завяжется какой-то диалог. Может быть, она не захочет с ним знакомиться, а он попробует как-то задобрить ее и пофлиртовать с ней. Вот. Я думаю, он спросил бы на что это она такое смотрит там. И она сначала бы говорила: “А не ваше дело”. Я думаю, у них был бы какой-то просто флирт, Он бы как-то пытался познакомиться, а она так кокетливо бы отказывалась. И говорила, что не хочет с ним знакомиться. И в итоге, он может быть своей настойчивостью, смог бы вылить этот диалог в приятный романтический." 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            Control_Испытуемый_20_Картинка_2.txt 
##                                                                                                                                                                                                                                                                                                                                                                "Какая-то напуганная женщина. Как будто до этого она, может, переживала о чём-то, например, может быть, она собирается… ждёт, может быть, свою очередь на собеседование по работе, например. Вот и она сидит, переживает и он спрашивает что-то, что было для нее неожиданностью. Или может он сказал ей что-то… обескураживающее или… что-то предположил, что она, ну, скорее да, скорее, напуганная, не знаю. После того, как была какая-то разовая фраза, которая её как-то смутила, она потом, например, ну, ничего не ответила мужчине и продолжила ждать своей очереди\n " 
## 
## $`Topic 11`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              Control_Испытуемый_11_Картинка_2.txt 
##                                                                                            "Что сейчас происходит, удивление, конфликт, либо момент, который может перерасти в конфликт между этой парой. В отношении женщины ситуация возникла, неожиданно судя по ее выражению лица и позе. Скорее до этого она сидела в своих мыслях и обернулась на мужчину, который ее окликнули, пришел к ней за чем-то. В будущем он останется стоять и продолжит разговор, либо сядет и начнет говорить на личную тему. Девушка выглядит растерянной, несколько потерянно, немного такой раздраженной. Думаю, она злится, что потревожили ее, но приняла решение поговорить на привлечение внимания и разрешить ситуацию" 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              Control_Испытуемый_10_Картинка_2.txt 
## "Эта ситуация когда мужчина подошел к женщине чтобы что-то узнать девушка слушает его внимательно но как будто не понимаешь что ей что ему нужно для неё вот у мужчины интересные взгляд он смотрит девушки прямо в глаза и скорее всего он чувствует как вы свободу в данной ситуации а девушка девушка наверное потом будет постепенно понимать может быть что ей что мужчины хотел от неё и скорее всего она разрешит эту ситуацию в свою пользу и ничего плохого или какого-то неприятного не случится до этого они просто сидели по разным местам точнее девушка сидела где-то допустим в кафе а мужчина неожиданно появился в её поле зрения вот может быть он просто спросил её изначально как у вас дела" 
## 
## $`Topic 12`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        Control_Испытуемый_22_Картинка_1.txt 
## "На картине изображены молодая девушка и мужчина. Они сидят в каком-то помещении, скорее всего, это квартира. Сзади мы видим плакат женщины в чулках. Какая-то прям американская мечта. А…девушка, как будто бы удерживает мужчину, пытается что-то ему сказать, но он уже не хочет слушать. Он настроен очень решительно. Мне кажется, что он готовится уйти. Не похоже, чтобы между ними произошла какая-то ссора, но я думаю, что мог произойти какой-то конфликт… или что такое, что мужчина теперь не хочет разговаривать и хочет избежать этого диалога. Но девушка его явно собирается, но сначала видно, что она пытается его удержать мягкой силой, но мне кажется, что дальше она перейдет к более решительным действиям и попытается его уже более так авторитарно удержать. Но мужчина тоже настроен решительно, у него глаза, прямо он смотрит куда-то, наверное, в сторону выхода. Я думаю, что после этого сюжета все-таки ему удастся уйти. А…девушка смотрит на него так…умоляюще, но в то же время немного снисходительно. Она явно его о чем-то просит, пока не очень настойчиво, но мне кажется, что в будущем это может перейти к таким уже более настойчивым требованием. А мужчина, как я уже сказала, настроен очень решительно на какой-то свой поступок, скорее всего, он хочет уйти от этой девушки, по крайней мере, в настоящий момент. Что они думают…Девушка думает, что бы еще такого применить, какие есть свои уловки или что такого сказать, чтобы он остался, но мужчина ничего не хочет слушать. Он думает только об одном: как уйти, избежать того диалога, который, наверное, должен наступить в ближайшем будущем." 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        Control_Испытуемый_28_Картинка_1.txt 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    "Здесь женщина и мужчина. Мужчина уходит на работу, а женщина не хочет, чтобы он ходил на работу, и такая “нет, дорогой, останься со мной, пожалуйста.” Вот мужик такой “боже, как же она достала”. А женщина хочет удержать мужчину дома, а он такой “нет, все. Я пошел на работу, пока, до свидос”. Я не увидела, там сзади еще одна дама. Все, я провалила этот тест. Ну все, это тогда жена, муж и на заднем плане любовница.  Стандартная ситуация любовного треугольника. Муж пытается отвертеться от жены. Она ему такая “вот ты дурак, как ты мог мне изменить”. А он такой “прощай. Мы разводимся. Ты мне больше не нужна”. Я думаю, что жена подаст на развод, они разведутся. А этот муж останется с идиоткой любовницей, потому что любовницы все идиотки. " 
## 
## $`Topic 13`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       Control_Испытуемый_19_Картинка_3.txt 
## "На картине, мне кажется, изображены мать дочь ещё один совсем маленький ребёнок мать попросила дочку посидеть с младенцем. Но девочки это не очень интересно потому что у неё есть какие-то свои хотели она еще сама маленькая и доверили ребёнка поэтому она как-то неаккуратно держит этого младенца. Матери, наверное, обидно что её старшая дочь как-то безучастна. А старшая дочь думает о том, что она хочет пойти там поиграть думать о каких-то своих нуждах в силу детской такой эгоцентричности. Да до этого мать поняла, что ей нужно куда-то уйти из дома поэтому попросила свою дочь помочь девочка в этот момент была чем-то увлечена после этой истории спустя какие-то года точка повзрослеет и поймет будет питать какие-то более тёплые чувства к своему младшему сестре или брату и станет заботливее" 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       Clinical_Испытуемый_9_Картинка_3.txt 
##                                                                                                                                                                                                              "Две девушки на диване, одна держит ребенка, он вот-вот выпадет из рук. Та, что держит не заинтересована в ребенке, а другая пытается ей сказать, что он сейчас упадет. Старшая сестра держит ребенка без желания, а мать хочет скорее забрать его иначе он упадет. Девочка хочет сбежать от ребенка. Мать думает «Зачем же я дала ей ребенка подержать, надо скорее забрать, чтоб она не убила его», девочка думает «Надо скорее сбежать». Девочка довольно холодно с антипатией к ребенку, не заинтересована. Женщина переживает за ребенка. Никто на этом портрете не счастлив, все в своих переживаниях."

7 тем модель

Model.stm_7 <- stm(DFM2stm$documents, DFM2stm$vocab
                 , K = 7
                 , data = DFM2stm$meta
                 , init.type = "Spectral"
                 , seed = 9999)
## Beginning Spectral Initialization 
##   Calculating the gram matrix...
##   Finding anchor words...
##      .......
##   Recovering initialization...
##      .....
## Initialization complete.
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 1 (approx. per word bound = -5.711) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 2 (approx. per word bound = -5.360, relative change = 6.147e-02) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 3 (approx. per word bound = -5.281, relative change = 1.486e-02) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 4 (approx. per word bound = -5.260, relative change = 3.992e-03) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 5 (approx. per word bound = -5.253, relative change = 1.328e-03) 
## Topic 1: дочь, ребенок, мать, мама, хотеть 
##  Topic 2: подходить, думать, сидеть, мочь, познакомиться 
##  Topic 3: мама, няня, кукла, жена, играть 
##  Topic 4: ситуация, хотеть, думать, пойти, уходить 
##  Topic 5: знать, мочь, сказать, удивлять, пытаться 
##  Topic 6: хотеть, пытаться, мочь, казаться, ребенок 
##  Topic 7: думать, ребенок, сидеть, рука, смотреть 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 6 (approx. per word bound = -5.249, relative change = 6.379e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 7 (approx. per word bound = -5.246, relative change = 5.555e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 8 (approx. per word bound = -5.243, relative change = 6.815e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 9 (approx. per word bound = -5.240, relative change = 6.092e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 10 (approx. per word bound = -5.237, relative change = 4.107e-04) 
## Topic 1: дочь, ребенок, мама, мать, хотеть 
##  Topic 2: подходить, думать, сидеть, мочь, познакомиться 
##  Topic 3: мама, няня, жена, кукла, играть 
##  Topic 4: ситуация, хотеть, думать, пойти, уходить 
##  Topic 5: знать, мочь, сказать, удивлять, пытаться 
##  Topic 6: пытаться, хотеть, казаться, уходить, мочь 
##  Topic 7: думать, ребенок, сидеть, рука, няня 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 11 (approx. per word bound = -5.236, relative change = 3.705e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 12 (approx. per word bound = -5.234, relative change = 3.812e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 13 (approx. per word bound = -5.231, relative change = 4.099e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 14 (approx. per word bound = -5.229, relative change = 3.972e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 15 (approx. per word bound = -5.227, relative change = 4.034e-04) 
## Topic 1: дочь, мама, ребенок, мать, хотеть 
##  Topic 2: подходить, думать, сидеть, мочь, познакомиться 
##  Topic 3: жена, няня, кукла, играть, мама 
##  Topic 4: ситуация, хотеть, думать, пойти, уходить 
##  Topic 5: знать, мочь, сказать, удивлять, пытаться 
##  Topic 6: пытаться, хотеть, уходить, казаться, мочь 
##  Topic 7: ребенок, думать, рука, сидеть, няня 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 16 (approx. per word bound = -5.225, relative change = 3.431e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 17 (approx. per word bound = -5.224, relative change = 2.457e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 18 (approx. per word bound = -5.223, relative change = 2.155e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 19 (approx. per word bound = -5.222, relative change = 1.531e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 20 (approx. per word bound = -5.222, relative change = 1.231e-04) 
## Topic 1: мама, дочь, ребенок, мать, хотеть 
##  Topic 2: подходить, думать, сидеть, познакомиться, мочь 
##  Topic 3: жена, няня, кукла, играть, муж 
##  Topic 4: ситуация, хотеть, думать, пойти, уходить 
##  Topic 5: знать, мочь, сказать, удивлять, пытаться 
##  Topic 6: пытаться, уходить, хотеть, мочь, казаться 
##  Topic 7: ребенок, думать, рука, сидеть, няня 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 21 (approx. per word bound = -5.221, relative change = 1.247e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 22 (approx. per word bound = -5.220, relative change = 1.309e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 23 (approx. per word bound = -5.219, relative change = 1.482e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 24 (approx. per word bound = -5.219, relative change = 1.714e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 25 (approx. per word bound = -5.218, relative change = 1.723e-04) 
## Topic 1: мама, дочь, ребенок, мать, хотеть 
##  Topic 2: подходить, думать, сидеть, познакомиться, мочь 
##  Topic 3: жена, няня, играть, кукла, муж 
##  Topic 4: ситуация, хотеть, думать, пойти, уходить 
##  Topic 5: знать, мочь, сказать, удивлять, пытаться 
##  Topic 6: пытаться, мочь, уходить, хотеть, казаться 
##  Topic 7: ребенок, думать, рука, сидеть, няня 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 26 (approx. per word bound = -5.217, relative change = 1.803e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 27 (approx. per word bound = -5.216, relative change = 1.934e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 28 (approx. per word bound = -5.215, relative change = 1.650e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 29 (approx. per word bound = -5.214, relative change = 1.486e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 30 (approx. per word bound = -5.213, relative change = 1.848e-04) 
## Topic 1: мама, дочь, ребенок, мать, хотеть 
##  Topic 2: подходить, думать, сидеть, познакомиться, мочь 
##  Topic 3: жена, няня, играть, кукла, муж 
##  Topic 4: ситуация, хотеть, думать, пойти, уходить 
##  Topic 5: знать, мочь, сказать, пытаться, удивлять 
##  Topic 6: пытаться, мочь, уходить, хотеть, казаться 
##  Topic 7: ребенок, думать, рука, сидеть, няня 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 31 (approx. per word bound = -5.212, relative change = 1.675e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 32 (approx. per word bound = -5.212, relative change = 1.308e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 33 (approx. per word bound = -5.211, relative change = 1.539e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 34 (approx. per word bound = -5.210, relative change = 2.071e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 35 (approx. per word bound = -5.208, relative change = 2.706e-04) 
## Topic 1: мама, дочь, ребенок, мать, хотеть 
##  Topic 2: подходить, думать, сидеть, удивлять, познакомиться 
##  Topic 3: жена, няня, играть, кукла, муж 
##  Topic 4: ситуация, хотеть, думать, пойти, уходить 
##  Topic 5: знать, мочь, сказать, пытаться, сидеть 
##  Topic 6: пытаться, мочь, уходить, хотеть, казаться 
##  Topic 7: ребенок, рука, думать, сидеть, читать 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 36 (approx. per word bound = -5.207, relative change = 2.693e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 37 (approx. per word bound = -5.206, relative change = 2.272e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 38 (approx. per word bound = -5.204, relative change = 2.389e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 39 (approx. per word bound = -5.203, relative change = 2.695e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 40 (approx. per word bound = -5.202, relative change = 1.550e-04) 
## Topic 1: мама, дочь, ребенок, мать, хотеть 
##  Topic 2: подходить, думать, сидеть, удивлять, познакомиться 
##  Topic 3: жена, няня, играть, кукла, муж 
##  Topic 4: ситуация, хотеть, думать, пойти, уходить 
##  Topic 5: знать, мочь, сказать, пытаться, сидеть 
##  Topic 6: пытаться, мочь, уходить, хотеть, казаться 
##  Topic 7: ребенок, рука, думать, сидеть, читать 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 41 (approx. per word bound = -5.202, relative change = 1.126e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 42 (approx. per word bound = -5.201, relative change = 9.355e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 43 (approx. per word bound = -5.201, relative change = 6.109e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 44 (approx. per word bound = -5.201, relative change = 5.326e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 45 (approx. per word bound = -5.200, relative change = 4.990e-05) 
## Topic 1: мама, дочь, ребенок, мать, хотеть 
##  Topic 2: подходить, думать, сидеть, удивлять, познакомиться 
##  Topic 3: жена, няня, играть, кукла, муж 
##  Topic 4: ситуация, хотеть, пойти, думать, человек 
##  Topic 5: мочь, знать, сказать, пытаться, сидеть 
##  Topic 6: пытаться, уходить, мочь, хотеть, казаться 
##  Topic 7: ребенок, рука, думать, сидеть, читать 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 46 (approx. per word bound = -5.200, relative change = 4.330e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 47 (approx. per word bound = -5.200, relative change = 3.653e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 48 (approx. per word bound = -5.200, relative change = 3.140e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 49 (approx. per word bound = -5.200, relative change = 3.552e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 50 (approx. per word bound = -5.199, relative change = 5.176e-05) 
## Topic 1: мама, дочь, ребенок, мать, хотеть 
##  Topic 2: подходить, думать, сидеть, удивлять, познакомиться 
##  Topic 3: жена, няня, играть, муж, кукла 
##  Topic 4: ситуация, хотеть, пойти, думать, человек 
##  Topic 5: мочь, знать, сказать, пытаться, делать 
##  Topic 6: пытаться, уходить, мочь, хотеть, казаться 
##  Topic 7: ребенок, рука, думать, сидеть, няня 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 51 (approx. per word bound = -5.199, relative change = 6.164e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 52 (approx. per word bound = -5.199, relative change = 6.130e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 53 (approx. per word bound = -5.198, relative change = 6.391e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 54 (approx. per word bound = -5.198, relative change = 8.702e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 55 (approx. per word bound = -5.197, relative change = 1.342e-04) 
## Topic 1: мама, дочь, ребенок, мать, хотеть 
##  Topic 2: подходить, думать, сидеть, удивлять, познакомиться 
##  Topic 3: жена, няня, муж, играть, кукла 
##  Topic 4: ситуация, хотеть, пойти, думать, человек 
##  Topic 5: мочь, знать, сказать, пытаться, делать 
##  Topic 6: уходить, пытаться, мочь, хотеть, казаться 
##  Topic 7: ребенок, рука, думать, сидеть, няня 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 56 (approx. per word bound = -5.196, relative change = 1.645e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 57 (approx. per word bound = -5.196, relative change = 1.460e-04) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 58 (approx. per word bound = -5.195, relative change = 8.213e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 59 (approx. per word bound = -5.195, relative change = 6.412e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 60 (approx. per word bound = -5.194, relative change = 6.950e-05) 
## Topic 1: мама, дочь, ребенок, мать, хотеть 
##  Topic 2: подходить, думать, сидеть, удивлять, познакомиться 
##  Topic 3: жена, няня, муж, играть, кукла 
##  Topic 4: ситуация, хотеть, пойти, думать, человек 
##  Topic 5: мочь, знать, сказать, пытаться, делать 
##  Topic 6: уходить, пытаться, мочь, хотеть, казаться 
##  Topic 7: ребенок, рука, думать, сидеть, няня 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 61 (approx. per word bound = -5.194, relative change = 5.213e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 62 (approx. per word bound = -5.194, relative change = 4.357e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 63 (approx. per word bound = -5.194, relative change = 4.579e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 64 (approx. per word bound = -5.193, relative change = 3.719e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 65 (approx. per word bound = -5.193, relative change = 2.397e-05) 
## Topic 1: мама, дочь, ребенок, мать, хотеть 
##  Topic 2: подходить, думать, сидеть, удивлять, познакомиться 
##  Topic 3: жена, няня, муж, играть, кукла 
##  Topic 4: ситуация, хотеть, пойти, думать, человек 
##  Topic 5: мочь, знать, сказать, пытаться, делать 
##  Topic 6: уходить, пытаться, мочь, хотеть, казаться 
##  Topic 7: ребенок, рука, думать, сидеть, няня 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 66 (approx. per word bound = -5.193, relative change = 1.770e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 67 (approx. per word bound = -5.193, relative change = 1.717e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 68 (approx. per word bound = -5.193, relative change = 2.432e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 69 (approx. per word bound = -5.193, relative change = 3.330e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 70 (approx. per word bound = -5.193, relative change = 3.585e-05) 
## Topic 1: мама, дочь, ребенок, мать, хотеть 
##  Topic 2: подходить, думать, сидеть, удивлять, познакомиться 
##  Topic 3: жена, няня, муж, играть, кукла 
##  Topic 4: ситуация, хотеть, пойти, думать, человек 
##  Topic 5: мочь, знать, сказать, пытаться, делать 
##  Topic 6: уходить, пытаться, мочь, хотеть, казаться 
##  Topic 7: ребенок, рука, думать, сидеть, няня 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 71 (approx. per word bound = -5.192, relative change = 4.607e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 72 (approx. per word bound = -5.192, relative change = 7.208e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 73 (approx. per word bound = -5.192, relative change = 9.368e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 74 (approx. per word bound = -5.191, relative change = 8.384e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 75 (approx. per word bound = -5.191, relative change = 6.046e-05) 
## Topic 1: мама, дочь, ребенок, мать, хотеть 
##  Topic 2: подходить, думать, сидеть, удивлять, познакомиться 
##  Topic 3: жена, няня, муж, играть, кукла 
##  Topic 4: ситуация, хотеть, пойти, думать, человек 
##  Topic 5: мочь, знать, сказать, пытаться, делать 
##  Topic 6: уходить, пытаться, мочь, хотеть, казаться 
##  Topic 7: ребенок, рука, думать, сидеть, няня 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 76 (approx. per word bound = -5.191, relative change = 5.591e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 77 (approx. per word bound = -5.190, relative change = 5.883e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 78 (approx. per word bound = -5.190, relative change = 5.469e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 79 (approx. per word bound = -5.190, relative change = 5.593e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 80 (approx. per word bound = -5.189, relative change = 6.536e-05) 
## Topic 1: мама, дочь, ребенок, мать, хотеть 
##  Topic 2: подходить, думать, сидеть, удивлять, познакомиться 
##  Topic 3: жена, няня, муж, играть, кукла 
##  Topic 4: ситуация, хотеть, пойти, думать, человек 
##  Topic 5: мочь, знать, сказать, пытаться, делать 
##  Topic 6: уходить, пытаться, мочь, хотеть, казаться 
##  Topic 7: ребенок, рука, думать, сидеть, няня 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 81 (approx. per word bound = -5.189, relative change = 8.318e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 82 (approx. per word bound = -5.188, relative change = 7.733e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 83 (approx. per word bound = -5.188, relative change = 6.157e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 84 (approx. per word bound = -5.188, relative change = 4.925e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 85 (approx. per word bound = -5.188, relative change = 3.720e-05) 
## Topic 1: мама, дочь, ребенок, мать, хотеть 
##  Topic 2: подходить, думать, сидеть, удивлять, познакомиться 
##  Topic 3: жена, няня, муж, играть, кукла 
##  Topic 4: ситуация, хотеть, пойти, думать, человек 
##  Topic 5: мочь, знать, сказать, пытаться, делать 
##  Topic 6: уходить, пытаться, мочь, хотеть, казаться 
##  Topic 7: ребенок, рука, думать, сидеть, няня 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 86 (approx. per word bound = -5.187, relative change = 4.631e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 87 (approx. per word bound = -5.187, relative change = 7.148e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 88 (approx. per word bound = -5.187, relative change = 6.560e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 89 (approx. per word bound = -5.187, relative change = 3.941e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 90 (approx. per word bound = -5.186, relative change = 2.489e-05) 
## Topic 1: мама, дочь, ребенок, мать, хотеть 
##  Topic 2: подходить, думать, сидеть, удивлять, познакомиться 
##  Topic 3: жена, няня, муж, играть, кукла 
##  Topic 4: ситуация, хотеть, пойти, думать, человек 
##  Topic 5: мочь, знать, сказать, пытаться, друг 
##  Topic 6: уходить, пытаться, мочь, хотеть, казаться 
##  Topic 7: ребенок, рука, думать, сидеть, няня 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 91 (approx. per word bound = -5.186, relative change = 1.547e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Completing Iteration 92 (approx. per word bound = -5.186, relative change = 1.064e-05) 
## .....................................................................................................................................................................
## Completed E-Step (0 seconds). 
## Completed M-Step. 
## Model Converged

as.data.frame(t(labelTopics(Model.stm_7, n = 10)$prob))
##          V1            V2        V3          V4          V5          V6
## 1      мама     подходить      жена    ситуация        мочь     уходить
## 2      дочь        думать      няня      хотеть       знать    пытаться
## 3   ребенок        сидеть       муж       пойти     сказать        мочь
## 4      мать      удивлять    играть      думать    пытаться      хотеть
## 5    хотеть познакомиться     кукла     человек        друг    казаться
## 6   держать          дело  уставать    понимать      делать     будущее
## 7     дочка          мочь    работа      видеть      сидеть      думать
## 8    сестра     нравиться  пытаться чувствовать происходить     сказать
## 9   старший      знакомый любовница    разговор     сделать происходить
## 10 младенец        хотеть   сделать      момент      эмоция  изображать
##            V7
## 1     ребенок
## 2        рука
## 3      думать
## 4      сидеть
## 5        няня
## 6      читать
## 7    смотреть
## 8  заниматься
## 9       книга
## 10   служанка

Ключевые слова

Значимые для темы слова по разным метрикам: The function by default prints several different types of word profiles, including highest probability words and FREX words. FREX weights words by their overall frequency and how exclusive they are to the topic

Lift weights words by dividing by their frequency in other topics, therefore giving higher weight to words that appear less frequently in other topics.

FREX: are the words that are both frequent and exclusive, identifying words that distinguish topics.

FREX: Слова, которые являются частыми и уникальными для темы. Отличают от других. Lift: Слова, которые редко встречаются в других темах.

labelTopics(Model.stm_7)

## Topic 1 Top Words:
##       Highest Prob: мама, дочь, ребенок, мать, хотеть, держать, дочка 
##       FREX: дочь, дочка, младенец, мать, младший, мама, брат 
##       Lift: брат, дочь, дочка, взять, задолбать?_v, интересоваться, капризничать 
##       Score: дочь, мама, мать, дочка, ребенок, сестра, старший 
## Topic 2 Top Words:
##       Highest Prob: подходить, думать, сидеть, удивлять, познакомиться, дело, мочь 
##       FREX: знакомый, отец, познакомиться, подходить, удивлять, отдыхать, знакомство 
##       Lift: возлюбленный, заканчивать, знакомство, знакомый, настойчивость, обижаться, отвлекать 
##       Score: удивлять, подходить, познакомиться, возлюбленный, знакомый, сигарета, знакомство 
## Topic 3 Top Words:
##       Highest Prob: жена, няня, муж, играть, кукла, уставать, работа 
##       FREX: жена, любовница, выполнять, муж, уставать, играть, няня 
##       Lift: жена, выполнять, замечание, любовница, мир, переставать, плакать 
##       Score: жена, считать, муж, няня, любовница, кукла, играть 
## Topic 4 Top Words:
##       Highest Prob: ситуация, хотеть, пойти, думать, человек, понимать, видеть 
##       FREX: ситуация, искать, разговор, глаз, разрешать, решение, пойти 
##       Lift: бояться, влюбленный, вмешиваться, выяснять, губа, зрение, искать 
##       Score: бояться, искать, разрешать, кафе, отель, решение, непонимание 
## Topic 5 Top Words:
##       Highest Prob: мочь, знать, сказать, пытаться, друг, делать, сидеть 
##       FREX: знать, агрессия, драка, начальник, сказать, эмоция, прошлое 
##       Lift: агрессия, волос, драка, испуг, надавливать, напряженный, начальник 
##       Score: начальник, попадаться, знать, партнер, драка, испуг, трогать 
## Topic 6 Top Words:
##       Highest Prob: уходить, пытаться, мочь, хотеть, казаться, будущее, думать 
##       FREX: ссора, уходить, злиться, успокаивать, казаться, внимание, горничная 
##       Lift: безразличный, бросать, вина, виноватый, избавляться, квартира, любовь 
##       Score: любовь, горничная, ссора, настраивать, фон, злой, успокаивать 
## Topic 7 Top Words:
##       Highest Prob: ребенок, рука, думать, сидеть, няня, читать, смотреть 
##       FREX: служанка, урок, рука, читать, книга, нянечка, ребенок 
##       Lift: обучение, болеть, гувернантка, домашний, занятие, книжка, научать 
##       Score: ребенок, читать, служанка, книга, раздражать, няня, нянечка

Облака тем

par(mar = c(0.5, 0.5, 0.5, 0.5))

for (i in 1:7) {
        print(paste("Тема ", i))
cloud(Model.stm_7, topic = i, scale = c(2.25,.5), max.words = 50, rot.per = 0)
}

## [1] "Тема  1"

## [1] "Тема  2"

## [1] "Тема  3"

## [1] "Тема  4"

## [1] "Тема  5"

## [1] "Тема  6"

## [1] "Тема  7"

#plot(Model.stm_7, type = "summary", text.cex = 0.5, main = "Topic shares on the corpus as a whole", xlab = "estimated share of topics")

plot(Model.stm_7, type = "summary", text.cex = 0.5, main = "Распространенность темы во всём корпусе", xlab = "доля темы")

plot(Model.stm_7, type = "summary", text.cex = 0.5, main = "Распространенность темы во всём корпусе (frex)", xlab = "доля темы"
     , labeltype = "frex")

Типичные тексты

Find.stm <- findThoughts(Model.stm_7, texts = as.character(Corpus), n = 2)

Find.stm$docs

## $`Topic 1`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       Control_Испытуемый_19_Картинка_3.txt 
## "На картине, мне кажется, изображены мать дочь ещё один совсем маленький ребёнок мать попросила дочку посидеть с младенцем. Но девочки это не очень интересно потому что у неё есть какие-то свои хотели она еще сама маленькая и доверили ребёнка поэтому она как-то неаккуратно держит этого младенца. Матери, наверное, обидно что её старшая дочь как-то безучастна. А старшая дочь думает о том, что она хочет пойти там поиграть думать о каких-то своих нуждах в силу детской такой эгоцентричности. Да до этого мать поняла, что ей нужно куда-то уйти из дома поэтому попросила свою дочь помочь девочка в этот момент была чем-то увлечена после этой истории спустя какие-то года точка повзрослеет и поймет будет питать какие-то более тёплые чувства к своему младшему сестре или брату и станет заботливее" 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                      Clinical_Испытуемый_25_Картинка_3.txt 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    "Мне кажется, что это мама с двумя детьми и старшая дочь и младенец старшая дочь не рада тому, что у неё появился младший брат или появилась младшая сестра мама просит поддержать ребёнка и как будто бы надеется на то, что старшая дочь полюбит ребенка, но по выражению старшей дочери видно, что она не хочет иметь с этим дело\n" 
## 
## $`Topic 2`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    Control_Испытуемый_30_Картинка_2.txt 
## " «Опять же сцены двух людей мужчина, видно, что старше, чем женщина на какой-то возраст, и у них происходит такая сцена взаимодействия. Я думаю, что ей предшествовало то, что женщина просто сидела, занималась своими делами, возможно, о чём-то думала. А-а, потом это заметил мужчина обратил на неё какое-то внимание. Подошёл, пытается привлечь её внимание, пытается с ней как-то повзаимодействовать. Возможно, он с ней заигрывает, потому что у него такое немножко хитрое, довольное выражение лица. Женщины испугалась, потому что к ней подошли со спины, она этого не ожидала. Даже немного приоткрыла рот, то есть, она видно, что мужчины её, скорее всего, не знакомый. Она не была готова к какому-то знакомству, взаимодействию. Нарушили её …немного личное пространство. А-а, поэтому она так реагирует. Я думаю, что следовать этой ситуации будет то, что… А-а. Она скорее всего вступит в какой-то диалог, попросит его уйти, оставить ее в покое заниматься своими делами. Либо еще один вариант, может быть, что она с ним вступит диалог и ей этот диалог покажется приятным, и они продолжат общение. Мужчина уже сядет к ней, и они будут вместе сидеть что-то делать.»" 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    Control_Испытуемый_28_Картинка_2.txt 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                  "Обстоятельства не очень понятны. Но, как вариант, девушка сидит за столом в ресторане, принимает пищу. А к ней подходит этот мужчина и такой “женщина, давайте познакомимся”. Она обескураженно на него смотрит, потому что то ли он ей не нравится, то ли еще что-то. В общем, не думаю, что она очень довольна этой встречей. Мужчина очень настойчив, потому что он так наклонился к ней и очень близко к ней подошел, а она прям так отпрянула. Мне кажется, она ему откажет, а он обидится. Мне кажется, этот мужчина не привык слышать отказы. Ему не очень понравится это.\n " 
## 
## $`Topic 3`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        Control_Испытуемый_14_Картинка_1.txt 
## "Эта небольшая история о самой обычной семье. О семье, в которой все прекрасно и все как у всех: сильный и работящий муж и красивая и хозяйственная жена. Однако достаточно ли этого для счастливой семейной жизни? Жена целыми днями готовит и убирается, постоянно ухаживает за собой, делает красивые прически и макияж, выходит на улицу «по делам» только чтобы соседи лишний раз убедились, какая она «красавица». Муж сутками работает на заводе, устает как собака, а домой приходит просто чтобы как следует выспаться. Все в округе знают его как очень трудолюбивого мужчину, который каждую неделю радует свои «любимую красавицу жену» каким ни будь подарком. На прошлой неделе он подарил ей прекрасное красное платье, а до этого золотые сережки, которые случайным образом идеально подходят к новому платью. Все соседи восхищаются ими, называя «эталоном семейной пары». Но счастливы ли эти люди? На деле же, жена уже год упрашивает мужа завести ребенка, ведь все говорят, что «давно уже пора, вы так долго вместе, а детей до сих пор нет». Муж всеми силами противится этому, он не готов пока воспитывать детей, так ещё и выслуживать детский плач по ночам. Он устал постоянно выслушивать от жены после работы, что еще ему нужно сделать, чтобы о их семье не переставали говорить, как об «эталоне семейной пары». Он просто устал… Устал от тяжелой работы, устал от постоянных упреков от жены, устал соответствовать представлениям других людей… Однако бороться он не готов… Намного легче просто игнорировать ситуацию и забываться после работы в алкоголе… намного легче просто выполнять все требования супруги, просто чтобы она от него отстала… Сколько ещё эта «идеальная семейная пара» будет существовать никто не знает." 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                       Clinical_Испытуемый_18_Картинка_1.txt 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   "Я думаю, это жена и это те самые фотографии за мгновение до это жена и она сейчас застукает своего мужа с любовницей любовница выглядит очень хитро, а муж очень взволнованно, жена озадачена. В данный момент я думаю то, что муж находился с любовницей и услышал звук открывания дверей и выбежал и вот сейчас будет большой скандал" 
## 
## $`Topic 4`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        Control_Испытуемый_10_Картинка_1.txt 
## "Так ну эта ситуация где-то около кафе наверное и женщины с мужчиной скорее всего размышляет о том пойти куда-то или нет мужчина настаивает на то чтобы пойти например в другое место а женщина уточняет нужно ли это им или нет у него а отогнуты губа как будто бы небольшой раздражение потому что он хочет чтобы было так как он хочет женщина отчасти не понимает его но хочет наверно переубедить и направить наверное путь вот но скорее всего они в итоге пойдут туда куда хочет мужчина до этого все было хорошо они просто развлекались в том кафе у которого стоят и женщина чувствует непонимание но принимает мужчина просто делает как хочет" 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                         Control_Испытуемый_7_Картинка_1.txt 
## "Так ну эта ситуация где-то около кафе наверное и женщины с мужчиной скорее всего размышляет о том пойти куда-то или нет мужчина настаивает на то чтобы пойти например в другое место а женщина уточняет нужно ли это им или нет у него а отогнуты губа как будто бы небольшой раздражение потому что он хочет чтобы было так как он хочет женщина отчасти не понимает его но хочет наверно переубедить и направить наверное путь вот но скорее всего они в итоге пойдут туда куда хочет мужчина до этого все было хорошо они просто развлекались в том кафе у которого стоят и женщина чувствует непонимание но принимает мужчина просто делает как хочет" 
## 
## $`Topic 5`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              Control_Испытуемый_17_Картинка_1.txt 
## "На ней изображена молодая пара. Девушка держит за плечо своего партнера, может быть, она его удерживает от негативных эмоций (агрессии, драки, оскорблений), успокаивает. Партнер ее не замечает, он сконцентрирован на ком-то другом, на разговоре с мужчиной, возможно. Партнер уберет ее руку и вступит в конфликт, что закончится дракой или же другой мужчина уйдет из комнаты. В оставшийся вечер пара проведёт время вместе, обсуждая прецедент, смеясь над ним или наоборот болтая на отвлеченные от конфликта темы. Сзади парня сидит девушка, может он ее защищал от другого мужчины." 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             Clinical_Испытуемый_22_Картинка_1.txt 
##     "Ну девушка, судя по всему, похожа на медсестру ее одежда очень светлая я даже не знаю, как это писать возможно это какая-то больница, потому что она светлая одежде у неё очень убраны волосы, и она как-то пытается обратиться к мужчине. Насчёт эмоций я даже не могу сказать точно мужчина однозначно не улыбается словно пытается её игнорировать она как-то то ли заинтересована то ли что-то такое. Возможно, это даже не больница они в прошлом как-то были связаны друг с другом, то есть возможно когда-то у них были отношения сейчас она пытается до него достучаться поговорить" 
## 
## $`Topic 6`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Control_Испытуемый_15_Картинка_1.txt 
##                                                                                                                                                                                                                                                                                        "Афиша есть косметики, где использую как раз таки, вот как это называется? Это кусочек или кадр фильма вот… Тяжело описать, что это… вообще не знаю… возможно у них какой-то диалог, может происходит какая-то романтика вот. Может быть, девушка пытается его остановить, удержать, почему-то… она как бы так обращается к нему: «послушай!» … Мне кажется, он просто уходит, она хочет с ним поговорить, ну а он, он просто уходит, не хочет разговаривать. Вот что будет? Не знаю, мне кажется… Мне кажется, просто разойдутся сейчас … вот …то есть я как-то не вижу особого продолжения этой картинки. Так чувство неопределённости, я испытываю немножко странное, непонятное… мне тяжело ее описать." 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                Control_Испытуемый_25_Картинка_1.txt 
## "Эта девушка и этот мужчина поругались. Он злится на нее, а она пытается сгладить конфликт, успокоить, поговорить с ним. Он же со злостью не хочет вообще с ней разговаривать, отворачивается от неё. Она его успокаивает, что-нибудь говорит вроде, “Ну, милый, ну хватит”. Вот, скорее всего, до этого, наверное, она что-то сделала не так, может быть она, например, сильно опоздала. Вот и поэтому он на неё злится, а она пытается поэтому извиниться, так как это, вроде, её вина. И, думаю, со временем он сдастся и всё-таки успокоиться. И они продолжат милое общение. Вот. Тут я думаю, что это тоже сборная и из моей жизни, и из того, что я вижу. Я, потому что тоже склонна, как бы если на меня злятся, и если я виновата, то я тоже склонна, как-то попытаться успокоить человека, сказать: “Ну ладно тебе, ну я больше так не буду делать, ничего страшного. Ну облажалась чутка”. И я прям вижу, как эта девушкой это всё произносит. Поэтому я могу себя ассоциировать с ней." 
## 
## $`Topic 7`
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              Control_Испытуемый_21_Картинка_2.txt 
## "Эта ситуация похожа на то, что девушка сидит на диване в какой-то гостевой ситуации… Не у себя дома. Встречает такого же гостя этого дома, мужчина, ну или друг какой-то… И причем она не ожидала его увидеть, у нее определенно есть какое-то удивление на ее лице, и ее наклон тела говорит о том, что она немножко даже напуганная тем, что к ней обратился этот мужчина. Возможно, он обратился к ней, чтобы предложить ей что-нибудь, там, например, выпить или закурить… Мужчина в нормальном расположении духа… Он заинтересован в общении с девушкой, он наклонился к ней поближе, девушка немного опешила. Я думаю, они просто сидели в неформально обстановке, но никак особо не контактировали, поэтому девушка так себя проявляет, но дальше я думаю ее тревога и удивления пропадет, и они с мужчиной начнут разговаривать, перекинутся парой слов. Возможно, она согласится на предложение выпить коктейль или выкурить сигарету." 
##                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              Control_Испытуемый_26_Картинка_3.txt 
##                                                                                                                                                                                                                                                                                                                "Девочке вообще не очень интересно, что ей там читают… Но это не родительница, я думаю, это просто нянечка девочки. У них нормальные отношения, девочку не ругает няня, потому что у нее нет авторитета… Она просто нянечка, девочка в своих мыслях, думает, что хочет во двор, думает, что ей не нравится, что ее оставляют с няней, ей хотелось бы… Она здорова, у нее все хорошо, эта няня как репетиторство, что-то дополнительное, она хотела бы провести время в другом месте с другими делами… 15 минут до конца занятия, и она побежит со своими подружками играть с куклами… Но у нее нормальные отношения с родителями."

Сравнение групп (13 тем)

По выборкам

modell.stm.labels_13 <- labelTopics(Model.stm_13)
modell.stm.effekt_13_S <- estimateEffect( ~ Sample, stmobj = Model.stm_13, metadata = DFM2stm$meta)
summary(modell.stm.effekt_13_S)

## 
## Call:
## estimateEffect(formula = ~Sample, stmobj = Model.stm_13, metadata = DFM2stm$meta)
## 
## 
## Topic 1:
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)
## (Intercept)    0.03452    0.02156   1.601    0.111
## SampleControl  0.02289    0.03095   0.739    0.461
## 
## 
## Topic 2:
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)  
## (Intercept)    0.04531    0.02540   1.784   0.0763 .
## SampleControl  0.03528    0.03372   1.046   0.2969  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 3:
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)    0.053608   0.022162   2.419   0.0167 *
## SampleControl -0.004982   0.030516  -0.163   0.8705  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 4:
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)  
## (Intercept)    0.05914    0.02396   2.468   0.0146 *
## SampleControl  0.02603    0.03475   0.749   0.4548  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 5:
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)  
## (Intercept)   0.056793   0.025352   2.240   0.0264 *
## SampleControl 0.009327   0.033990   0.274   0.7841  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 6:
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)  
## (Intercept)    0.05924    0.02576   2.299   0.0228 *
## SampleControl  0.03508    0.03415   1.027   0.3058  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 7:
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    0.08609    0.02549   3.377 0.000915 ***
## SampleControl -0.02398    0.03238  -0.740 0.460127    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 8:
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    0.14373    0.03155   4.556 1.02e-05 ***
## SampleControl -0.03912    0.04267  -0.917    0.361    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 9:
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    0.12163    0.02785   4.367 2.23e-05 ***
## SampleControl -0.06658    0.03621  -1.839   0.0678 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 10:
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)   
## (Intercept)   0.106515   0.033737   3.157   0.0019 **
## SampleControl 0.007453   0.044487   0.168   0.8672   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 11:
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)  
## (Intercept)    0.06183    0.02623   2.357   0.0196 *
## SampleControl  0.02089    0.03704   0.564   0.5736  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 12:
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)   
## (Intercept)   0.083883   0.026111   3.213  0.00159 **
## SampleControl 0.004081   0.038610   0.106  0.91595   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 13:
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    0.08924    0.02498   3.573 0.000465 ***
## SampleControl -0.02841    0.03338  -0.851 0.395914    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

for (i in 1:13)
{
  plot(modell.stm.effekt_13_S, "Sample", method = "pointestimate", topics = i, main = paste0(modell.stm.labels_13$prob[i,1:3], collapse = ", "), ylab = "", printlegend = F)
}

По картинкам

Чтобы посмотреть, какие темы спецефичны именно для картинока, смотрим на разделением по ним.

modell.stm.effekt_13_I <- estimateEffect( ~ Image, Model.stm_13, metadata = DFM2stm$meta)
summary(modell.stm.effekt_13_I)

## 
## Call:
## estimateEffect(formula = ~Image, stmobj = Model.stm_13, metadata = DFM2stm$meta)
## 
## 
## Topic 1:
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)
## (Intercept)     0.02076    0.02463   0.843    0.401
## Imagepicture_2  0.05883    0.03568   1.649    0.101
## Imagepicture_3  0.02209    0.03425   0.645    0.520
## 
## 
## Topic 2:
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)   
## (Intercept)     0.09200    0.02946   3.122  0.00213 **
## Imagepicture_2 -0.02986    0.04084  -0.731  0.46570   
## Imagepicture_3 -0.06103    0.03893  -1.567  0.11896   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 3:
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)     0.04958    0.02491   1.991   0.0482 *
## Imagepicture_2 -0.01062    0.03551  -0.299   0.7654  
## Imagepicture_3  0.01770    0.03611   0.490   0.6246  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 4:
## 
## Coefficients:
##                 Estimate Std. Error t value Pr(>|t|)   
## (Intercept)     0.086401   0.031345   2.756  0.00651 **
## Imagepicture_2 -0.007706   0.045250  -0.170  0.86499   
## Imagepicture_3 -0.039826   0.041890  -0.951  0.34316   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 5:
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)  
## (Intercept)    0.050702   0.027330   1.855   0.0654 .
## Imagepicture_2 0.027894   0.039800   0.701   0.4844  
## Imagepicture_3 0.001628   0.035566   0.046   0.9636  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 6:
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)   
## (Intercept)     0.10538    0.03257   3.235  0.00147 **
## Imagepicture_2 -0.05623    0.04317  -1.303  0.19451   
## Imagepicture_3 -0.03612    0.04477  -0.807  0.42093   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 7:
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)
## (Intercept)    0.051851   0.031454   1.648    0.101
## Imagepicture_2 0.065891   0.043319   1.521    0.130
## Imagepicture_3 0.001149   0.044535   0.026    0.979
## 
## 
## Topic 8:
## 
## Coefficients:
##                 Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    0.0258710  0.0292331   0.885    0.377    
## Imagepicture_2 0.0006268  0.0426134   0.015    0.988    
## Imagepicture_3 0.3051326  0.0547008   5.578 9.99e-08 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 9:
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.17285    0.03409   5.070 1.07e-06 ***
## Imagepicture_2 -0.13031    0.04416  -2.951  0.00364 ** 
## Imagepicture_3 -0.12975    0.04518  -2.872  0.00462 ** 
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 10:
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.05370    0.03283   1.636 0.103852    
## Imagepicture_2  0.18812    0.05138   3.662 0.000339 ***
## Imagepicture_3 -0.01898    0.04453  -0.426 0.670564    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 11:
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)   
## (Intercept)     0.08762    0.02962   2.959  0.00355 **
## Imagepicture_2  0.01907    0.04064   0.469  0.63961   
## Imagepicture_3 -0.05926    0.04022  -1.473  0.14258   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 12:
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.18456    0.03615   5.105 9.16e-07 ***
## Imagepicture_2 -0.13057    0.04667  -2.798 0.005774 ** 
## Imagepicture_3 -0.15835    0.04662  -3.397 0.000858 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 13:
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    0.017924   0.022425   0.799    0.425    
## Imagepicture_2 0.006139   0.032111   0.191    0.849    
## Imagepicture_3 0.156600   0.036651   4.273 3.28e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

for (i in 1:13)
{
  plot(modell.stm.effekt_13_I, "Image", method = "pointestimate", topics = i, main = paste0(modell.stm.labels_13$prob[i,1:3], collapse = ", "), ylab = "", printlegend = F)
}

По выборкам слабо различаются, по картинкам есть. Стоит попробовать совместить оба подхода.

Два фактора

modell.stm.labels_13 <- labelTopics(Model.stm_13)
modell.stm.effekt_13_SI <- estimateEffect( ~ Sample * Image, stmobj = Model.stm_13, metadata = DFM2stm$meta)
summary(modell.stm.effekt_13_SI)

## 
## Call:
## estimateEffect(formula = ~Sample * Image, stmobj = Model.stm_13, 
##     metadata = DFM2stm$meta)
## 
## 
## Topic 1:
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   0.017808   0.033287   0.535    0.593
## SampleControl                -0.002549   0.044408  -0.057    0.954
## Imagepicture_2                0.053617   0.048944   1.095    0.275
## Imagepicture_3               -0.003337   0.046066  -0.072    0.942
## SampleControl:Imagepicture_2  0.013729   0.066935   0.205    0.838
## SampleControl:Imagepicture_3  0.052327   0.065010   0.805    0.422
## 
## 
## Topic 2:
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   0.052549   0.044267   1.187    0.237
## SampleControl                 0.086649   0.063673   1.361    0.175
## Imagepicture_2               -0.001177   0.062290  -0.019    0.985
## Imagepicture_3               -0.014763   0.064954  -0.227    0.820
## SampleControl:Imagepicture_2 -0.075913   0.084406  -0.899    0.370
## SampleControl:Imagepicture_3 -0.088648   0.092558  -0.958    0.340
## 
## 
## Topic 3:
## 
## Coefficients:
##                                Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   5.025e-02  4.145e-02   1.213    0.227
## SampleControl                -4.144e-03  5.427e-02  -0.076    0.939
## Imagepicture_2                6.351e-05  5.870e-02   0.001    0.999
## Imagepicture_3                4.428e-03  5.233e-02   0.085    0.933
## SampleControl:Imagepicture_2 -8.726e-03  7.645e-02  -0.114    0.909
## SampleControl:Imagepicture_3  2.308e-02  7.540e-02   0.306    0.760
## 
## 
## Topic 4:
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   0.02933    0.04018   0.730    0.466
## SampleControl                 0.10111    0.06257   1.616    0.108
## Imagepicture_2                0.04775    0.05822   0.820    0.413
## Imagepicture_3                0.03872    0.06013   0.644    0.521
## SampleControl:Imagepicture_2 -0.08956    0.08950  -1.001    0.318
## SampleControl:Imagepicture_3 -0.12739    0.08823  -1.444    0.151
## 
## 
## Topic 5:
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)
## (Intercept)                   0.028881   0.040173   0.719    0.473
## SampleControl                 0.042496   0.056115   0.757    0.450
## Imagepicture_2                0.077403   0.059287   1.306    0.194
## Imagepicture_3                0.006277   0.054286   0.116    0.908
## SampleControl:Imagepicture_2 -0.078120   0.078540  -0.995    0.321
## SampleControl:Imagepicture_3 -0.015667   0.075953  -0.206    0.837
## 
## 
## Topic 6:
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                   0.09354    0.04500   2.078   0.0393 *
## SampleControl                 0.01404    0.06042   0.232   0.8166  
## Imagepicture_2               -0.05765    0.06395  -0.902   0.3687  
## Imagepicture_3               -0.06470    0.06064  -1.067   0.2876  
## SampleControl:Imagepicture_2  0.00923    0.08845   0.104   0.9170  
## SampleControl:Imagepicture_3  0.06551    0.08614   0.760   0.4481  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 7:
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                   0.083081   0.044219   1.879   0.0621 .
## SampleControl                -0.055548   0.059285  -0.937   0.3502  
## Imagepicture_2                0.073559   0.065422   1.124   0.2625  
## Imagepicture_3               -0.055571   0.061111  -0.909   0.3646  
## SampleControl:Imagepicture_2 -0.009673   0.089514  -0.108   0.9141  
## SampleControl:Imagepicture_3  0.093626   0.081355   1.151   0.2515  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 8:
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                   0.025575   0.042330   0.604    0.547    
## SampleControl                -0.001119   0.057136  -0.020    0.984    
## Imagepicture_2                0.004376   0.061709   0.071    0.944    
## Imagepicture_3                0.352491   0.069304   5.086 1.02e-06 ***
## SampleControl:Imagepicture_2 -0.009439   0.082144  -0.115    0.909    
## SampleControl:Imagepicture_3 -0.103559   0.094732  -1.093    0.276    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 9:
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                   0.26888    0.05982   4.495 1.33e-05 ***
## SampleControl                -0.17189    0.07693  -2.234  0.02685 *  
## Imagepicture_2               -0.21454    0.07814  -2.745  0.00674 ** 
## Imagepicture_3               -0.22214    0.07255  -3.062  0.00258 ** 
## SampleControl:Imagepicture_2  0.14766    0.09777   1.510  0.13296    
## SampleControl:Imagepicture_3  0.16725    0.09793   1.708  0.08962 .  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 10:
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                   0.031794   0.045719   0.695  0.48780   
## SampleControl                 0.033412   0.064779   0.516  0.60672   
## Imagepicture_2                0.202138   0.071283   2.836  0.00517 **
## Imagepicture_3                0.005406   0.063677   0.085  0.93245   
## SampleControl:Imagepicture_2 -0.013516   0.104509  -0.129  0.89726   
## SampleControl:Imagepicture_3 -0.036350   0.087731  -0.414  0.67919   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 11:
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                   0.09682    0.04546   2.130   0.0347 *
## SampleControl                -0.01385    0.05954  -0.233   0.8164  
## Imagepicture_2               -0.02802    0.06178  -0.454   0.6507  
## Imagepicture_3               -0.07776    0.06105  -1.274   0.2046  
## SampleControl:Imagepicture_2  0.07742    0.08329   0.930   0.3540  
## SampleControl:Imagepicture_3  0.02525    0.08347   0.303   0.7626  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 12:
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                   0.19803    0.05732   3.455 0.000706 ***
## SampleControl                -0.02178    0.07457  -0.292 0.770595    
## Imagepicture_2               -0.16250    0.07051  -2.305 0.022477 *  
## Imagepicture_3               -0.18005    0.06959  -2.587 0.010572 *  
## SampleControl:Imagepicture_2  0.03939    0.09666   0.407 0.684192    
## SampleControl:Imagepicture_3  0.03380    0.09216   0.367 0.714314    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 13:
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                   0.021774   0.034870   0.624  0.53324    
## SampleControl                -0.004003   0.048097  -0.083  0.93377    
## Imagepicture_2                0.006611   0.047956   0.138  0.89052    
## Imagepicture_3                0.212493   0.060928   3.488  0.00063 ***
## SampleControl:Imagepicture_2 -0.006239   0.065331  -0.096  0.92404    
## SampleControl:Imagepicture_3 -0.090132   0.077330  -1.166  0.24554    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Сравнение групп (7 тем)

По выборкам

modell.stm.labels_7 <- labelTopics(Model.stm_7)
modell.stm.effekt_7_S <- estimateEffect( ~ Sample, stmobj = Model.stm_7, metadata = DFM2stm$meta)
summary(modell.stm.effekt_7_S)

## 
## Call:
## estimateEffect(formula = ~Sample, stmobj = Model.stm_7, metadata = DFM2stm$meta)
## 
## 
## Topic 1:
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    0.17872    0.03455   5.172 6.71e-07 ***
## SampleControl -0.07412    0.04556  -1.627    0.106    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 2:
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    0.18123    0.03527   5.138 7.85e-07 ***
## SampleControl -0.04610    0.04748  -0.971    0.333    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 3:
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    0.11083    0.02952   3.755 0.000241 ***
## SampleControl -0.01425    0.03701  -0.385 0.700639    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 4:
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)   
## (Intercept)    0.07212    0.03138   2.298   0.0228 * 
## SampleControl  0.13520    0.04438   3.046   0.0027 **
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 5:
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    0.17173    0.03568   4.813 3.36e-06 ***
## SampleControl -0.03435    0.04634  -0.741     0.46    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 6:
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    0.174405   0.035359   4.932 1.99e-06 ***
## SampleControl -0.002795   0.049767  -0.056    0.955    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 7:
## 
## Coefficients:
##               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    0.11047    0.03196   3.457 0.000698 ***
## SampleControl  0.03638    0.04310   0.844 0.399908    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

for (i in 1:7)
{
  plot(modell.stm.effekt_7_S, "Sample", method = "pointestimate", topics = i, main = paste0(modell.stm.labels_7$prob[i,1:3], collapse = ", "), ylab = "", printlegend = F)
}

По картинкам

Чтобы посмотреть, какие темы спецефичны именно для картинока, смотрим на разделением по ним.

modell.stm.effekt_7_I <- estimateEffect( ~ Image, Model.stm_7, metadata = DFM2stm$meta)
summary(modell.stm.effekt_7_I)

## 
## Call:
## estimateEffect(formula = ~Image, stmobj = Model.stm_7, metadata = DFM2stm$meta)
## 
## 
## Topic 1:
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.02974    0.03072   0.968    0.334    
## Imagepicture_2  0.01159    0.04338   0.267    0.790    
## Imagepicture_3  0.32066    0.04687   6.841 1.53e-10 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 2:
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.08165    0.03473   2.351   0.0199 *  
## Imagepicture_2  0.29422    0.05432   5.416 2.17e-07 ***
## Imagepicture_3 -0.04502    0.04697  -0.959   0.3392    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 3:
## 
## Coefficients:
##                  Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.1258324  0.0338706   3.715 0.000279 ***
## Imagepicture_2 -0.0717460  0.0451051  -1.591 0.113640    
## Imagepicture_3 -0.0006068  0.0473709  -0.013 0.989796    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 4:
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.23031    0.03777   6.097 7.63e-09 ***
## Imagepicture_2 -0.07759    0.05441  -1.426 0.155731    
## Imagepicture_3 -0.18224    0.05082  -3.586 0.000444 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 5:
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.15305    0.03936   3.889 0.000147 ***
## Imagepicture_2  0.09046    0.05639   1.604 0.110638    
## Imagepicture_3 -0.10361    0.05231  -1.980 0.049347 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 6:
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)     0.33861    0.04439   7.629 1.91e-12 ***
## Imagepicture_2 -0.25832    0.05726  -4.511 1.23e-05 ***
## Imagepicture_3 -0.26017    0.05807  -4.480 1.40e-05 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 7:
## 
## Coefficients:
##                Estimate Std. Error t value Pr(>|t|)    
## (Intercept)    0.040699   0.030234   1.346    0.180    
## Imagepicture_2 0.009487   0.042728   0.222    0.825    
## Imagepicture_3 0.271535   0.048480   5.601 8.95e-08 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

for (i in 1:7)
{
  plot(modell.stm.effekt_7_I, "Image", method = "pointestimate", topics = i, main = paste0(modell.stm.labels_7$prob[i,1:3], collapse = ", "), ylab = "", printlegend = F)
}

Два фактора

modell.stm.labels_7 <- labelTopics(Model.stm_7)
modell.stm.effekt_7_SI <- estimateEffect( ~ Sample * Image, stmobj = Model.stm_7, metadata = DFM2stm$meta)
summary(modell.stm.effekt_7_SI)

## 
## Call:
## estimateEffect(formula = ~Sample * Image, stmobj = Model.stm_7, 
##     metadata = DFM2stm$meta)
## 
## 
## Topic 1:
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                   0.038192   0.042584   0.897   0.3711    
## SampleControl                -0.016421   0.057225  -0.287   0.7745    
## Imagepicture_2               -0.009509   0.061055  -0.156   0.8764    
## Imagepicture_3                0.436905   0.077667   5.625 8.15e-08 ***
## SampleControl:Imagepicture_2  0.039330   0.082295   0.478   0.6334    
## SampleControl:Imagepicture_3 -0.241352   0.106285  -2.271   0.0245 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 2:
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                   0.09414    0.05443   1.730 0.085643 .  
## SampleControl                -0.02291    0.06895  -0.332 0.740083    
## Imagepicture_2                0.33579    0.08539   3.933 0.000125 ***
## Imagepicture_3               -0.05370    0.07378  -0.728 0.467783    
## SampleControl:Imagepicture_2 -0.08732    0.10658  -0.819 0.413828    
## SampleControl:Imagepicture_3  0.01580    0.09652   0.164 0.870137    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 3:
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                   0.16215    0.05223   3.105  0.00226 **
## SampleControl                -0.06737    0.06510  -1.035  0.30226   
## Imagepicture_2               -0.09626    0.06889  -1.397  0.16427   
## Imagepicture_3               -0.05969    0.07198  -0.829  0.40824   
## SampleControl:Imagepicture_2  0.04257    0.08555   0.498  0.61945   
## SampleControl:Imagepicture_3  0.10801    0.09315   1.160  0.24795   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 4:
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                   0.09100    0.05391   1.688 0.093384 .  
## SampleControl                 0.25279    0.07462   3.388 0.000888 ***
## Imagepicture_2                0.01887    0.07800   0.242 0.809127    
## Imagepicture_3               -0.07001    0.07088  -0.988 0.324756    
## SampleControl:Imagepicture_2 -0.15701    0.10190  -1.541 0.125345    
## SampleControl:Imagepicture_3 -0.20355    0.09986  -2.038 0.043172 *  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 5:
## 
## Coefficients:
##                               Estimate Std. Error t value Pr(>|t|)   
## (Intercept)                   0.164430   0.058085   2.831  0.00524 **
## SampleControl                -0.006482   0.077580  -0.084  0.93351   
## Imagepicture_2                0.103464   0.085907   1.204  0.23024   
## Imagepicture_3               -0.096992   0.077401  -1.253  0.21201   
## SampleControl:Imagepicture_2 -0.042559   0.116321  -0.366  0.71495   
## SampleControl:Imagepicture_3 -0.018366   0.104922  -0.175  0.86126   
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 6:
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)    
## (Intercept)                   0.39797    0.05946   6.693 3.54e-10 ***
## SampleControl                -0.11503    0.08448  -1.362    0.175    
## Imagepicture_2               -0.33678    0.08057  -4.180 4.80e-05 ***
## Imagepicture_3               -0.35069    0.07572  -4.632 7.51e-06 ***
## SampleControl:Imagepicture_2  0.15614    0.10932   1.428    0.155    
## SampleControl:Imagepicture_3  0.17712    0.11030   1.606    0.110    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## 
## Topic 7:
## 
## Coefficients:
##                              Estimate Std. Error t value Pr(>|t|)  
## (Intercept)                   0.05001    0.04575   1.093   0.2760  
## SampleControl                -0.02288    0.06128  -0.373   0.7093  
## Imagepicture_2               -0.01329    0.06617  -0.201   0.8410  
## Imagepicture_3                0.19452    0.07549   2.577   0.0109 *
## SampleControl:Imagepicture_2  0.04799    0.08863   0.541   0.5889  
## SampleControl:Imagepicture_3  0.16268    0.10449   1.557   0.1215  
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

…