8

I have some data scraped and processed from the web in this form:

>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

I'm trying to created a stacked area chart, similar to the one here: Making a stacked area plot using ggplot2

When I do a

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')

enter image description here

I get this bizarre chart.

I want the areas not to cross eachother, and to fill the entire canvas as the total percent for each episode factor equals 100%.

1 Answer 1

10

That was interesting. You're missing a single row (Lane didn't appear in Tea Leaves...?), so

dat2 <- rbind(dat,data.frame(count = 0,name = 'lane',
                    episode = '02-tea-leaves',percent = 0))

ggplot(arrange(dat2,name,episode), aes(x = episode,y = percent)) + 
  geom_area(aes(fill=name,group = name), position='stack')

enter image description here

appears to work. But it had to be in the right order as well, and I'm not entirely sure why.

Sign up to request clarification or add additional context in comments.

2 Comments

@idris The missing row I understand (while it may make sense that you "mean" for that value to be 0, I think it would be dangerous to have ggplot assume that globally). The ordering is probably because its using geom_polygon under the hood.
@idris Also, I should add that using geom_bar might be easier, as I expect it would behave more predictably, and would display the same information.

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service and acknowledge you have read our privacy policy.

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.