Ups, sorry, just realized the first code is wrong, its one with a panel
function already. The right code would be:
Tuvalu <- c(9,3,4,0,3,0,0)
Singapor <- c(38,0,0,0,12,19,0)
Samoa <- c(26,16,2,0,5,2,0)
PNG <- c(56,4,0,5,2,0,56)
Micronesia <- c(6,0,0,0,0,0,0)
graph4 <- data.frame(rbind(Tuvalu,Singapor,Samoa,PNG,Micronesia))
graph4$country <- c("Tuvalu","Singapore","Samoa","Papua New
Guinea","Micronesia")
barchart(country ~ X1 + X2 + X3 + X4 + X5 + X6 + X7, data=graph4,
stack=T,
xlim=c(0,130),
scales = list(alternating = 1, cex=1.2),
xlab="",
#col=c("grey1","grey17","grey33","grey50","grey67","grey83","grey100")
col=c("grey20","grey100","grey50","grey83","grey33","grey67","grey0"))
Apologies!
--
View this message in context:
http://r.789695.n4.nabble.com/Using-abline-in-lattice-tp3941012p3941024.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.
