[R] Not getting correct graphs

[Bryan Hanson]

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.