lable1=rbind(b1,b2,b3,b4,b5,b6,b7)
lable2=c("three days","three weeks","three months")
#lable2=c("F1","F2","F3")
data= structure( data,.Dimnames=list( c(lable1),c(lable2)))
data=data[-301:-400,]
data.df=melt(data)
data.df = rename(data.df, c(X1="lable1",X2="lable2"))
library(ggplot2)
#基函数
p=ggplot(data.df,aes(x=lable2, y=value))+
#箱线图函数
geom_boxplot(notch = TRUE,aes(fill=lable1)) +
#颜色标尺
scale_fill_brewer(palette = "Set3")+
labs(x = "scenario",y = "Variability")
p=p + theme(axis.text.x = element_text(size = 14, color = "black"),axis.text.y = element_text(size = 14, color = "black"))
p+theme(axis.title.x = element_text(size = 16),axis.title.y = element_text(size = 16))