[prev in list] [next in list] [prev in thread] [next in thread] 

List:       r-help
Subject:    Re: [R] modify strip labels with given text using lattice package
From:       David Winsemius <dwinsemius () comcast ! net>
Date:       2015-08-31 23:34:10
Message-ID: C1183D3A-5DEA-4E52-80F0-E71E84EA76F1 () comcast ! net
[Download RAW message or body]


On Aug 31, 2015, at 1:17 PM, Luigi Marongiu wrote:

> Dear all,
> I am drawing a barchart plot with lattice and the resulting strips are
> taking the value of the variable being compared (in this example
> "assay"). However I would like to write myself the value to place into
> the strips, let's say I want to call the variables as "molecular test"
> and "serological test" the values "a" and "b" respectively within
> "assay". I have tried different approaches taken from the web but
> nothing worked.

Look at ?barchart in the section on arguments to strip and then at ?strip.default for \
how to use `strip.custom`. If you needed finer control there are functions that \
return the panel, but this request did not require using it:

barchart(
   test ~ count|assay,
   df,
   groups = res,
   stack = TRUE,
   main = "Comparison of test results",
   xlab = "Count",
   col = c("yellow", "blue"),
   par.settings = list(
       strip.background = list(col="light grey"),
       superpose.polygon=list(col= c("yellow", "blue"))
   ),
   strip = strip.custom( factor.levels=c("molecular test","serological test") ),

   scales = list(
       alternating = FALSE
   ),
   key = list(
       space="top",
       columns=2,
       text=list(c("Negative", "Positive"), col="black"),
       rectangles=list(col=c("yellow", "blue"))
   )
)

> Would you have any tip?
> Best regards
> Luigi
> 
> > > > 
> test <- rep(c("Adenovirus", "Rotavirus", "Norovirus", "Rotarix",
> "Sapovirus"), 2)
> res <- c(0, 1, 0, 1,0, 1,0, 1,0, 1, 0, 1, 0, 1,0, 1,0, 1,0, 1)
> count <- rnorm(20)
> assay <- c(rep("a", 10), rep("b", 10))
> 
> df <- data.frame(test, res, count, assay, stringsAsFactors = FALSE)
> 
> library(lattice)
> barchart(
> test ~ count|assay,
> df,
> groups = res,
> stack = TRUE,
> main = "Comparison of test results",
> xlab = "Count",
> col = c("yellow", "blue"),
> par.settings = list(
> strip.background = list(col="light grey"),
> superpose.polygon=list(col= c("yellow", "blue"))
> ),
> scales = list(
> alternating = FALSE
> ),
> key = list(
> space="top",
> columns=2,
> text=list(c("Negative", "Positive"), col="black"),
> rectangles=list(col=c("yellow", "blue"))
> )
> )
> 
> ______________________________________________
> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> 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.

David Winsemius
Alameda, CA, USA

______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
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.


[prev in list] [next in list] [prev in thread] [next in thread]