Utwórz nienakładający się wykres skumulowanego obszaru za pomocą ggplot2
Mam kilka danych zeskanowanych i przetworzonych z internetu w tej formie:
<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>
Próbuję utworzyć wykres warstwowy, podobny do tego tutaj:Tworzenie wykresu skumulowanego obszaru za pomocą ggplot2
Kiedy robię
<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>
Dostaję ten dziwny wykres.
Chcę, aby obszary nie krzyżowały się ze sobą i aby wypełnić całe płótno jako całkowity procent dla każdegoepisode
współczynnik wynosi 100%.