Displaying 1 result from an estimated 1 matches for "nacttrt".
Did you mean:
acttrt
2012 Jan 19
1
Legend problem in line charts
...Art_Name"
), row.names = c(NA, 20L), class = "data.frame")
unique(Orange1$REFID) -> refid
# Create Line Chart
for (i in 1:length(refid)) {
# convert factor to numeric for convenience
refid1 <- subset(Orange1, REFID == refid[i])
refid1$ACTTRTnum <- as.numeric(refid1$ACTTRT)
nACTTRTs <- max(refid1$ACTTRTnum)
# get the range for the x and y axis
xrange <- range(refid1$TIME1)
yrange <- range(refid1$BASCHGA)
# set up the plot
pdf (paste("pga", i, ".pdf", sep=''))
print(plot(xrange, yrange, type="n", xlab="TIME1 (WK)",...