Click here to see the result of the code below:
library("LDAvis") data(Jeopardy, package = "LDAvisData") json <- with(Jeopardy, createJSON(phi, theta, doc.length, vocab, term.frequency)) serVis(json, out.dir = 'vis', open.browser = FALSE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.