Fernando,

Listei o código da draw.circle() e pelo que pude entender, ela depende diretamente das definições da tela ativa (par).

function (x, y, radius, nv = 100, border = NULL, col = NA, lty = 1,

lwd = 1)

{

xylim <- par("usr")

plotdim <- par("pin")

ymult <- (xylim[4] - xylim[3])/(xylim[2] - xylim[1]) * plotdim[1]/plotdim[2]

angle.inc <- 2 * pi/nv

angles <- seq(0, 2 * pi - angle.inc, by = angle.inc)

if (length(col) < length(radius))

col <- rep(col, length.out = length(radius))

for (circle in 1:length(radius)) {

xv <- cos(angles) * radius[circle] + x

yv <- sin(angles) * radius[circle] * ymult + y

polygon(xv, yv, border = border, col = col[circle], lty = lty,

lwd = lwd)

}

invisible(list(x = xv, y = yv))

}

Éder Comunello <c omunello.eder@gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]

Em 14 de novembro de 2013 20:40, FHRB Toledo <fernandohtoledo@gmail.com> escreveu:

Éder,

Sua solução funcionou... o engraçado é que, quando não setamos o "asp=1" plotando os dois círculos (pela draw.circle() e "fazendo na mão") um circulo fica correto e o outro não!

obrigado.

att,
FH

2013/11/14 Éder Comunello <comunello.eder@gmail.com>

Olá, Fernando!

As figuras estão distorcidas. Tente o primeiro código definindo 'asp=1' em plot(). Aqui deu certo!

require(plotrix)

#x11()
plot(c(-1.2, 1.2), c(-1.2, 1.2), type = 'n', axes = FALSE, xlab = '', ylab = '', asp=1)

rect(-1, -1, 1, 1, lwd = 1.5)
draw.circle(0, 0, 1)

Éder Comunello <c omunello.eder@gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]

Em 14 de novembro de 2013 19:58, FHRB Toledo <fernandohtoledo@gmail.com> escreveu:

Obtive uma resposta correta...

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)

x <- cos(seq(0, 2 * pi, length = 1000))
y <- sin(seq(0, 2 * pi, length = 1000))
polygon(x, y, lwd = 1.5)

att,
FH

2013/11/14 FHRB Toledo <fernandohtoledo@gmail.com>

Senhores,

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?

att,

FH

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.