seguro <- matrix(0,4,3)
seguro <- as.data.frame(seguro)
seguro[,1] <- c("2010","2011","2012","2013")
seguro[,2] <-c(89,86,87,88)
seguro[,3] <-c("89%","86%","87%","88%")
names(seguro)[c(1)]<-c("Ano")
ggplot(seguro, aes(Ano, V2, fill=Ano))+geom_bar(width=0.3,stat="identity", position="identity", aes(fill=Ano)) +
scale_y_continuous(labels=percent) + geom_text(data=seguro,aes(x=Ano,label=V3),vjust=0)
Abraços