qqline w ggplot2 z aspektami

To pytanie pokazało, jak zrobić qqplot z qqline w ggplot2, ale odpowiedź wydaje się działać tylko podczas drukowania całego zestawu danych na jednym wykresie.

Chcę znaleźć sposób na szybkie porównanie tych wykresów dla podzbiorów moich danych. To znaczy, chcę tworzyć qqplots z qqlines na wykresie z fasetami. Tak więc w poniższym przykładzie byłyby linie dla wszystkich 9 wykresów, każdy z własnym punktem przecięcia i nachyleniem.

df1 = data.frame(x = rnorm(1000, 10),
                 y = sample(LETTERS[1:3], 100, replace = TRUE),
                 z = sample(letters[1:3], 100, replace = TRUE))

ggplot(df1, aes(sample = x)) +
  stat_qq() +
  facet_grid(y ~ z)

questionAnswers(2)

yourAnswerToTheQuestion