按频率/值排序离散 x 比例

Question

我正在使用具有离散 x 刻度的 ggplot 制作闪避条形图，x 轴现在按字母顺序排列，但我需要重新排列它，以便它按 y 轴的值排序（即，最高的条形将位于左侧）。

我尝试了 order 或 sort，但结果是对 x 轴进行排序，而不是对条形进行排序。

我做错了什么？

Answer 1

对我来说最好的方法是使用带有类别的向量，以便我需要将其作为 scale_x_discrete 的 limits 参数。我认为这是非常简单直接的解决方案。

ggplot(mtcars, aes(factor(cyl))) + 
  geom_bar() + 
  scale_x_discrete(limits=c(8,4,6))

Answer 2

尝试手动设置 x 轴上的因子水平。例如：

library(ggplot2)
# Automatic levels
ggplot(mtcars, aes(factor(cyl))) + geom_bar()    

# Manual levels
cyl_table <- table(mtcars$cyl)
cyl_levels <- names(cyl_table)[order(cyl_table)]
mtcars$cyl2 <- factor(mtcars$cyl, levels = cyl_levels)
# Just to be clear, the above line is no different than:
# mtcars$cyl2 <- factor(mtcars$cyl, levels = c("6","4","8"))
# You can manually set the levels in whatever order you please. 
ggplot(mtcars, aes(cyl2)) + geom_bar()

正如 James 在他的回答中指出的那样， reorder 是重新排序因子级别的惯用方法。

mtcars$cyl3 <- with(mtcars, reorder(cyl, cyl, function(x) -length(x)))
ggplot(mtcars, aes(cyl3)) + geom_bar()

Answer 3

您可以使用重新排序：

qplot(reorder(factor(cyl),factor(cyl),length),data=mtcars,geom="bar")

编辑：

要在左侧设置最高的栏，您必须使用一些拼凑：

qplot(reorder(factor(cyl),factor(cyl),function(x) length(x)*-1),
   data=mtcars,geom="bar")

我希望它也有负高度，但事实并非如此，所以它有效！

Answer 4

Hadley 一直在开发一个名为 forcats 的软件包。这个包使任务变得更加容易。当您想要按因子的频率更改 x 轴的顺序时，可以利用 fct_infreq()。对于本文中的 mtcars 示例，您希望根据每个级别的频率对 cyl 级别进行重新排序。最常出现的级别位于左侧。您所需要的只是fct_infreq()。

library(ggplot2)
library(forcats)

ggplot(mtcars, aes(fct_infreq(factor(cyl)))) +
geom_bar() +
labs(x = "cyl")

如果您想反其道而行之，可以将 fct_rev() 与 fct_infreq() 一起使用。

ggplot(mtcars, aes(fct_rev(fct_infreq(factor(cyl))))) +
geom_bar() +
labs(x = "cyl") 

Answer 5

我意识到这已经很旧了，但也许我创建的这个函数对那里的人有用：

order_axis<-function(data, axis, column)
{
  # for interactivity with ggplot2
  arguments <- as.list(match.call())
  col <- eval(arguments$column, data)
  ax <- eval(arguments$axis, data)

  # evaluated factors
  a<-reorder(with(data, ax), 
             with(data, col))

  #new_data
  df<-cbind.data.frame(data)
  # define new var
  within(df, 
         do.call("<-",list(paste0(as.character(arguments$axis),"_o"), a)))
}

现在，使用这个函数，您可以使用 ggplot2 交互式绘图，如下所示：

ggplot(order_axis(df, AXIS_X, COLUMN_Y), 
       aes(x = AXIS_X_o, y = COLUMN_Y)) +
        geom_bar(stat = "identity")

可以看出，order_axis 函数创建另一个数据框，其中有一个名称相同但末尾带有 _o 的新列。这个新列的级别按升序排列，因此 ggplot2 会自动按该顺序绘制。

这有些限制（仅适用于列的字符或因子和数字组合并按升序排列），但我仍然发现它对于动态绘图非常有用。

Answer 6

另一种选择是使用 forcats（tidyverse 的一部分）中的 fct_relevel 手动设置沿 x 轴的顺序。然而，对于按频率排列，@jazzurro 通过使用 fct_infreq （也来自 forcats）提供了最佳答案。

library(tidyverse)

ggplot(iris, aes(
  x = fct_relevel(Species, 'virginica', 'versicolor', 'setosa'),
  y = Petal.Width)) +
  geom_col() +
  xlab("Species") +
  ylab("Petal Width") +
  theme_bw()

输出

此外，在 ggplot 内使用 fct_relevel 之前，该变量需要是一个因子。因此，只需先将 factor 应用于变量，然后使用 fct_relevel。

ggplot(mtcars, aes(fct_relevel(factor(cyl), "6", "8", "4"))) +
  geom_bar() +
  labs(x = "cyl")

输出

Answer 7

如果您事先知道要绘制的级别，@Yuriy Petrovskiy 的答案非常好。如果您不这样做（例如，因为您不想绘制数据中不存在的水平），请考虑使用limit函数来指定顺序：

library(ggplot2)

my_order <- as.character(c(8,3,4,5,6))    # the `as.character` calls are only
ggplot(mtcars, aes(as.character(cyl))) +  # necessary for the OP's example
  geom_bar() +
  scale_x_discrete(limits = function(x) intersect(my_order, x))

来自 scale_x_discrete 的文档：

限制
      其中之一：
      - NULL 使用默认比例值
      - 定义可能的比例值及其顺序的字符向量
      - 接受现有（自动）值并返回新值的函数

否则，您的图表最终会像这样（可能更好）：

ggplot(mtcars, aes(as.character(cyl))) +
  geom_bar() +
  scale_x_discrete(limits = my_order)