Заполнение наложенных эллипсов в графах ggplot2

Этот вопрос является продолжением "Как эллипс данных можно наложить на диаграмму рассеяния ggplot2?".

Я хочу создать 2D-диаграмму рассеяния, используя ggplot2 с заполненными наложенными эллипсами доверия. Используя решение Etienne Low-Décarie из вышеупомянутого поста, я получаю наложенные эллипсы для работы. Решение основано на stat_ellipse, доступном из https://github.com/JoFrhwld/FAAV/blob/master/r/stat-ellipse.R

Q: Как я могу заполнить внутреннюю область эллипса определенным цветом (точнее, я хочу использовать цвет границы эллипса с некоторой альфой)?

Вот минимальный рабочий пример, модифицированный из вышеупомянутого сообщения:

# create data
set.seed(20130226)
n <- 200
x1 <- rnorm(n, mean = 2)
y1 <- 1.5 + 0.4 * x1 + rnorm(n)
x2 <- rnorm(n, mean = -1)
y2 <- 3.5 - 1.2 * x2 + rnorm(n)
class <- rep(c("A", "B"), each = n)
df <- data.frame(x = c(x1, x2), y = c(y1, y2), colour = class)

# get code for "stat_ellipse"
library(devtools)
library(ggplot2)
source_url("https://raw.github.com/JoFrhwld/FAAV/master/r/stat-ellipse.R")

# scatterplot with confidence ellipses (but inner ellipse areas are not filled)
qplot(data = df, x = x, y = y, colour = class) + stat_ellipse()

Результат рабочего примера:

Ответ 1