Message-ID: <3E2D94D5@webmail.mcgill.ca>
Date: 2002-11-20T14:58:44Z
From: Tanya Murphy
Subject: Tables in graphics window
James Holtman and Marc Schwartz:
Thank you for your replies. I am slowly getting closer to the output I was
hoping for.
Plotting a table:
Finally I used this method for plotting the text table:
# Drug table
## Print dates as DMY (otherwise printed as an integer)
ond <- as.date(ON)
offd <- as.date(OFF)
## Create plot region
par(mar = c(1, 1, 1, 1) + 0.1)
plot.new()
## Headings (Bold)
text(0,1,paste(?Start date?), adj=c(0,1), font=2)
text(0.3,1,paste(?Stop date?), adj=c(0.5,1) , font=2)
text(0.6,1,paste(?ARVs?), adj=c(0.5,1) , font=2)
## Plot data (double spaced)
text(0,0.85,paste(ond, collapse='\n\n'), adj=c(0,1))
text(0.3, 0.85,paste(offd, collapse='\n\n'), adj=c(0.5,1))
text(0.6, 0.85,paste(ARVS, collapse='\n\n'), adj=c(0.5,1))
After playing with the size of the columns, the result looks good.
Tanya
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !) To: r-help-request at stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._