You are trying to create a scene. I mean that you add additional information to the main plot. I think that the graphics package is not very flexible in terms of visual decoding of plot information.
I would use other pacakge R-graphics, such as Lattice / ggplot2, based on the mesh package, which are more suitable for such manipulations.
here is an example using ggplot2:
set.seed(1234) df <- data.frame(cond = factor( rep(c("A","B"), each=200) ), rating = c(rnorm(200),rnorm(200, mean=.8))) ggplot(df, aes(x=rating)) + geom_histogram(binwidth=.5)
Now I edit the xlab of the source scene:
last_plot()+xlab("30-Day Death Rate")
source share