[R] how to create a segplot in black and white?

[Rui Barradas]

Hello,

Try the following.


#---------- this is new
colfun <- colorRampPalette(c("black", "white"))
cols <- colfun(nrow(dfInOutBiom2))
#---------- end

plotBiomRatio2 <- segplot(
     reorder(factor(Species), ratioBiomass) ~ (-SEratio  ) + SEratio,
     data =  dfInOutBiom2,
     #-------------- this changed
     col = cols,
     level = NULL,
     colorkey = list(col = cols),
     #-------------- end
     draw.bands = FALSE,
     centers = ratioBiomass,
     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,
     xlab = list(font=2, cex=1.2),
     ylab = 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

Hope this helps,

Rui Barradas

Em 10-09-2012 17:59, barbara costa escreveu:
> 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]]
>
> ______________________________________________
> R-help at 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.