Segue um CMR extremamente simples... a pergunta o resultado está certo?
require(plotrix)
plot(c(-1.2, 1.2), c(-1.2, 1.2), type = 'n', axes = FALSE, xlab = '', ylab = '')
rect(-1, -1, 1, 1, lwd = 1.5)
draw.circle(0, 0, 1)
Por que será que obtenho um gráfico em que o círculo ultrapassa o limite superior do quadrado?