search for: orange2

...uot;Sheet2") odbcClose(conn) rm(conn) 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 == Orange1$REFID, ] Orange2$ACTTRT<- factor(Orange2$ACTTRT) unique(Orange2$BSCHSTAT) -> x y <- paste("REFID=", i,"; ", "BSCHSTAT=", x, sep="") print(qplot(TIME1, BASCHGA, data=Orange2, geom= c("line", "point"), colour=...

...ot;) 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)...

Hi All, Can you please help me, why this code in not generating line chart? library(ggplot2) par(mfrow=c(1,3)) #qplot(TIME1, BASCHGA, data=Orange1, geom= c("point", "line"), colour= ACTTRT) unique(Orange1$REFID) -> refid for (i in refid) { Orange2 <- Orange1[i == Orange1$REFID, ] pdf('PGA.pdf') qplot(TIME1, BASCHGA, data=Orange2, geom= c("line"), colour= ACTTRT) dev.off() } Regards, Devarayalu [[alternative HTML version deleted]]

...s(Page 2 & 3) Can anyone help? unique(Orange1$RESPSTAT) -> change pdf("CDAI Response.pdf") for (j in 1:length(change)){ ((Orange1$RESPUT == "8-item scale")&(Orange1$RESPSTAT == 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$RESPSTAT) -> x y <- paste("REFID=", i,"; ", "RESPSTAT=", x, sep="") print(qplot(TIME1, RESPONSE, data=Orange2, geom= c("line", "point"), colour=ARM, main=y...

...= c("REFID", "ARM", "SUBARM", "ACTTRT", "TIME1", "ENDPOINT", "BASCHGA", "STATANAL", "Art_Name" ), row.names = c(NA, 20L), class = "data.frame") unique(Orange1$REFID) -> refid for (i in refid) { Orange2 <- Orange1[i == Orange1$REFID, ] pdf(paste ("PGA", i, ".pdf", sep='')) print(qplot(TIME1, BASCHGA, data=Orange2, geom= c("line"), colour= ACTTRT)) dev.off() } [[alternative HTML version deleted]]

...Some of the labels of the axes do not show up, probably because there's not enough space. I use the following code to create the plot: modality <- read.table("results.table", header=TRUE, sep=",") color <- c("red3","green3","blue3","orange2","purple2","brown4") plot(modality, col=color) >From the manual I though one of the following might help: > plot(length, col=color, las=1) > plot(length, col=color, las=2) > plot(length, col=color, las=0) This is supposed to change the orientation of the axis...

...answer in the manual... http://www.nabble.com/file/p14618947/at-modality.png I created this image with R by using the following code: modality <- read.table("results.table", header=TRUE, sep=",") color <- c("red3","green3","blue3","orange2","purple2","brown4") plot(modality, col=color) The data I read in has this format: ... 38355 GeneralInfo Textual 38356 GeneralInfo Textual 38357 Person Textual 38358 Person Combination 38359 Advice Textual 38360 GeneralInfo Te...

...;= 5 & cellcol < 20] <- "#87CEFF" #Blue cellcol[cellcol >= 20 & cellcol < 35] <- "#0000FF" #Green3 cellcol[cellcol >= 35 & cellcol < 50] <- "#00CD00" #Yellow2 cellcol[cellcol >= 50 & cellcol < 60] <- "#EEEE00" #Orange2 cellcol[cellcol >= 60 & cellcol < 75] <- "#EE9A00" #Red cellcol[cellcol >= 75 & cellcol < 90] <- "#EE0000" #Firebrick cellcol[cellcol >= 90] <- "#B22222" My question is, can I plot this matrix using image() or do the colors need to...

...t;, "#CAFF70", "darkolivegreen2", "#BCEE68", "darkolivegreen3", "#A2CD5A", "darkolivegreen4", "#6E8B3D", "darkorange", "#FF8C00", "darkorange1", "#FF7F00", "darkorange2", "#EE7600", "darkorange3", "#CD6600", "darkorange4", "#8B4500", "darkorchid", "#9932CC", "darkorchid1", "#BF3EFF", "darkorchid2", "#B23AEE", "darkorchid3&...