相关疑难解决方法(0)

我试图绘制两个不相交的触摸圆圈,但我想我错过了一些非常基本的东西......

jpeg(file="test.jpg")
diam <- sqrt (2)
plot (c(-1,1), c(1,-1), xlim=c(-5,5), ylim=c(-5,5))

symbols (c(-1,1), c(1,-1), circles=c(diam,diam), add=TRUE, inches=FALSE)
dev.off()

任何人都可以向我解释为什么这些圆圈重叠？

下面的代码片段创建了双变量法线数据,绘制它然后绘制椭圆以及线y = x

require(ellipse); require(MASS)

mu    <- c(30,30)
Sigma <- matrix(c(900,630,630,900),2,2,byrow=TRUE)
dt    <- data.frame(mvrnorm(n=1000,mu,Sigma))
names(dt) <- c("x","y")


plot(dt$x,dt$y)

df_ell <- data.frame(ellipse(cor(dt$x, dt$y), scale=c(sd(dt$x),sd(dt$y)), centre=c(mean(dt$x),mean(dt$y))))
lines(df_ell)
abline(a=0,b=1)

由于协方差结构和相等的平均值,线y = x应该穿过椭圆的长轴.

在方形图形窗口中,一切似乎都很好:

但是,如果调整窗口大小以使其不再是正方形,则椭圆似乎将其自身定位为远离线条:

造成这种情况的原因是什么？是预期的行为吗？