Hi all
I was wondering if it is possible to get rid of the horizontal strips and
produce each barchart with a left y axes and lower x axes only. Also can you
specify an exact size of graph ie 88mm wide with a font size of 'x'.
library(lattice)
library(latticeExtra)
n=as.factor(c(1:5,1:5))
Breed=as.factor(c(rep("Cow",3),rep("Sheep",3),rep("Goat",2),rep("Yak",2)))
Test=as.factor(c(rep("Bovine viral diarrhoea",5),rep("Border
Disease",5)))
Titer=as.numeric(c(10,20,30,40, 50,15, 25, 35, 45, 55))
heif=data.frame(n,Breed, Test, Titer)
x=barchart( Titer ~ n | Test+Breed, data=heif,
layout = c(2,4),between = list(y = c(0.5),x = c(0.5)),scales = list(x =
list(alternating = 1, tck = c(1,0)),
y = list(alternating = 1, tck = c(1,0))), xlab = "count (n)", ylab =
"titer")
useOuterStrips(x)
Kind regards
Andrew McFadden MVS BVSc | Veterinary Epidemiologist,
Investigation and Diagnostic Centre | Biosecurity New Zealand
Ministry of Agriculture and Forestry | 66 Ward St, Wallaceville | PO Box 40 742
| Upper Hutt | New Zealand
Telephone: 64-4-894 5611 | Facsimile: 64-4-894 4973| Mobile: 027-733-1791 | Web:
www.maf.govt.nz
This email message and any attachment(s) is intended solely for the addressee(s)
named above. The information it contains is confidential and may be legally
privileged. Unauthorised use of the message, or the information it contains,
may be unlawful. If you have received this message by mistake please call the
sender immediately on 64 4 8940100 or notify us by return email and erase the
original message and attachments. Thank you.
The Ministry of Agriculture and Forestry accepts no responsibility for changes
made to this email or to any attachments after transmission from the office.
[[alternative HTML version deleted]]
