ポイントサイズをggplot2のプロットのスケールに合わせるにはどうすればいいですか？

Question

のは、いくつかのデータを生成してみましょう。ここでは

x <- -10*cos(seq(0, pi, length.out = 100))+1 
y <- 10*seq(0, pi, length.out = 100) 
xerr <- rep(2, 100) 
yerr <- rep(2, 100) 
dd <- as.data.frame(cbind(x, y, xerr, yerr)) 

は、私は（私は定数それらを設定している便宜のために）自分のエラー、xerrとyerrでいくつかのポイントのxとy座標を持っています。これらの誤差を点の大きさで表現したいと思います。これは簡単になんとかです：

ggplot() + 
    geom_point(data = dd, aes(x, y, size = sqrt(xerr^2 + yerr^2)), colour = "gray") + 
    geom_path(data = dd, aes(x, y), colour = "red", size = .5) + 
    scale_size_identity() + 
    theme_bw() 

しかし、これらの点の大きさは、プロットのスケールとは関係のない規模で定義されています。プロットのスケールに関連してポイントの次元を調整する方法はありますか？上記の例では、各点の半径は2.828に等しく、現在は1以上でなければなりません。

Answer 1

エラーのサイズで定義された軸を使用して、省略記号を明示的に描画する方法もあります。この目的のために

x <- -10*cos(seq(0, pi, length.out = 10))+1 
y <- 10*seq(0, pi, length.out = 10) 
xerr <- runif(10, 1, 5) 
yerr <- runif(10, 1, 5) 
dd <- as.data.frame(cbind(x, y, xerr, yerr)) 
dd$frame <- factor(seq(1:10)) 

我々は楕円を生成するために、私たちの関数を定義：

ellipseFun <- function(center = c(0, 0), axes = c(1, 1), npoints = 101){ 
    tt <- seq(0,2*pi, length.out = npoints) 
    xx <- center[1] + axes[1] * cos(tt) 
    yy <- center[2] + axes[2] * sin(tt) 
    return(data.frame(x = xx, y = yy)) 
} 

我々は、すべての楕円のための行列生成：

ddEll <- data.frame() 
for(k in levels(dd$frame)){ 
    ddEll <- rbind(ddEll, cbind(as.data.frame(with(dd[dd$frame == k,], ellipseFun(center = c(x, y), axes = c(xerr, yerr), npoints = 101))),frame = k)) 
} 

をそして、最後に、我々はそれらをプロットすることができます：

library(ggplot2) 
ggplot() + 
    geom_point(data = dd, aes(x, y)) + 
    geom_polygon(data=ddEll, aes(x = x, y = y, group = frame), colour = "gray", fill = "red", alpha = .2) + 
    scale_size_identity() + 
    theme_bw() + 
    xlim(c(-20, 20)) + 
    ylim(c(-5, 35)) + 
    coord_fixed()