相关疑难解决方法(0)

test <- data.frame(a=c(1,2,3,4), b=c(4,4,4,4))
ggplot(test, aes(x=a, y=b, fill=factor(a)))+geom_bar(stat='identity')

但我也想在这个情节中添加texitiles,例如:

非常感谢你