先声明一下所用的数据集
第一个图如下
这个图主要在于x轴的顺序设置上,如果按不做任何处理的话>3那个就会在2之前,解决方法是b[,1]<-factor(b[,1],levels=c('2','3',">3")),这句代码可以重新设置因子的级别
完整代码如下:
a[,1]<-factor(a[,1],levels=c('2','3',">3"))
ggplot(a,aes(x=a[,1],y=a[,2]))+geom_bar(stat="identity")+xlab('转录本数目')+ylab('主导转录本百分比')
第二个图如下:
这个图的关键在于要求颜色是黑白,代码如下
col<-c("black","gray")
ggplot(data = c, aes(c1, c3, fill = c[,2])) +geom_bar(stat = 'identity', position = 'dodge')+
xlab(' ')+ylab('个数')+ scale_fill_manual(values = col)+theme(legend.position='none')+
geom_text(aes(label = c[,2]), position = position_dodge(0.9),vjust=-0.2)
其中scale_fill_manual(values = col)是用来自定义颜色的