ggplot2散点图 - r ggplot2折线图



如何在ggplot2 geom_bar中订购填充颜色 (3)

我正在调用ggplot函数

ggplot(data,aes(x,y,fill=category)+geom_bar(stat="identity")

结果是一个条形图,其中条形图由对应于类别的各种颜色填充。 但是,从条到条的颜色排序并不一致。 说有粉红色,绿色和蓝色。 有些酒吧从下到上呈粉红色,绿色,蓝色,有些则呈绿色,粉红色,蓝色。 我没有看到任何明显的模式。

这些订单是如何选择的? 我该怎么改变它? 至少,我如何让ggplot选择一致的排序?

(x,y和类别)的类分别是(整数,数字和因子)。 如果我将类别设为有序因子,则不会更改此行为。

有人知道怎么修这个东西吗?

可重复的例子:

dput(data)

structure(list(mon = c(9L, 10L, 11L, 10L, 8L, 7L, 7L, 11L, 9L, 
10L, 12L, 11L, 7L, 12L, 8L, 12L, 9L, 7L, 9L, 10L, 10L, 8L, 12L, 
7L, 11L, 10L, 8L, 7L, 11L, 12L, 12L, 9L, 9L, 7L, 7L, 12L, 12L, 
9L, 9L, 8L), gclass = structure(c(9L, 1L, 8L, 6L, 4L, 4L, 3L, 
6L, 2L, 4L, 1L, 1L, 5L, 7L, 1L, 6L, 8L, 6L, 4L, 7L, 8L, 7L, 9L, 
8L, 3L, 5L, 9L, 2L, 7L, 3L, 5L, 5L, 7L, 7L, 9L, 2L, 4L, 1L, 3L, 
8L), .Label = c("Down-Down", "Down-Stable", "Down-Up", "Stable-Down", 
"Stable-Stable", "Stable-Up", "Up-Down", "Up-Stable", "Up-Up"
), class = c("ordered", "factor")), NG = c(222614.67, 9998.17, 
351162.2, 37357.95, 4140.48, 1878.57, 553.86, 40012.25, 766.52, 
15733.36, 90676.2, 45000.29, 0, 375699.84, 2424.21, 93094.21, 
120547.69, 291.33, 1536.38, 167352.21, 160347.01, 26851.47, 725689.06, 
4500.55, 10644.54, 75132.98, 42676.41, 267.65, 392277.64, 33854.26, 
384754.67, 7195.93, 88974.2, 20665.79, 7185.69, 45059.64, 60576.96, 
3564.53, 1262.39, 9394.15)), .Names = c("mon", "gclass", "NG"
), row.names = c(NA, -40L), class = "data.frame") 

ggplot(data,aes(mon,NG,fill=gclass))+geom_bar(stat="identity")

从ggplot2_2.0.0开始, order美学不再可用。 要获得按填充颜色排序的堆栈图表,您只需按要排序的分组变量对数据集进行排序即可。

我经常使用dplyr arrange这个。 在这里,我按ggplot调用中的fill因子排序数据集,而不是创建有序数据集,但两者都可以正常工作。

library(dplyr)

ggplot(arrange(data, gclass), aes(mon, NG, fill = gclass)) +
    geom_bar(stat = "identity")

这很容易在基数R中完成,当然,使用带有提取括号的经典order

ggplot(data[order(data$gclass), ], aes(mon, NG, fill = gclass)) +
    geom_bar(stat = "identity")

现在,两种情况下的结果图都按所需顺序排列:

ggplot2_2.2.0更新

在ggplot_2.2.0中,填充顺序基于因子级别的顺序。 默认顺序将绘制堆栈顶部的第一个级别而不是底部。

如果你想要在堆栈底部的第一级,你可以在position_stack使用reverse = TRUE 。 请注意,您还可以使用geom_col作为geom_bar(stat = "identity")快捷方式。

ggplot(data, aes(mon, NG, fill = gclass)) +
    geom_col(position = position_stack(reverse = TRUE))

您可以使用scale_fill_函数更改颜色。 例如:

ggplot(dd,aes(mon,NG,fill=gclass)) + 
  geom_bar(stat="identity") + 
  scale_fill_brewer(palette="blues")

要在bars获得一致的排序,您需要订购数据框:

dd = dd[with(dd, order(gclass, -NG)), ]

要更改图例的顺序,请更改gclass因子。 所以类似于:

dd$gclass= factor(dd$gclass,levels=sort(levels(dd$gclass), TRUE))


要订购,您必须使用levels参数并通知订单。 喜欢这个:

data$gclass
(data$gclass2 <- factor(data$gclass,levels=sample(levels(data$gclass)))) # Look the difference in the factors order
ggplot(data,aes(mon,NG,fill=gclass2))+geom_bar(stat="identity")




ggplot2