Attachments don't come through on this list.
It would be helpful to know what you mean by "junk graphs".
Your coding style is a little hard to follow as it is a mix of -> and <-
but I think you definitely have a problem in
> for (i in refid)
which should probably be
for (i in 1:length(refid))
HTH. Bryan
On Mar 31, 2012, at 6:16 AM, Sri krishna Devarayalu Balanagu wrote:
> Hi all,
> Can anybody debug the following programme, as I am getting some Junk graphs
in the pdf.
> Please find the attached raw data file.
> Thank you
> Regards
> Rayalu
>
>
> library(ggplot2)
> setwd("D:\\General Check list")
> library(RODBC)
> conn <- odbcConnectExcel ("Book1.xls")
> Orange1 <- sqlFetch (conn, "Sheet3")
> odbcClose(conn)
> rm(conn)
>
> #CDAI Change
> unique(Orange1$BSCHSTAT) -> change
> pdf("xxx.pdf")
> for (j in 1:length(change)){
> ((Orange1$BASCHGAUT == "8-item scale")&(Orange1$BSCHSTAT ==
change[j])) -> b
> FD <- Orange1[b, ]
> unique(FD$REFID) -> refid
> for (i in refid)
> {
> Orange2 <- FD[i == FD$REFID, ]
> Orange2$ARM<- factor(Orange2$ARM)
> unique(Orange2$BSCHSTAT) -> x
> y <- paste("REFID=", i,"; ", "BSCHSTAT=",
x, sep="")
> print(qplot(TIME1, BASCHGA, data=Orange2, geom= c("line",
"point"), colour=ARM, main=y))
> }
> }
> dev.off()
>
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.