r - ggplot2 によるファセット qqplot

Question

次のデータがあるとします。

datapoints1 = data.frame(categ=c(rep(1, n), rep(2, n)), vals1=c(rt(n, 1, 2), rnorm(n, 3, 4)))
datapoints2 = data.frame(categ=c(rep(1, n), rep(2, n)), vals2=c(rt(n, 5, 6), rnorm(n, 7, 8)))

を使用して、単一のコマンドで 2 つの QQplot を作成する機能を使用ggplot2するにはどうすればよいですか?facet

Answer 1

まず、両方のデータ フレームを結合します。

dat <- cbind(datapoints1, vals2 = datapoints2[ , 2])

次に、データを並べ替えます。

dat_sort <- do.call("rbind", lapply(unique(dat$categ), FUN = function(x) {data.frame(categ = x, vals1 = sort(dat$vals1[dat$categ == x]), vals2 = sort(dat$vals2[dat$categ == x]))}))

両方のサンプル ベクトルが同じ長さの場合は簡単です。

ggplot() + 
 geom_point(data = dat_sort, aes(x = vals1, y = vals2)) +
 facet_wrap( ~ categ, scales = "free")

例n = 1000: