ggplot(df,],aes(x=group,y=value))
+geom_bar(stat = "identity",width = 0.57) #width是條形寬度
+theme_bw() #去掉灰色的背景
+scale_x_discrete(labels=c("AUC-B","AUC-P")) #x軸分組的標(biāo)簽
+labs(x="time",y="AUC") #x軸和y軸的標(biāo)簽
+theme(title = element_text(size=24),axis.text= element_text(size=16))
# title控制xy軸的標(biāo)題字體大小，axis.text是軸分組標(biāo)簽的字體大小

ggplot(df,aes(x=group,y=value,fill=group2))
+geom_bar(stat = "identity",position = position_dodge(0.7),width = 0.7)
#position_dodge是并排而不是堆積條形圖參數(shù)的0.7是簇內(nèi)條形間距，width是條形寬度
+scale_fill_grey(start=0.7,end=0.4,labels=c("AUC-B","AUC-P"))
#fill_grey是灰度，后面的start和end是灰度百分比，labels顯示在圖例上
#想用彩色可以用 scale_fill_brewer()
+theme_bw() #去灰色背景
+scale_x_discrete(labels=c("<80%","80-90%","90-97%","97-100%"))
#改變x軸分組的標(biāo)簽
+labs(x="TIR",y="AUC") #改變x和y軸的標(biāo)簽
+theme(legend.position = c(0.9,0.9)) #圖例位置，c(1,1)是右上角，c(0,0)是原點
+guides(fill=guide_legend(title=NULL)) #改變圖例標(biāo)題，NULL就是取消標(biāo)題

ggplot(data_final2,aes(x=relative_time,fill=group,alpha=1/10))+geom_density()