请问如何用ggplot2来画出德国国旗？

请问如何用ggplot2来画出德国国旗，麻烦写下具体代码，有偿！

library(ggplot2);library(dplyr)
data.use = expand.grid(x = seq(0,5,.1),y = seq(0,3,.1)) %>% tibble() %>% 
    mutate(col = ifelse(0 <= y&y <1 ,"#FFCC00","#000000"),col = ifelse(1 <= y&y <2 ,"#FF0000",col))

data.use %>% ggplot(aes(x,y)) + geom_raster(aes(fill = col)) + coord_equal() + theme_classic() + scale_fill_identity()