Plots semantic coherence and exclusivity for each topic. Does not support models with content covariates.
topicQuality(
model,
documents,
xlab = "Semantic Coherence",
ylab = "Exclusivity",
labels = 1:ncol(model$theta),
M = 10,
...
)Output from stm, or a selected model from selectModel.
The documents (see stm for format).
Character string that is x axis title. This should be semantic coherence.
Character string that is y axis title. This should be exclusivity.
Vector of number corresponding to topic numbers.
Number of words to use in semantic coherence and exclusivity calculations
Other plotting parameters from igraph.
Each model has semantic coherence and exclusivity values associated with each topic. This function plots these values and labels each with its topic number.
if (FALSE) {
#Semantic Coherence calculations require the original documents so we need
#to reconstruct them here.
temp<-textProcessor(documents=gadarian$open.ended.response,metadata=gadarian)
meta<-temp$meta
vocab<-temp$vocab
docs<-temp$documents
out <- prepDocuments(docs, vocab, meta)
docs<-out$documents
vocab<-out$vocab
meta <-out$meta
topicQuality(model=gadarianFit, documents=docs)
}
Run the code above in your browser using DataLab