Eu tenho alguns dados copiados e processados ​​da web neste formulário:

<code>>head(dat)
  count  name          episode    percent
1   309   don 01-a-little-kiss 0.27081507
2   220 megan 01-a-little-kiss 0.19281332
3   158  joan 01-a-little-kiss 0.13847502
4   113 peggy 01-a-little-kiss 0.09903593
5   107 roger 01-a-little-kiss 0.09377739
6    81  pete 01-a-little-kiss 0.07099036
</code>

Estou tentando criar um gráfico de áreas empilhadas, semelhante ao aqui:Fazendo uma plotagem de área empilhada usando ggplot2

Quando eu faço um

<code>require(RCurl)
require(ggplot2)
link <- getURL("http://dl.dropbox.com/u/25609375/so_data/final.txt")
dat <- read.csv(textConnection(link), sep=' ', header=FALSE, 
             col.names=c('count', 'name', 'episode'))

dat <- ddply(dat, .(episode), transform, percent = count / sum(count))

ggplot(dat, aes(episode, percent, group=name)) + 
     geom_area(aes(fill=name, colour=name), position='stack')
</code>

Eu recebo este gráfico bizarro.

Eu quero que as áreas não se cruzem e preencher a tela inteira como a porcentagem total para cadaepisode fator é igual a 100%.