ggplot2中的geom_bar位置宽度问题

Question

For a fun way to learn ggplot2 I'm trying to reproduce the fivethirtyeight barplot on bob ross paintings . I've attached the reprex of my attempted code below:

library(tidyverse)
library(ggthemes)

# OPTION 1 - Download raw data directly from source
ross_url <- "https://raw.githubusercontent.com/fivethirtyeight/data/master/bob-ross/elements-by-episode.csv"
ross_dat <- read_csv(file = ross_url)

ross_tidy <- ross_dat %>%
                gather(key = tag, value = indicator, APPLE_FRAME:WOOD_FRAMED)
new_tag_fmt <- function(str){
    str_replace_all(string = str, pattern = "_",
                             replacement = " ") %>%
        str_trim() %>%
        str_to_title() %>%
        return()
}

tot_episodes <- ross_tidy %>% select(EPISODE) %>% n_distinct()
ross_tidy2 <- ross_tidy %>%
                group_by(tag) %>%
                summarize(total = sum(indicator)) %>%
                ungroup() %>%
                mutate(tag = as.factor(new_tag_fmt(str = tag)),
                              perc = round(total/tot_episodes, 2),
                              perc_fmt = scales::percent(perc)) %>%
                arrange(desc(total)) %>%
                filter(total >= 5)


ggplot(ross_tidy2, aes(x = reorder(tag, perc), y = perc)) +
    geom_bar(stat = "identity", fill = "#198DD1",
                      width = 2, position = "dodge") +
    coord_flip() +
    labs(title = "The Paintings of Bob Ross",
                  subtitle = "Percentage containing each element") +
    geom_text(data = ross_tidy2, nudge_y = 0.02, angle = 270,
                           aes(reorder(tag, total), y = perc, label = perc_fmt),
                       family = "Courier", color = "#3E3E3E") +
    scale_color_fivethirtyeight("cyl") +
    theme_fivethirtyeight() +
    theme(panel.border = element_blank(),
                   panel.grid.major = element_blank(),
                   panel.grid.minor = element_blank(),
                   axis.line = element_blank(),
                   axis.ticks.x = element_blank(),
                   axis.text.x = element_blank(),
                   plot.title = element_text(size = 18, hjust=-0.5),
                   plot.subtitle = element_text(size = 14, hjust=-0.5),
                   axis.text.y = element_text(size = 12))
#> Warning: position_dodge requires non-overlapping x intervals

Created on 2018-07-14 by the reprex package (v0.2.0).

The problem here is I keep getting the warning:

Warning: position_dodge requires non-overlapping x intervals

Could anyone please show me the issue in the code, the tag variable is a factor ie categorical so I thought the above should work.

NOTE: Full credit to fivethirtyeight for providing the data to reproduce their work!

Answer 1

ross_tidy2 %>%
 ggplot(data = ., aes(x = reorder(tag, perc), y = perc)) +
  geom_bar(stat = "identity",width = 0.9) +
  coord_flip() 

is enough
you don't need position_dodge (you don't have several groups)

Answer 2

The bar widths are too large, so it's tough for them to "dodge" each other. I set the width to 1 and didn't get the error.