使用R绘制比例条形图

#数据格式

代码

#绘制比列条形图

```

a=read.table('clipboard',head=T,sep ='\t')

install.packages('ggthemes', dependencies = TRUE)

library(ggplot2)

library(ggthemes)

## 调整因子水平

a$type <- factor(a$type,levels=c("INV","DUP","INS","DEL"))

ggplot(data=a,aes(accession,number,fill=type))+

  geom_bar(stat="identity",position="stack")+theme_bw()+

  scale_fill_wsj("rgby", "")+

  theme(axis.ticks.length=unit(0.5,'cm'))+

  guides(fill=guide_legend(title=NULL))

```