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.
