par(bg="whitesmoke")
plot(NA,xlim=c(1,7), ylim=c(0,5), las=0.1, 
     xlab='', ylab='',axes=F,xaxt="n",yaxt="n",
     main="Bandera Nacional de Perú")
rect(3, 1,5, 5, col='white',border = "white",lwd=2)
rect(1, 1, 3, 5, col='red',border = "red",lwd=2)
rect(5,1,7, 5, col='red',border = "red",lwd=2)
text(x=4,y=0.5,labels = "07 de junio")