Jak wykreślić skumulowany pasek za pomocą ggplot?

Przeglądałem przykłady podane na tej stronie, ale z jakiegoś powodu nie mogłem znaleźć właściwy sposób na zrobienie tego.

Mam takie dane:

      Group Member Percentage
 [1,] "1"   "A"    "60"      
 [2,] "1"   "A"    "20"      
 [3,] "1"   "A"    "20"      
 [4,] "1"   "B"    "80"      
 [5,] "1"   "B"    "5"       
 [6,] "1"   "B"    "5"       
 [7,] "1"   "B"    "5"       
 [8,] "2"   "C"    "50"      
 [9,] "2"   "C"    "50"      
[10,] "2"   "D"    "25"      
[11,] "2"   "D"    "25"      
[12,] "2"   "D"    "25"      
[13,] "2"   "D"    "20"      
[14,] "2"   "D"    "5"   

I można je utworzyć za pomocą następujących poleceń:

a = c(1,1,1,1,1,1,1,2,2,2,2,2,2,2)
b = c("A","A","A","B","B","B","B","C","C","D","D","D","D","D")
c = c(60,20,20,80,5,5,5,50,50,25,25,25,20,5)
dat = data.frame(Group=a, Member=b, Percentage=c)
ggplot(dat, aes(x=Member, y=Percentage)) + geom_bar(stat="identity", position="dodge", fill="white", colour="black")

Ostatni wiersz daje mi następującą fabułę:

To, czego naprawdę szukam, to połączyć każdy słupek w jednej grupie z jednym słupkiem i przedstawić wartości procentowe jako ułamek tego samego słupka (gdzie każdy członek z każdej grupy jest wykreślany za pomocą jednego słupka, przy czym każdy słupek ma wartości procentowe jako ich zabarwienie). Więc użyłem następujących:

ggplot(dat, aes(x=Member, y=Percentage)) + geom_bar(stat="identity", colour="white")

I uzyskałem to:

Ale teraz nie mogę poprawnie uzyskać kolorów. Chcę czegoś dokładnie takiego jak podane poniżej, ale nie jestem w stanie zrozumieć, jak to zrobić. Jakieś sugestie, jak to zrobić?