network showing top terms of topics
topicNW1(betaDF, topn)
betaDF | topic~term probability data.frame |
---|---|
topn | number of top terms of each topic |
if (FALSE) { ldaOut <- SeuratObj@misc$ldaOut betaDF <- tidytext::tidy(ldaOut, matrix = "beta") topicNW1(betaDF, topn=10) }