ggplot2绘图-1：柱形图

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