Dear All,
Now with data. Any suggestion how to center the text in the filling would be
appreciated.
Kind regards,
Ashraf
library(lattice)
a<-c(100,100,93.57,50,0,0,6.43,50)
b<-c(1,1,1,1,0,0,0,0)
VISIT<-c(1,2,3,4,1,2,3,4)
VISIT<-as.character(VISIT)
stuffd<-data.frame(FREQ=a, VISIT=VISIT, RES=b)
barchart(FREQ~VISIT, data = stuffd,par.strip.text = list(cex = 0.35),
groups = RES, xlab="Visit",ylab="Frequency",
layout = c(1,1),
par.settings=list(superpose.polygon=list(col=colors()[c(636,96,256,92,27,376)])),
stack = T,
auto.key = list(points = FALSE, rectangles = TRUE,
space = "top"),
scales = list(x = list(alternating=c(1,1),tck=c(1,0),abbreviate = TRUE,
minlength
= 5, rot = 0),y=list(alternating=c(1,1),tck=c(1,0))),
panel = function(y,x,...){
panel.grid(h = -1, v = 0, col = "gray", lty = 3,lwd=1)
panel.barchart(x,y,...)
panel.text(x,y,label = round(y,3),cex=1)
}
)
On Mon, Nov 8, 2010 at 4:37 PM, RICHARD M. HEIBERGER <r...@temple.edu> wrote:
> Please post some data (fake data is fine) for stuffa. The example doesn't
> execute as is.
>
> Rich
>
>
>
> On Mon, Nov 8, 2010 at 10:27 AM, Ashraf Yassen
> <ashraf.yas...@gmail.com>wrote:
>
>> Hi All,
>>
>> I need some help in putting text in a stacked barplot. The barplot is
>> filled
>> with 5 levels and now I would like to put text to each level in the
>> stacked
>> barplot. However, it seems that the code that I am using is not placing
>> the
>> text at the correct hight (centered at each fill) in the barplot. Any
>> suggestions to improve the code to make it work?
>>
>> barchart(FREQ ~ VISIT |which*as.factor(TRTN), data = stuffa,par.strip.text
>> =
>> list(cex = 0.35),
>> groups = RES, xlab="Visit",ylab="Frequency",
>> layout = c(4,2),
>>
>> par.settings=list(superpose.polygon=list(col=colors()[c(636,96,256,92,27,376)])),
>> stack = T,
>> auto.key = list(points = FALSE, rectangles = TRUE,
>> space = "top"),
>> scales = list(x = list(alternating=c(1,1),tck=c(1,0),abbreviate = TRUE,
>> minlength
>> = 5, rot = 0),y=list(alternating=c(1,1),tck=c(1,0))),
>> panel = function(y,x,...){
>> panel.grid(h = -1, v = 0, col = "gray", lty = 3,lwd=1)
>> panel.barchart(x,y,...)
>> panel.text(x,y,label = round(y,1),cex=0.48)
>> }
>> )
>>
>>
>>
>> Kind regards,
>> Ashraf Yassen
>>
>> [[alternative HTML version deleted]]
>>
>> ______________________________________________
>> 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]]
______________________________________________
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.
