2020-04-13-In-class exercises-3

Flag of Denmark

長寬比為34:28

垂直方向（紅：白：紅=3:1:3）

水平方向（紅：白：紅=3:1:4.5)

op <- par(bg="aliceblue")
plot.new()
plot.window(xlim=c(1, 34), 
            ylim=c(1, 28))
abline(h=seq(1, 1, 1), lty=3, 
       col='white')
axis(1)
axis(2)
title(xlab='x-axis', ylab='y-axis', 
      main='flag of Denmark')
rect(0, 0, 12, 12, col="red", 
     border="white")
rect(16, 0, 34, 12, col="red", 
     border="white")
rect(0, 16, 12, 28, col="red", 
     border="white")
rect(16, 16, 34, 28, col="red", 
     border="white")