problems with geom_area()

[simeond]

i am having some problems plotting a faceted stacked geom_area plot.
I've got the plot to work on a slightly different version of the data
- but now it seems to be all over the place & i cant figure out why.
i've checked data classes and grouping definitions but to no avail.

very grateful for help. example below


real.media.test <- read.csv(textConnection("
country,geog_label,region,date,variable,value
EMERGING EUROPE,Region,Europe-Emerging,1999,tv.spend,972.5001017
EMERGING EUROPE,Region,Europe-Emerging,2000,tv.spend,1544.6273
EMERGING EUROPE,Region,Europe-Emerging,2001,tv.spend,1811.063032
EMERGING EUROPE,Region,Europe-Emerging,2002,tv.spend,2307.89694
EMERGING EUROPE,Region,Europe-Emerging,2003,tv.spend,2503.926616
EMERGING EUROPE,Region,Europe-Emerging,2004,tv.spend,2854.275675
EMERGING EUROPE,Region,Europe-Emerging,2005,tv.spend,3063.656667
EMERGING EUROPE,Region,Europe-Emerging,2006,tv.spend,3463.971428
EMERGING EUROPE,Region,Europe-Emerging,2007,tv.spend,3899.211126
EMERGING EUROPE,Region,Europe-Emerging,2008,tv.spend,3992.448536
EMERGING EUROPE,Region,Europe-Emerging,2009,tv.spend,3378.034084
WESTERN EUROPE,Region,Europe-Western,1999,tv.spend,24639.15931
WESTERN EUROPE,Region,Europe-Western,2000,tv.spend,27385.23393
WESTERN EUROPE,Region,Europe-Western,2001,tv.spend,26510.01546
WESTERN EUROPE,Region,Europe-Western,2002,tv.spend,25883.18535
WESTERN EUROPE,Region,Europe-Western,2003,tv.spend,26020.4981
WESTERN EUROPE,Region,Europe-Western,2004,tv.spend,27519.99452
WESTERN EUROPE,Region,Europe-Western,2005,tv.spend,28026.03195
WESTERN EUROPE,Region,Europe-Western,2006,tv.spend,28127.05652
WESTERN EUROPE,Region,Europe-Western,2007,tv.spend,28726.74999
WESTERN EUROPE,Region,Europe-Western,2008,tv.spend,26155.67862
WESTERN EUROPE,Region,Europe-Western,2009,tv.spend,23902.5043
EMERGING EUROPE,Region,Europe-Emerging,1999,cinema.spend,5.976188029
EMERGING EUROPE,Region,Europe-Emerging,2000,cinema.spend,10.06256086
EMERGING EUROPE,Region,Europe-Emerging,2001,cinema.spend,11.45907663
EMERGING EUROPE,Region,Europe-Emerging,2002,cinema.spend,8.34362899
EMERGING EUROPE,Region,Europe-Emerging,2003,cinema.spend,14.78097638
EMERGING EUROPE,Region,Europe-Emerging,2004,cinema.spend,16.64806688
EMERGING EUROPE,Region,Europe-Emerging,2005,cinema.spend,19.14210222
EMERGING EUROPE,Region,Europe-Emerging,2006,cinema.spend,21.98476683
EMERGING EUROPE,Region,Europe-Emerging,2007,cinema.spend,23.39747099
EMERGING EUROPE,Region,Europe-Emerging,2008,cinema.spend,23.50842541
EMERGING EUROPE,Region,Europe-Emerging,2009,cinema.spend,19.9891644
WESTERN EUROPE,Region,Europe-Western,1999,cinema.spend,611.2736238
WESTERN EUROPE,Region,Europe-Western,2000,cinema.spend,740.0744181
WESTERN EUROPE,Region,Europe-Western,2001,cinema.spend,781.3544743
WESTERN EUROPE,Region,Europe-Western,2002,cinema.spend,768.2673211
WESTERN EUROPE,Region,Europe-Western,2003,cinema.spend,772.8391686
WESTERN EUROPE,Region,Europe-Western,2004,cinema.spend,755.1132602
WESTERN EUROPE,Region,Europe-Western,2005,cinema.spend,735.2481687
WESTERN EUROPE,Region,Europe-Western,2006,cinema.spend,694.3411584
WESTERN EUROPE,Region,Europe-Western,2007,cinema.spend,680.2746148
WESTERN EUROPE,Region,Europe-Western,2008,cinema.spend,583.0060066
WESTERN EUROPE,Region,Europe-Western,2009,cinema.spend,525.6194642
EMERGING EUROPE,Region,Europe-Emerging,1999,outdoor.spend,238.7604587
EMERGING EUROPE,Region,Europe-Emerging,2000,outdoor.spend,396.7422733
EMERGING EUROPE,Region,Europe-Emerging,2001,outdoor.spend,438.09683
EMERGING EUROPE,Region,Europe-Emerging,2002,outdoor.spend,548.8735395
EMERGING EUROPE,Region,Europe-Emerging,2003,outdoor.spend,609.1403528
EMERGING EUROPE,Region,Europe-Emerging,2004,outdoor.spend,701.0445227
EMERGING EUROPE,Region,Europe-Emerging,2005,outdoor.spend,708.4673738
EMERGING EUROPE,Region,Europe-Emerging,2006,outdoor.spend,836.1752819
EMERGING EUROPE,Region,Europe-Emerging,2007,outdoor.spend,901.3780982
EMERGING EUROPE,Region,Europe-Emerging,2008,outdoor.spend,885.6160897
EMERGING EUROPE,Region,Europe-Emerging,2009,outdoor.spend,666.2939912
WESTERN EUROPE,Region,Europe-Western,1999,outdoor.spend,4674.449487
WESTERN EUROPE,Region,Europe-Western,2000,outdoor.spend,5229.463918
WESTERN EUROPE,Region,Europe-Western,2001,outdoor.spend,5592.800004
WESTERN EUROPE,Region,Europe-Western,2002,outdoor.spend,5476.006933
WESTERN EUROPE,Region,Europe-Western,2003,outdoor.spend,5489.400434
WESTERN EUROPE,Region,Europe-Western,2004,outdoor.spend,5742.425855
WESTERN EUROPE,Region,Europe-Western,2005,outdoor.spend,5873.955557
WESTERN EUROPE,Region,Europe-Western,2006,outdoor.spend,6034.159792
WESTERN EUROPE,Region,Europe-Western,2007,outdoor.spend,6162.859705
WESTERN EUROPE,Region,Europe-Western,2008,outdoor.spend,5681.677246
WESTERN EUROPE,Region,Europe-Western,2009,outdoor.spend,5272.057796
EMERGING EUROPE,Region,Europe-Emerging,1999,newspaper.spend,
512.1004454
EMERGING EUROPE,Region,Europe-Emerging,2000,newspaper.spend,
824.5432721
EMERGING EUROPE,Region,Europe-Emerging,2001,newspaper.spend,830.632334
EMERGING EUROPE,Region,Europe-Emerging,2002,newspaper.spend,
1012.966598
EMERGING EUROPE,Region,Europe-Emerging,2003,newspaper.spend,
1035.227912
EMERGING EUROPE,Region,Europe-Emerging,2004,newspaper.spend,
1183.821205
EMERGING EUROPE,Region,Europe-Emerging,2005,newspaper.spend,923.630412
EMERGING EUROPE,Region,Europe-Emerging,2006,newspaper.spend,
967.9518796
EMERGING EUROPE,Region,Europe-Emerging,2007,newspaper.spend,
990.0904352
EMERGING EUROPE,Region,Europe-Emerging,2008,newspaper.spend,
918.5464386
EMERGING EUROPE,Region,Europe-Emerging,2009,newspaper.spend,
697.0120083
WESTERN EUROPE,Region,Europe-Western,1999,newspaper.spend,30104.28267
WESTERN EUROPE,Region,Europe-Western,2000,newspaper.spend,32811.19764
WESTERN EUROPE,Region,Europe-Western,2001,newspaper.spend,30512.51874
WESTERN EUROPE,Region,Europe-Western,2002,newspaper.spend,28367.34733
WESTERN EUROPE,Region,Europe-Western,2003,newspaper.spend,27169.96778
WESTERN EUROPE,Region,Europe-Western,2004,newspaper.spend,27755.64207
WESTERN EUROPE,Region,Europe-Western,2005,newspaper.spend,27629.03737
WESTERN EUROPE,Region,Europe-Western,2006,newspaper.spend,27703.47873
WESTERN EUROPE,Region,Europe-Western,2007,newspaper.spend,27980.32172
WESTERN EUROPE,Region,Europe-Western,2008,newspaper.spend,24666.49831
WESTERN EUROPE,Region,Europe-Western,2009,newspaper.spend,22025.97973
EMERGING EUROPE,Region,Europe-Emerging,1999,radio.spend,141.8009842
EMERGING EUROPE,Region,Europe-Emerging,2000,radio.spend,197.6915294
EMERGING EUROPE,Region,Europe-Emerging,2001,radio.spend,203.372674
EMERGING EUROPE,Region,Europe-Emerging,2002,radio.spend,218.3528625
EMERGING EUROPE,Region,Europe-Emerging,2003,radio.spend,281.666074
EMERGING EUROPE,Region,Europe-Emerging,2004,radio.spend,322.9514655
EMERGING EUROPE,Region,Europe-Emerging,2005,radio.spend,317.2570884
EMERGING EUROPE,Region,Europe-Emerging,2006,radio.spend,389.005319
EMERGING EUROPE,Region,Europe-Emerging,2007,radio.spend,466.8143372
EMERGING EUROPE,Region,Europe-Emerging,2008,radio.spend,440.0215152
EMERGING EUROPE,Region,Europe-Emerging,2009,radio.spend,357.4849114
WESTERN EUROPE,Region,Europe-Western,1999,radio.spend,4135.460182
WESTERN EUROPE,Region,Europe-Western,2000,radio.spend,4714.414244
WESTERN EUROPE,Region,Europe-Western,2001,radio.spend,4653.775257
WESTERN EUROPE,Region,Europe-Western,2002,radio.spend,4506.413832
WESTERN EUROPE,Region,Europe-Western,2003,radio.spend,4611.155055
WESTERN EUROPE,Region,Europe-Western,2004,radio.spend,4924.056494
WESTERN EUROPE,Region,Europe-Western,2005,radio.spend,5044.940041
WESTERN EUROPE,Region,Europe-Western,2006,radio.spend,5033.25397
WESTERN EUROPE,Region,Europe-Western,2007,radio.spend,5113.501341
WESTERN EUROPE,Region,Europe-Western,2008,radio.spend,4568.819743
WESTERN EUROPE,Region,Europe-Western,2009,radio.spend,4222.324963
EMERGING EUROPE,Region,Europe-Emerging,1999,magazine.spend,465.4535815
EMERGING EUROPE,Region,Europe-Emerging,2000,magazine.spend,565.6262833
EMERGING EUROPE,Region,Europe-Emerging,2001,magazine.spend,549.9307888
EMERGING EUROPE,Region,Europe-Emerging,2002,magazine.spend,561.8429497
EMERGING EUROPE,Region,Europe-Emerging,2003,magazine.spend,697.3818161
EMERGING EUROPE,Region,Europe-Emerging,2004,magazine.spend,781.2999695
EMERGING EUROPE,Region,Europe-Emerging,2005,magazine.spend,1021.266614
EMERGING EUROPE,Region,Europe-Emerging,2006,magazine.spend,1091.87192
EMERGING EUROPE,Region,Europe-Emerging,2007,magazine.spend,1096.698029
EMERGING EUROPE,Region,Europe-Emerging,2008,magazine.spend,1085.885263
EMERGING EUROPE,Region,Europe-Emerging,2009,magazine.spend,836.3279788
WESTERN EUROPE,Region,Europe-Western,1999,magazine.spend,16417.01608
WESTERN EUROPE,Region,Europe-Western,2000,magazine.spend,17963.2935
WESTERN EUROPE,Region,Europe-Western,2001,magazine.spend,17590.23266
WESTERN EUROPE,Region,Europe-Western,2002,magazine.spend,16411.46759
WESTERN EUROPE,Region,Europe-Western,2003,magazine.spend,15736.49203
WESTERN EUROPE,Region,Europe-Western,2004,magazine.spend,15824.66121
WESTERN EUROPE,Region,Europe-Western,2005,magazine.spend,15666.07679
WESTERN EUROPE,Region,Europe-Western,2006,magazine.spend,15754.85335
WESTERN EUROPE,Region,Europe-Western,2007,magazine.spend,15583.77662
WESTERN EUROPE,Region,Europe-Western,2008,magazine.spend,14065.23339
WESTERN EUROPE,Region,Europe-Western,2009,magazine.spend,12505.72063
EMERGING EUROPE,Region,Europe-Emerging,1999,internet.spend,3.410925674
EMERGING EUROPE,Region,Europe-Emerging,2000,internet.spend,13.46376298
EMERGING EUROPE,Region,Europe-Emerging,2001,internet.spend,19.7022613
EMERGING EUROPE,Region,Europe-Emerging,2002,internet.spend,25.99616286
EMERGING EUROPE,Region,Europe-Emerging,2003,internet.spend,43.36460207
EMERGING EUROPE,Region,Europe-Emerging,2004,internet.spend,80.83411226
EMERGING EUROPE,Region,Europe-Emerging,2005,internet.spend,144.0578483
EMERGING EUROPE,Region,Europe-Emerging,2006,internet.spend,220.0808513
EMERGING EUROPE,Region,Europe-Emerging,2007,internet.spend,360.5399759
EMERGING EUROPE,Region,Europe-Emerging,2008,internet.spend,466.012389
EMERGING EUROPE,Region,Europe-Emerging,2009,internet.spend,466.6415108
WESTERN EUROPE,Region,Europe-Western,1999,internet.spend,405.1663927
WESTERN EUROPE,Region,Europe-Western,2000,internet.spend,947.5405515
WESTERN EUROPE,Region,Europe-Western,2001,internet.spend,981.5053775
WESTERN EUROPE,Region,Europe-Western,2002,internet.spend,1140.234214
WESTERN EUROPE,Region,Europe-Western,2003,internet.spend,1511.397185
WESTERN EUROPE,Region,Europe-Western,2004,internet.spend,2304.879119
WESTERN EUROPE,Region,Europe-Western,2005,internet.spend,4093.714274
WESTERN EUROPE,Region,Europe-Western,2006,internet.spend,6723.023762
WESTERN EUROPE,Region,Europe-Western,2007,internet.spend,9411.185204
WESTERN EUROPE,Region,Europe-Western,2008,internet.spend,10788.60955
WESTERN EUROPE,Region,Europe-Western,2009,internet.spend,11379.91464
"))
closeAllConnections()


# this works - but is not what i want
m <- ggplot(real.media.test,aes(x=date,y=value,colour=variable))
m+geom_line()+facet_wrap(~region,scales="free")

# ... & this doesnt
m <- ggplot(real.media.test,aes(x=date,y=value,fill=variable))
m+geom_area()+facet_wrap(~region,scales="free")

[simeond]

folks

i am still perplexed why i cant get this chart to work. similar
syntax has worked for other data - & it doesnt appear to be a numeric/
factor issue.
very grateful for any pointers

thanks

[Mike Lawrence]

You've possibly failed to receive an answer because (1) the data you
provide didn't work (on my end there were extra newlines created that
I had to manually remove), and (2) You haven't explained what you want
or how the code fails to give you what you expect.

That said, when I get your code working it does indeed look like
something funky happens with geom_area (see attached). However, take a
look at what happens if you reduce the data set:

m <- ggplot(real.media.test[real.media.test$variable %in%
levels(real.media.test$variable)[1:2],],aes(x=date,y=value,fill=variable))
m+geom_area(position='stack')+facet_wrap(~region,scales="free")

Ok, that seems to work fine, as do plots of the first three, four, and
five levels of $variable. However, when we try a 6 variable area stack
(and no matter which 6), we get the odd results. Looks like a bug.

On the other hand, I actually fail to see the utility of the graph
you're requesting. The geom_line() version you cite as working looks
beautiful & very understandable whereas even looking at 2 variables in
a stacked geom_area() plot I completely lose the relationships. Then
again, maybe this is a specialized graph that is well understood in
your field?

By the way, you shouldn't email the list *and* Hadley at the same
time. Hadley checks this list so he'll get the message and doesn't
need to be double-hit.

--
Mike Lawrence
Graduate Student
Department of Psychology
Dalhousie University

Looking to arrange a meeting? Check my public calendar:
http://tr.im/mikes_public_calendar

~ Certainty is folly... I think. ~

[Felipe Carrillo]

Try faced_grid()

Western,2009,internet.spend,11379.91464"),header=TRUE)
closeAllConnections()

# ... & this doesnt
m <- ggplot(real.media.test,aes(x=date,y=value,fill=variable))

m+ geom_area()+ facet_grid(region~.,scales="free")

Felipe D. Carrillo
Supervisory Fishery Biologist
Department of the Interior
US Fish & Wildlife Service
California, USA

[hadley wickham]

Hi Simeon,

Yes, this is a bug. As Felipe mentioned, in the mean time you can
work around it by using facet_grid.

Hadley

--
http://had.co.nz/

[simeon duckworth]

hi hadley - firstly can i apologise for copying you in directly on my last email.  i felt regret as soon as i pressed "send" & fully accept mike's admonishing tone. sorry.  hopefully its helpful to have found a bug anyhow.

btw, felipe the pdf you attached seemed to have a textured surface to the shading.  is that just my eyes or is there a way of getting this effect?

thanks