想要再堆叠长条图的bar上标注数值,
希望呈现的结果是
举例:在x轴的 (51~60)bar,上方蓝色标注0.33,下方红色标注0.67,数值在bar的正中央
目前手上有的数据如下:
store type age
店1 晚 21~30
店1 晚 21~30
店1 晚 61~70
店1 晚 61~70
店1 早 0~20
店1 早 51~60
店1 早 51~60
店1 早 61~70
店1 早 21~30
店1 晚 0~20
店1 早 31~40
店1 早 61~70
店1 晚 21~30
店1 晚 51~60
店1 早 21~30
店1 早 61~70
店1 晚 41~50
店1 早 61~70
店1 早 21~30
店1 早 61~70
已完成代码如下:
ggplot(dat[which(dat$store == "店1"),], aes(age, fill = type)) +
geom_bar(position="fill", width = 0.5) +
theme_bw() +
scale_y_continuous(breaks = c(0,0.2,0.4,0.6,0.8,1), labels = c("0%","20%","40%","60%","80%","100%")) +
ylab("") + xlab("") +
theme(axis.text.x = element_text(size = 15),
axis.text.y = element_text(size = 15),
legend.text = element_text(size = 15),
legend.key = element_blank(),
legend.title = element_blank())