R ggplot2画柱状图

###secondOperTimes_2 begin###
library(ggplot2)

city<-c('100%写', '100%读', '50%读, 50%写')
rate<-c(1488, 631, 990)
data1<-data.frame(city,rate)
colnames(data1)<-c('city','rate')

p <- ggplot(data = data1, aes(x=city,y=rate))
p <- p + geom_bar( stat="identity" , width = 0.5, fill = "cornflowerblue")
p <- p + geom_text(label=paste(data1$rate, "条记录", sep = " ") ,colour = "blue", vjust=-0.5)
p <- p + labs(x="",y="记录条数\n",title = "每秒操作记录数\n")
p <- p + theme( plot.title = element_text(size = 16, face = "bold"))

p
###secondOperTimes_2 end###


###demo begin###
library(ggplot2)
city<-c('北京', '上海', '天津')
rate<-c(0.53, 0.29, 0.18)
data1<-data.frame(city,rate)
colnames(data1)<-c('city','rate')

p <- ggplot(data = data1, aes(x=city,y=rate))
p <- p + geom_bar( stat="identity" , width = 0.4, fill = "cornflowerblue")
p <- p + geom_text(label=paste(data1$rate * 100, "%", sep = "") ,colour = "red", vjust=-1)
p <- p + labs(x="",y="份额\n",title = "各省份额\n")
p <- p + scale_y_continuous(limits=c(0, max(data1$rate)*1.1),labels = percent, breaks = seq(0, 2, 0.1))
p <- p + theme( plot.title = element_text(size = 16, face = "bold"))

p
###demo end###