Hi to all
I hope you can help me.

# I'm trying to plot the following ratio data with standard error bars
(horizontal).


ratioBiomass <- c(1.327, 0.865, 1.900, 0.992, 1.469, 1.381, 1.230,1.269,
2.411, 1.288, 1.861, 0.714, 1.341, 1.362, 1.065, 2.374)
SEratio <- c(19.28,  5.04,  0.01,  0.01,  0.90, 0.02,  0.002, 11.37,
 0.004,  0.29, 0.003,  0.13,  0.21,  0.52,  1.66, 14.57)
Species <- c("C. exoletus","C. rupestris","D. sargus","D. vulgaris","G.
xanthocephalus","L. bergylta","Mugilidae n.id.","N. puber","O.
vulgaris","P. pilicornis","S. salpa","S. cabrilla","S. bailloni","S.
melops","S. roissali","T. delaisi")
Commercial.Value <-
c("Non-Target","Non-Target","Target","Target","Non-Target","Target","Target","Target","Target","Non-Target","Target","Target","Non-Target","Non-Target","Non-Target","Non-Target")

dfInOutBiom2 <- data.frame
(ratioBiomass ,SEratio ,Species ,Commercial.Value)


#I tried a segplot which I think is the most adequate function to what I
need but I can't do it in black and white:

plotBiomRatio2 <- segplot(reorder(factor(Species),  ratioBiomass  ) ~ (-
SEratio  ) +
     SEratio  , data =  dfInOutBiom2,col="black",level = Commercial.Value,
 colorkey= TRUE, draw.bands = FALSE, centers = Biomass, ends =
"both",xlim=range(-SEratio  +0.5, SEratio +0.5), scales=list(cex=1.2,x =
list(tck = -1),y= list(font =
3,tck=-1)),cex=1.2,ylab=list(font=2,cex=1.2),xlab=list(font=2,cex=1.2),
pch=c(1,1,19,19,1,19,19,19,19,1,19,19,1,1,1,1), lwd=3, panel =
function(...) {
           panel.abline(v = 1, lty = 3, lwd=2)

panel.segplot(...)
})
plotBiomRatio2

Can you help me to print this plot in black and white, please?

Many thanks in advance.
Barbara

	[[alternative HTML version deleted]]

