library("ggplot2")
mutation_ACTG_summary = read.table(file = "C:/Users/Administrator/Desktop/data/mutation_summary.txt",header = TRUE,sep = "")
#mutation_ACTG_summary$area = factor(mutation_ACTG_summary$area,levels = c("FR1","CDR1","FR2","CDR2","FR3","FR4"))
qplot(mutation_type,percent,data=mutation_ACTG_summary,geom="boxplot",fill= type)