如何修改R中簇状条形图的参数

大家好，请问如何使用R语言绘制簇状条形图？查找了ggplot2可以绘制，但是我想修改一下参数，让其变为图案填充式黑白图，怎么修改呢？谢谢大家。
我的代码如下：

1. RH<-c(0.2,0.4,0.6,0.8,1.0,0.2,0.4,0.6,0.8,1.0,0.2,0.4,0.6,0.8,1.0,0.2,0.4,0.6,0.8,1.0)
   
2. RMSE<-c(1.330554, 1.248477, 1.728377, 1.729684, 1.823252, 1.343897,1.303902, 1.662658, 1.667931, 1.618225, 1.166896, 1.257189,1.665656, 1.665969, 1.606830, 1.343897, 1.303902, 1.662658,1.667931, 1.618225)
   
3. MODEL<-c("ONLS","ONLS","ONLS","ONLS","ONLS","QR","QR","QR","QR","QR","FIXED","FIXED","FIXED","FIXED","FIXED","GAM","GAM","GAM","GAM","GAM")
   
4. date<-data.frame(RH,RMSE,MODEL)
   
5. library(ggplot2)
   
6. ggplot(date,aes(x=RH,y=RMSE,fill=MODEL))+geom_bar(position = "dodge",stat="identity")

复制代码

出图结果如下：


怎么调整参让图形如下呢？

需要其他包帮助一下

https://coolbutuseless.github.io/package/ggpattern/

ggpattern包