# # hist.log10() # # ylog scale version of hist, from a Jan 2001 discussion on r-help # # usage: just like hist() # hist.log10 <- function( x, breaks="Sturges", ... ) { h <- hist( x, plot=F, breaks, ... ) h$counts <- log10( h$counts + 1 ) plot( h, ylab="Log10( Frequency )", ... ) }