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")