you can try something like the following:
b <- barplot(z$size / max(z$size), axes = FALSE)
lines(b, z$mean, lwd = 3)
axis(1, b, z$ax)
axis(2, seq(0, 1, length = 4), seq(0, 15000, length = 4), srt = 90)
I hope it helps.
Best,
Dimitris
----
Dimitris Rizopoulos
Ph.D. Student
Biostatistical Centre
School of Public Health
Catholic University of Leuven
Address: Kapucijnenvoer 35, Leuven, Belgium
Tel: +32/(0)16/336899
Fax: +32/(0)16/337015
Web: http://www.med.kuleuven.be/biostat/
http://www.student.kuleuven.be/~m0390867/dimitris.htm
----- Original Message -----
From: "Tristan Lorino" <tristan.lorino@lcpc.fr>
To: <s-news@lists.biostat.wustl.edu>
Sent: Monday, March 13, 2006 4:00 PM
Subject: [S] Re : Superposing graphics with exactly
Message de Richard M. Heiberger, reçu le lundi 13 mars 2006 à 15:32
:
RMH> You are probably looking for
RMH> par(xaxs="d", yaxs="d")
RMH> These values lock the axes to the same postitions they had in
RMH> the previous graph.
Thank you... I tried:
-----------------------
z_data.frame(size=c(3720,16962,11627,9676),mean=c(.6,.7,.3,.5),ax=0:3)
z
barplot(z$size,names=as.character(z$ax))
par(new=T)
plot(z$ax,z$mean,type="l",ylim=c(.3,.8),xlab="Age",ylab="",xaxs='d')
-----------------------
but as you can see at http://daedale.free.fr/aventurine/scale.png ,
there is still "a bug" in x-axis...
Tristan
--
Laboratoire Central des Ponts et Chaussées
[Division ESAR ? Section AGR]
Route de Bouaye BP 4129
44341 Bouguenais Cedex
France
Tél. 33 (0)2 40 84 56 18
--------------------------------------------------------------------
This message was distributed by s-news@lists.biostat.wustl.edu. To
unsubscribe send e-mail to s-news-request@lists.biostat.wustl.edu
with
the BODY of the message: unsubscribe s-news
Disclaimer: http://www.kuleuven.be/cwis/email_disclaimer.htm
|
