根据dataframe列订购Y轴ggplot boxplot

Question

我用ggplot制作了一个箱线图，但是我想根据我使用汇总统计信息创建的不同数据帧中列的顺序来更改y轴的顺序。

这是脚本。脚本下面是我想要的输出的描述。

.pack()

我希望y轴（翻转的x轴）的顺序与摘要数据框中的City列的顺序相同。这意味着：

从上到下：PAE，PAR，BER，NY，AMS

任何有效而优雅的建议？

解

谢谢Prradep，我用你的解决方案编写脚本并且它有效。我稍微调整了一下，所以我不必再次键入轴的值。我重新使用了数据框中的City向量。这是我使用的脚本：

#data
df <- data.frame(City = c("NY", "AMS", "BER", "PAR", "NY", "AMS", "AMS", "PAE"),
             Time_Diff = c(4, 2, 7, 9, 2, 1, 10, 9),
             Outliers = c(0, 0, 0, 0, 0, 1, 1, 0))

#data summary
summary <- df %>%
        group_by(City) %>%
        summarise(Median = median(Time_Diff),
        IQR = IQR(Time_Diff),
        Outliers = sum(Outliers))    %>%
        arrange(desc(Median), desc(IQR), desc(Outliers))

summary <- as.data.frame(summary)


# Create ggplot object
bp <-ggplot(data = df, aes(x = reorder(City, Time_Diff, FUN = median), y= Time_Diff)) # Creates boxplots

# Create boxplot figure
bp + 
  geom_boxplot(outlier.shape = NA) + #exclude outliers to increase visibility of graph
  coord_flip(ylim = c(0, 25)) +
  geom_hline(yintercept = 4) +
  ggtitle("Time Difference") +
  ylab("Time Difference") +
  xlab("City") +
  theme_light() +
  theme(panel.grid.minor = element_blank(),
    panel.border = element_blank(), #remove all border lines
    axis.line.x = element_line(size = 0.5, linetype = "solid", colour = "black"), #add x-axis border line
    axis.line.y = element_line(size = 0.5, linetype = "solid", colour = "black")) #add y-axis border line

Answer 1

添加scale_x_discrete(limits = rev(c('PAE', 'PAR', 'BER', 'NY', 'AMS')))可以解决问题。

这就是你要找的东西：

# Create ggplot object
bp <-ggplot(data = df, aes(x = reorder(City, Time_Diff, FUN = median), y= Time_Diff)) # Creates boxplots

# Create boxplot figure
bp + 
  geom_boxplot(outlier.shape = NA) + #exclude outliers to increase visibility of graph
  coord_flip(ylim = c(0, 25)) +
  geom_hline(yintercept = 4) +
  ggtitle("Time Difference") +
  ylab("Time Difference") +
  xlab("City") +
  theme_light() +
  theme(panel.grid.minor = element_blank(),
        panel.border = element_blank(), #remove all border lines
        axis.line.x = element_line(size = 0.5, linetype = "solid", colour = "black"), #add x-axis border line
        axis.line.y = element_line(size = 0.5, linetype = "solid",     colour = "black")) + #add y-axis border line 
  scale_x_discrete(limits = rev(c('PAE', 'PAR', 'BER', 'NY', 'AMS')))