将LDAvis输出转换为tiff

Question

我正在研究主题建模，最近我发现了出色的库“ LDAvis”。不幸的是，该库的可视输出在json中，并且我不知道如何将其转换为tiff。这是大多数学术期刊所要求的图形格式。 我需要的是一种将LDAvis的输出转换为tiff的方法。

这里是我从'text2vec'包中获得的示例，从这里：https://github.com/dselivanov/text2vec/issues/235

library(text2vec)

library(magrittr)

data("movie_review")

tokens = movie_review$review[1:4000] %>% 
   tolower %>% 
   word_tokenizer
 it = itoken(tokens, ids = movie_review$id[1:4000], progressbar = FALSE)

v = create_vocabulary(it) %>% 
 prune_vocabulary(term_count_min = 10, doc_proportion_max = 0.2)
 vectorizer = vocab_vectorizer(v)
 dtm = create_dtm(it, vectorizer, type = "dgTMatrix")


 lda_model = LDA$new(n_topics = 10, doc_topic_prior = 0.1, topic_word_prior = 0.01)

 doc_topic_distr = 
   lda_model$fit_transform(x = dtm, n_iter = 1000, 
                      convergence_tol = 0.001, n_check_convergence = 25, 
                      progressbar = FALSE)

 # this plots LDAvis in current session

 lda_model$plot()

我想要完成的是这样的图形：

这：

不幸的是，这是我所能做的最好的事情，方法是使用某种转换器（按“打印”页面，并以.pdf转换器的形式自动打开） 预先谢谢你。