ggplot2条形图中的有序因子

Question

我有一个数据框，其中包含（为了简化）评委、电影和评分（评分按 1 星到 5 星的等级排列）：

d = data.frame(judge=c("alice","bob","alice"), movie=c("toy story", "inception", "inception"), rating=c(1,3,5))

我想创建一个条形图，其中 x 轴是星星的数量，每个条形都是该星星的评分数。

如果我

ggplot(d, aes(rating)) + geom_bar()

这样做，效果很好，除了条形图未在每个评级上居中并且每个条形图的宽度不理想之外。

如果我这样做，

ggplot(d, aes(factor(rating))) + geom_bar()

x 轴上星星数量的顺序就会混乱。 （至少在我的 Mac 上；出于某种原因，默认排序在 Windows 计算机上有效。）如下所示：

我尝试过，

ggplot(d, aes(factor(rating, ordered=T, levels=-3:3))) + geom_bar()

但这似乎没有帮助。

如何使我的条形图看起来如上图所示，但 X 轴上的顺序正确？

Answer 1

我不确定您的示例数据框是否代表您发布的图像。您提到您的评级为 1-5 级，但您的图像显示为 -3 到 3 级。话虽如此，我认为这应该让您朝着正确的方向前进：

示例数据：

d = data.frame(judge=sample(c("alice","bob","tony"), 100, replace = TRUE)
    , movie=sample(c("toy story", "inception", "a league of their own"), 100, replace = TRUE)
    , rating =  sample(1:5, 100, replace = TRUE))

您与此最接近：

ggplot(d, aes(rating)) + geom_bar()

通过调整 geom_bar 中的默认 binwidth，我们可以使条形宽度更合适并处理评级作为一个因素将它们集中在标签上：

ggplot(d, aes(x = factor(rating))) + geom_bar(binwidth = 1)

如果您想在图表中合并其他变量之一，例如作为电影，您可以使用填充：

ggplot(d, aes(x = factor(rating), fill = factor(movie))) + geom_bar(binwidth = 1)

将电影放在 x 轴上并填充可能更有意义如果您要比较的电影数量较少，请使用评级：

ggplot(d, aes(x = factor(movie), fill = factor(rating))) + geom_bar(binwidth = 1)

如果这不能让您上路，请提供一个更具代表性的数据集示例。我无法重现排序问题，但这可能是由于您发布的示例数据与您正在分析的数据存在差异所致。

ggplot 网站也是一个很好的参考： http://had.co.nz/ggplot2/geom_bar .html