100% Stacked Диаграмма бара в R

Question

Доброго утра,

Я пытаюсь получить эти данные в 100% столбчатой ​​диаграмме в R в

 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 

так, что она может выглядеть следующим образом:

Я первым примите к сведению, что это, безусловно, не нравится захватывающая карта, но она тем не менее необходима.

Я попытался сделать код, как описано 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") 

Любая помощь будет оценена по достоинству.

Answer 1

Вам нужно было расплавить данные. Я немного изменил данные, чтобы упростить загрузку, но это должно быть достаточно легко заменить.

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")