如何绘制从零开始的水平“直方图”条

Question

我正在应用 Silge 和 Robinson 的“Text Mining with R: A tidy approach”进行主题建模。

没有显示如何绘制图 3.6，显示了“最大差异 主题 2 和主题 1 之间的 β"。

我搜索了互联网，包括通过从零开始同时应用排名、降序和升序来对值进行子集化的方法。

最好的问候

Answer 1

创建“beta_wide”对象后，应用以下代码：

beta_wide %>%
          group_by(log_ratio > 0) %>%
          top_n(10, abs(log_ratio)) %>%
          ungroup() %>%
          ggplot(aes(fct_reorder(term, log_ratio), log_ratio, fill = log_ratio > 0)) +
          geom_col(alpha = 0.8, show.legend = FALSE) +
          coord_flip() +
          theme_minimal() +
          labs(x = "words",
               y = "log2 ratio of beta in topic 2 /topic 1") +
          scale_fill_brewer(palette = "Set1")

您可以通过将 10 更改为 -10 来绘制差异最小的单词。