作图
library(ggplot2)
pp$mod <- factor(pp$Term_description, levels=pp$Term_description, labels=pp$Term_description)
ggplot(pp,aes(x=mod,y=p,fill=new))+
geom_bar(stat = "identity",width=0.4)+guides(fill=FALSE)+
scale_y_continuous(breaks=c(0.5,1,
R语言 分面条形图
最新推荐文章于 2024-06-04 15:55:30 发布