Skip to content

Histogram plot help

4 messages · Rui Barradas, David L Carlson, YAddo

#
Dear All:

I plotted a histogram with Abline, clipping with color codes but i run into
some problems.   The "abline' does not show up at all,  and when i request
the 'prob=True' (to obtain the freqs), my clipped region colors the section
of the graph instead of the plot only.

Is there any way i can get the y-axis figures  to be in whole numbers rather
than decimals? 

Many thanks for your help.
YA

Here are the working codes i am tweaking.

Everything worked fine before i trying adding stuffs (prob=T, etc).


x <- rnorm(1000)
hist(x, xlim=c(-4,4),ylab="Prevalence",prob=T,lwd=3,las=1)
lines(density(x),col="black",lwd=2)
usr <- par("usr")
clip(usr[1], -2, usr[3], usr[4])
hist(x, col = 'red', add = TRUE)
clip(2, usr[2], usr[3], usr[4])
hist(x, col = 'blue', add = TRUE)
abline(v=c(-1),lty=1,lwd=3,col="black")
do.call("clip", as.list(usr))  # reset to plot region





--
View this message in context: http://r.789695.n4.nabble.com/Histogram-plot-help-tp4651958.html
Sent from the R help mailing list archive at Nabble.com.
#
Hello,

I can't say I understand your graph but as for the abline not showing 
up, it's outside the clipped region so it shouldn't. If you want it to 
show up, in the previous line, and after the hist() call, include

clip(2, -2, usr[3], usr[4])

As for the decimals, those are normal, have you seen the data you're 
ploting? To have whole numbers use the arguments ylim and yaxt = "n" in 
the first call to hist and axis(2, ...) afterward. Something like

hist(x, xlim=c(-4,4),ylab="Prevalence",prob=T,lwd=3,las=1, ylim = c(0, 
3), yaxt="n")
axis(2, at = 0:3)


Oh, and you forgot prob = TRUE in the other calls to hist().

Hope this helps,

Rui Barradas

Em 03-12-2012 22:21, YAddo escreveu:
#
Does it work the way you want if you add prob=TRUE to the second and third
hist() commands and run do.call() before abline()?

----------------------------------------------
David L Carlson
Associate Professor of Anthropology
Texas A&M University
College Station, TX 77843-4352