This is based on lattice, not ggplot, and I hope I understand what you are
trying to do.

require(lattice)

x <- read.table(text="
        Value Bar Segment
 1.10020075   1       1
-1.37734577   2       1
 2.50702876   3       1
 0.58737028   3       2
 0.21106851   3       3
-2.50119261   4       1
 1.34984831   5       1
-0.27556149   6       1
-1.54401647   6       2
-2.75975562   6       3
-0.09527123   6       4
 1.36331646   7       1
-0.36051429   8       1
 1.36790999   9       1
 0.15064633   9       2
 0.34022421   9       3
-0.64512970  10       1
 0.83268199  11       1
-1.50117728  12       1
 1.09004959  13       1
", header=TRUE)
qplot(factor(Bar), data = x, geom = "bar", fill = factor(Segment))

xx <- matrix(0, 13, 4,
             dimnames=list(1:13, 1:4))
for (i in 1:nrow(x)) xx[x$Bar[i], x$Segment[i]] <- x$Value[i]
xx
barchart(xx, horizontal=FALSE)


Please see the plot.likert function in the HH package

## install.packages("HH") ## if necessary
library(HH)
?likert

for a development of graphs for data similar to what you have.

Rich


On Sun, Jan 15, 2012 at 9:08 PM, J Toll <jctoll@gmail.com> wrote:

> Hi,
>
> I'm trying to create a stacked bar plot using ggplot2. Rather than
> plotting the count of each of the 13 "Bar" factors on the Y axis, I
> would like to represent the sum of the Values associated with each of
> the 13 "Bar" factors. Is there a way to do that?  Given the following
> data, that would obviously mean that there would be some negative sums
> represented.  Here's a bit of example data along with the command I've
> been using.
>
> >library(ggplot2)
> > x
>         Value Bar Segment
> 1   1.10020075   1       1
> 2 -1.37734577 <2%20%20-1.37734577>   2       1
> 3   2.50702876 3 <2.50702876%20%20%203>       1
> 4 0.58737028 <4%20%20%200.58737028>   3       2
> 5   0.21106851   3       3
> 6  -2.50119261   4       1
> 7 1.34984831 <7%20%20%201.34984831>   5       1
> 8 -0.27556149 <8%20%20-0.27556149>   6       1
> 9 -1.54401647 <9%20%20-1.54401647>   6       2
> 10 -2.75975562   6       3
> 11 -0.09527123   6       4
> 12 1.36331646 <12%20%201.36331646>   7       1
> 13 -0.36051429   8       1
> 14 1.36790999 <14%20%201.36790999>   9       1
> 15 0.15064633 <15%20%200.15064633>   9       2
> 16 0.34022421 <16%20%200.34022421>   9       3
> 17 -0.64512970  10       1
> 18 0.83268199 <18%20%200.83268199>  11       1
> 19 -1.50117728  12       1
> 20  1.09004959  13       1
> > qplot(factor(Bar), data = x, geom = "bar", fill = factor(Segment))
>
> Thanks for any suggestions you might have.
>
> James
>
> ______________________________________________
> 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<http://www.r-project.org/posting-guide.html>
> and provide commented, minimal, self-contained, reproducible code.
>

	[[alternative HTML version deleted]]

