【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(=element_text(size=rel(2),hjust=0.5), =element_text(size=rel(1.5)), =element_text(size=rel(1.5)), =element_line(color="white"), =element_line(color="white"), =element_rect(color="white"), =element_line(color="gray",size=1)) p3 + mytheme