【R语言可视化】ggplot2 自定义柱状图

rm(list=ls())
gc()
library(ggplot2)
# 我们拿到这样的数据
name <- c("多","中","少","中","少")
data <- data.frame(name) # 转化为数据框



p2 <- ggplot(data,aes(x=name)) + 
  geom_bar(width=0.7,fill=rgb(50,163,221,maxColorValue=255)) + 
  xlab("种类") + ylab("") + ggtitle("运动情况")


(p3 <- p2 + geom_text(stat="count",
                      label=paste(table(name)/sum(table(name))*100,'%',sep=''),
                      colour = "black", vjust=-0.5, size=4.7))

mytheme <- theme_bw() + 
  theme(plot.title=element_text(size=rel(2),hjust=0.5),
        axis.title=element_text(size=rel(1.5)),
        axis.text=element_text(size=rel(1.5)),
        panel.grid.major=element_line(color="white"),
        panel.grid.minor=element_line(color="white"),
        panel.border=element_rect(color="white"),
        axis.line=element_line(color="gray",size=1))

p3 + mytheme