[R] Using abline in lattice

[weiflo]

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.