p_bar=p_bar=ggplot(dat1,aes(x=dat1[,1],y=dat1[,2],fill=dat1[,1]))+
geom_bar(stat="identity",position ="dodge",width = 0.8)
p_bar
默认颜色应该不会有差别的,除非内置的颜色改变,如果确实需要彩虹色,偏右的这种,可以手动设置