我有一个图表(它开始时是直方图,但我将其更改为条形图,以便可以更轻松地使用百分比):
这是图表的代码:
ggplot(df, aes(as.Date(callclosed), y = (..count..)/sum(..count..))) +
geom_bar(fill = "skyblue1",
colour = "black") +
scale_y_continuous(labels = scales::percent, limits = c(0, 0.06)) +
scale_x_date(date_breaks = "1 day", date_labels = "%d-%b-%y") +
theme(axis.text.x = element_text(angle = 90))
如何在显示相关百分比的每个栏的顶部添加标签?