ggplot2：單杠

Question

我正在嘗試我在這里找到的一個示例，其中使用 ggplot2 繪制數據。 代碼如下所示：

raw_text %>%
  group_by(newsgroup) %>%
  summarize(messages = n_distinct(id)) %>%
  ggplot(aes(messages, newsgroup)) +
  geom_col() +
  labs(y = NULL)

圖中的條應該是水平的，即從左到右，但對我來說它們是垂直的：

我必須改變什么才能獲得單杠？

Answer 1

我會試試這個：

#Code
raw_text %>%
  group_by(newsgroup) %>%
  summarize(messages = n_distinct(id)) %>%
  ggplot(aes(y=messages, x=newsgroup)) +
  geom_col() +
  labs(y = NULL)+
  coord_flip()

Answer 2

我通過下載數據復制了您指定的示例。 我的 plot 看起來像：

給出的代碼：

library(dplyr)
library(tidyr)
library(purrr)
library(readr)
library(ggplot2)

# dataset has to be downloaded see question user1406177
training_folder <- "data/20news-bydate-train/"

# Define a function to read all files from a folder into a data frame
read_folder <- function(infolder) {
  tibble(file = dir(infolder, full.names = TRUE)) %>%
    mutate(text = map(file, read_lines)) %>%
    transmute(id = basename(file), text) %>%
    unnest(text)
}

raw_text <- tibble(folder = dir(training_folder, full.names = TRUE)) %>%
  mutate(folder_out = map(folder, read_folder)) %>%
  unnest(cols = c(folder_out)) %>%
  transmute(newsgroup = basename(folder), id, text)

raw_text %>%
  group_by(newsgroup) %>%
  summarize(messages = n_distinct(id)) %>%
  ggplot(aes(messages, newsgroup)) +
  geom_col() +
  labs(y = NULL)