使 geom_bar 以升序显示值

Question

虽然我的查询按降序显示值，但 ggplot 然后按字母顺序而不是升序显示它们。

此问题的已知解决方案似乎没有用。他们建议对值使用 Reorder 或 factor，这在这种情况下不起作用

这是我的代码：

boxoffice %>%
  group_by(studio) %>%
  summarise(movies_made = n()) %>%
  arrange(desc(movies_made)) %>%
  top_n(10) %>%
  arrange(desc(movies_made)) %>%
  ggplot(aes(x = studio, y = movies_made, fill = studio, label = as.character(movies_made))) +
  geom_bar(stat = 'identity') +
  geom_label(label.size = 1, size = 5, color = "white") +
  theme(legend.position = "none") +
  ylab("Movies Made") +
  xlab("Studio")

Answer 1

您需要将 boxoffice$studio 转换为有序因子。 ggplot 将遵循数据集中行的顺序，而不是按字母顺序排列。您的 dplyr 链将如下所示：

boxoffice %>%
  group_by(studio) %>%
  summarise(movies_made = n()) %>%
  arrange(desc(movies_made)) %>%
  ungroup() %>% # ungroup
  mutate(studio = factor(studio, studio, ordered = T)) %>% # convert variable
  top_n(10) %>%
  arrange(desc(movies_made)) %>%
  ggplot(aes(x = studio, y... (rest of plotting code)

Answer 2

对于那些想要更完整示例的人，这里是我得到的地方：

library(dplyr)
library(ggplot2)

# get some dummy data
boxoffice = boxoffice::boxoffice(dates=as.Date("2017-1-1"))

df <- (
  boxoffice %>%
  group_by(distributor) %>%
  summarise(movies_made = n()) %>%
  mutate(studio=reorder(distributor, -movies_made)) %>%
  top_n(10))

ggplot(df, aes(x=distributor, y=movies_made)) + geom_col()

使 geom_bar 以升序显示值

make geom_bar show values in the ascending order

r

ggplot2

geom-bar