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.