使用geom_histogram和stat_count进行调整

Question

我已经使用ggplot和geom_histogram将一些数据绘制为堆叠的条形图。数据包括信用等级。我希望按年份显示每个等级的信用等级数量。我正在与最高评分进行斗争，因为它们的数量很少，因此它们的数量现在重叠了。我指的是信用等级J和K。是否有任何方法可以更好地在R中描述或显示其实际数字？

这是我正在使用的代码：

 ggplot(kreditt_barcharts, aes(x=Year, fill=(fct_rev(Credit_Rating)))) + 
    geom_histogram(stat="count") +
    labs(title="Ratings by year",y="Number of ratings") +
    guides(fill=guide_legend(title="Credit ratings", nrow=1, >reverse="TRUE"))+
   stat_count(geom="text", colour="black", size=3.5,aes(label=..count.., group=Credit_Rating), position=position_stack(vjust=0.5, reverse=TRUE)) + 
   scale_fill_brewer(palette="Spectral") + theme(legend.position="bottom")

我的目标是让观看者更清楚地评价等级J和K。