data<-read.table("R7111114.TRB.clones.txt",header=T,row.names=1,sep="\t")
pdf("top10cdr3aa.pdf")
p=ggplot(data[1:10,],aes(x=c(1:10),y=data[1:10,2]*100))
+geom_bar(stat = "identity")
+labs(x="clone",y="Frequency(%)",title="Top10 of CDR3 AA") #修改xy轴标题,和图题
+ scale_x_continuous(breaks=seq(0, 10, 1)) #修改x轴刻度
+ scale_y_continuous(breaks=seq(0,1.5,0.25)) #修改y轴刻度
dev.off
ggplot2绘图-1:柱形图
©著作权归作者所有,转载或内容合作请联系作者
- 文/潘晓璐 我一进店门,熙熙楼的掌柜王于贵愁眉苦脸地迎上来,“玉大人,你说我怎么就摊上这事。” “怎么了?”我有些...
- 文/花漫 我一把揭开白布。 她就那样静静地躺着,像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上,一...
- 文/苍兰香墨 我猛地睁开眼,长吁一口气:“原来是场噩梦啊……” “哼!你这毒妇竟也来了?” 一声冷哼从身侧响起,我...
推荐阅读更多精彩内容
- Cucurrucucu Paloma 鸽子之歌 鸽子之歌是古巴音乐国宝,诗人、音乐家、政治家Caetano Vel...