Pete Brecknock wrote
> Hi
> 
> The code below plots a stacked barchart.
> 
> I would like to overlay on this chart a circular plotting character at the
> sum of the bars for each month. The plotted characters should be joined
> with a line. 
> 
> So, for "1/1/2014", I would like to see a point at 200 (-1000+1000+200).
> For "2/1/2014" a point at 600 (-2000+2000+600) and so on.
> 
> # Barchart Plot
> library(lattice)
> 
> d0 <-
> structure(c(-1000,-2000,-2500,-5000,1000,2000,3000,2000,200,600,1000,900),
> .Dim = c(4L, 3L), 
>       .Dimnames = list(c("1/1/2014", "2/1/2014", "3/1/2014", "4/1/2014"),
> NULL))
> mycols <- c("red","brown","orange")
> barchart(d0, 
>          horizontal=FALSE, 
>          stack=TRUE, 
>          auto.key=list(text=c("A","B","C"),
>            columns =3,
>            title="", 
>            cex.title =0.9,
>            border=FALSE), 
>          xlab="Month", 
>          ylab="Difference",
>          main="Stacked Barchart",
>          par.settings = simpleTheme(col = mycols)) 
> 
> Any pointers would be gratefully received.
> 
> Kind regards
> 
> Pete

I put together the following solution but would be interested in any other
approaches people may have to share.

library(lattice) 
library(latticeExtra)

d0 <-
structure(c(-1000,-2000,-2500,-5000,1000,2000,3000,2000,200,600,1000,900),
.Dim = c(4L, 3L), 
      .Dimnames = list(c("1/1/2014", "2/1/2014", "3/1/2014", "4/1/2014"),
NULL)) 
mycols <- c("red","brown","orange") 

d1 <- data.frame("Dt"=row.names(d0), "Sum"=rowSums(d0))

barchart(d0, 
         horizontal=FALSE, 
         stack=TRUE, 
         auto.key=list(text=c("A","B","C"), 
           columns =3, 
           title="", 
           cex.title =0.9, 
           border=FALSE), 
         xlab="Month", 
         ylab="Difference", 
         main="Stacked Barchart",
         par.settings = simpleTheme(col = mycols)) +

as.layer(xyplot(Sum~Dt, data=d1, type="o", pch=19, cex=1.8, col="black",
lwd=3), y.same=TRUE)

Thanks 

Pete



--
View this message in context: 
http://r.789695.n4.nabble.com/Lattice-Barchart-tp4685387p4685400.html
Sent from the R help mailing list archive at Nabble.com.

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to