ggplot中的数据顺序和颜色答案

【问题标题】：data order and color in ggplotggplot中的数据顺序和颜色
【发布时间】：2014-12-12 04:16:30
【问题描述】：

我在数据框中有经理的资产

Date        C       B       A       E       D
2011-06-30 20449251 2011906       0       0       0
2011-09-30 20766092 1754940       0       0       0
2011-12-31 15242138 1921684       0       0       0
2012-03-31 15811841 2186571       0       0       0
2012-06-30 16221813 2026042 2423039 2419517       0
2012-09-30 16155686 2261729 2563734 1160693       0
2012-12-31 16297839 2231341 2592015 1151989       0
2013-03-31 14627046 2441132 2769681 1249464       0
2013-06-30 14186185 2763985 2615053 1260893       0
2013-09-30 14039954 2780167 2698988 1264244       0
2013-12-31 13832117 3081687 2962113 1318903       0
2014-03-31 14177177 3133202 3077684 1353243       0
2014-06-30 14503900 3235089 3196623 1415319       0
2014-09-30 12561057 3227862 3048216 1413446 2073068

然后我融化并绘制以获得堆叠面积图

library('ggplot2')
library('reshape2')
colorscheme = scale_fill_brewer(type="qual",palette = 2)

df = melt(data,id.var="Date",variable.name="Manager")
df[,3] = as.numeric(df[,3])

#Stacked Area
layout(c(1,1))
p = ggplot(df,aes(x=Date,y=value,group=Manager,fill=Manager))+
  geom_area(position="fill") + colorscheme 
print(p)

这很好用：

现在我想要最后一行的饼图（即当前日期）

df1 = data[nrow(data),-1]
df1 = as.data.frame(t(df1))
colnames(df1) = "AUM"

p = ggplot(df1,aes(x=1,y=df1$AUM,fill=rownames(df1))) + 
  geom_bar(stat="identity") + colorscheme + coord_polar(theta="y") 
plot(p)

我得到以下信息：

忽略格式，我的问题是关于颜色选择。颜色与经理不匹配。区域图中的经理 A 颜色现在是经理 C 的颜色。我意识到这是因为饼图按经理名称排序，而 data 中的经理顺序未排序。

我无法控制我如何接收数据。有没有办法重新排序data 和/或df（数据已融化），以便第一个图表按经理顺序排列？或者改变数据发送到饼图的方式？

谢谢，

【问题讨论】：

因子水平的顺序不同，fill=factor(rownames(df1), levels = rownames(df1)) 有效吗？

标签： r ggplot2

【解决方案1】：

与其搞乱因子水平，不如从data 的最后一行中将Date 子集化为df 不是更容易吗？？

ggplot(df[df$Date==tail(data,1)$Date,],aes(x=1,y=value,fill=Manager)) + 
  geom_bar(stat="identity") + colorscheme + coord_polar(theta="y")

【讨论】：