2017-02-16 252 views
-1

早安,100%堆积条形图

我想R中得到这个数据的100%堆积条形图中

 Federal Non Federal 
2006 46753094 74740716 
2007 43397314 74834857 
2008 43962330 71051132 
2009 42238038 72987898 
2010 49546221 75232382 
2011 48730233 76333479 
2012 49316564 74669993 
2013 48198329 75644892 
2014 46630540 74783207 
2015 46214781 75004771 
2016 47625256 73744148 

,以便它可以是这样的: enter image description here

我会第一个承认,它肯定不喜欢令人兴奋的地图,但它仍然需要。

我试图做的代码解释here但它没有奏效。

这是我做过什么:

>  g <- ggplot(FedNonFed, aes(FedNonFed)) 
>  g + geom_bar(aes(fill = FedNonFed), position = "fill") 

不图我需要的。

g <- ggplot(FedNonFed, aes(FY)) 
g + geom_bar(aes(fill = FedNonFed), position = "fill") 
g + geom_bar(aes(fill = TotalExpense), position = "fill") 

任何帮助,将不胜感激。

+0

您应该添加您的代码,以便我们可以看到出了什么问题。 – Kristofersen

+0

完成。谢谢! –

+1

“没有工作”是什么意思?一定要提供一个[可重现的例子](http://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example)以及样本数据,所以我们可以实际运行代码看看会发生什么。看起来像我们的数据可能是错误的形状。 – MrFlick

回答

6

你需要融化你的数据。我稍微更改了一些数据以便加载,但这应该很容易替换。

library(reshape2) 
library(scales) 
df = data.frame("Year" = seq(2006,2016,by = 1), "Federal" = seq(1,11,by = 1), "Non Federal" = seq(11,1,by = -1)) 
dfm = melt(df, id.vars = "Year") 
ggplot(dfm,aes(x = Year, y = value,fill = variable)) + 
    geom_bar(position = "fill",stat = "identity") + 
    scale_y_continuous(labels = percent_format()) 

我对情节做了一些改变,所以它更接近于excel情节。唯一不同的是颜色。

ggplot(dfm,aes(x = Year, y = value,fill = variable)) + 
    geom_bar(position = "fill",stat = "identity") + 
    scale_y_continuous(labels = percent_format())+ scale_x_continuous(breaks = 2006:2016,labels= as.character(seq(2006,2016,by = 1)))+ 
    theme(plot.subtitle = element_text(vjust = 1), 
    plot.caption = element_text(vjust = 1), 
    legend.title = element_blank(), 
    axis.title.x=element_blank(), 
    axis.title.y=element_blank(), 
    legend.position = "bottom", legend.direction = "horizontal") 
+0

谢谢@Kristofersen。生成了一个图表,但它看起来与我在Excel中生成的快速图表非常不同。我似乎无法弄清楚发生了什么 –

+0

@劳拉它有什么不同?你的意思是轴和颜色? – Kristofersen

+0

https://photos.google.com/share/AF1QipMUrK7wnVloRMnptv0XOm5q8ADji98OqfWBsJ63GwHJDAEjV0cn5aRJ9U1V2jlekA?key=ZnFLMXVMTDhSRGdJRFg0UHV3aGFOeTk3LXRwcGVR –