2017-02-16 243 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 –