如何在ggplot2中修复混杂的x轴标签？

Question

I have a plot in which the x-axis labels are not uniform. Using axis.text.x = element_text(), I rotated the labels -45 degrees and moved them up at vjust = 1. However, the words on the x-axis themselves are jumbled, and each individual label does not seem uniformly rotated. How can I fix this?

First, the letters seem to be unevenly spaced. Note "nh" in Eisenhower, "Ca" and "rt" in Carter, and "Bu" in W_Bush. Second, the words on the label themselves are not evenly angled, and it seems especially noticeable from Carter to W_Bush.

Code:

bp <-
  ggplot(df1, aes(
  x = df1$President,
  y = df1$Count,
  fill = df1$President
)) + geom_bar(stat = "identity", width = 0.5) + theme(axis.text.x = element_text(
  angle = -45,
  hjust = 0,
  vjust = 1
)) + labs(
  title = "Executive Orders Issued by President",
  subtitle = "After World War II",
  x = "President",
  y = "Count"
) + theme(legend.position = "none")

Thanks in advance!

Answer 1

In this case I would use coord_flip to place the names on the y-axis, avoiding the need for rotation. I'd also use a single color for the bars and consider reordering.

# Example data:

presidents <- structure(list(President = c("George Washington", "John Adams", 
                                           "Thomas Jefferson", "James Madison", 
                                           "James Monroe", "John Quincy Adams", 
                                           "Andrew Jackson", "Martin van Buren", 
                                           "William Henry Harrison", "John Tyler"), 
                             Number = c(8, 1, 4, 1, 1, 3, 12, 10, 0, 17)), 
                             row.names = c(NA, 10L), 
                             class = "data.frame", 
                             .Names = c("President", "Number"))

presidents %>% 
    ggplot(aes(reorder(President, Number), Number)) + 
      geom_col(fill = "skyblue3") + 
      coord_flip() +
      labs(x = "President")