使用ggplot2以任意顺序手动设置填充条的顺序

Question

我试图找出如何转换条形图。现在，Gears填充按数字顺序排列。我试图能够以任意顺序手动设置Gears填充的顺序。

我找到的所有其他示例都告诉我如何根据数据的计数或值以降序或升序对它们进行排序。我试图以任意顺序手动设置订单。因此，我不想3-4-5，而是手动告诉它我希望数据显示为3-5-4或5-3-4。

以下是我现在所拥有的：

library(data.table)
library(scales)
library(ggplot2)

mtcars <- data.table(mtcars)
mtcars$Cylinders <- as.factor(mtcars$cyl)
mtcars$Gears <- as.factor(mtcars$gear)
setkey(mtcars, Cylinders, Gears)
mtcars <- mtcars[CJ(unique(Cylinders), unique(Gears)), .N, allow.cartesian = TRUE]

ggplot(mtcars, aes(x=Cylinders, y = N, fill = Gears)) + 
               geom_bar(position="dodge", stat="identity") + 
               ylab("Count") + theme(legend.position="top") + 
               scale_x_discrete(drop = FALSE)

如果要进行任何不涉及ggplot2的数据操作，我希望使用data.table进行操作。谢谢你的帮助！

Answer 1

您需要正确设置因子水平。

假设你有一个因素

> x=factor(c("a","c","b"))
> x
[1] a c b
Levels: a b c

订单为a c b，但绘图订单为a b c，因为默认系数会按字母数字顺序生成级别。

也许您希望绘图顺序与向量中的顺序相匹配 - 我们可以指定因子级别应遵循首次遇到每个级别的顺序：

> z=factor(x,unique(x))
> z
[1] a c b
Levels: a c b

也许我们不想要这些 - 例如我们可能想要c a b。

我们可以手动设置订单

> y=factor(c("a","c","b"),levels=c("c","a","b"))
> y
[1] a c b
Levels: c a b

或者我们可以稍后通过明确指定每个级别的位置来调整因子：

> reorder(y,x,function(x)c(a=2,b=3,c=1)[x])
[1] a c b
attr(,"scores")
c a b 
1 2 3 
Levels: c a b

现在您知道这一点，您可以应用在其他地方找到的技术，例如

Order Bars in ggplot2 bar graph