search for: purple

...reaRio-n 106.614 green-j areaauditorium-n 102.505 green-j areacity-n 150.005 blue-j appearancecypress-n 145.133 blue-j appearancefirmament-n 148.655 blue-j appearanceman-n 85.731 blue-j appearancerange-n 90.706 blue-j appearancesurface-n 100.991 blue-j areagraph-n 92.708 blue-j arealibrary-n 77.135 purple-j appearanceleave-n 119.423 purple-j appearancelesion-n 134.287 purple-j colorViking-n 145.516 purple-j coloramethyst-n 175.619 purple-j colorbanknote-n 158.045 purple-j colorbottle-n 132.395 purple-j colorchocolate-n 141.833 The elements on the first column can be: red-j, orange-j, yellow-j, gree...

...legend(7, 12.5, legend = c("Grp1"," Grp2"," Grp3"," Grp4"," Grp5"," Grp6"," Grp7"," Grp8"), col = c("blue","brown","orange","green","red","lightblue","purple","pink"), pch = 19, bty = "n") For comparison of where colours should lie - normal plot: #add random number to make all points different so that they dont overplot a <- runif(109,1,1.001) extremes.decade$Year.a <- a*extremes.decade$Year plot(extremes.deca...

...I reduce the y-scale using ylim, the bars still extend down to 0into the x-labels. The sample data is below, and here is the code. #This works fine but I would like to plot only from 50 to 70: barplot(t(mydata), beside=TRUE, col=c("orange", "green", "yellow", "purple"), legend=TRUE, las=2, axis.lty=1) #This is the ylim version with the bar problem: barplot(t(mydata), beside=TRUE, col=c("orange", "green", "yellow", "purple"), ylim=c(50,70), legend=TRUE, las=2, axis.lty=1) #I have tried using xpd=FALSE and this work...

...t -0.001699 0.998 0.00085 -2.00130 0.0450 Likelihood ratio test=164 on 5 df, p=0 n= 308, number of events= 143 (110 observations deleted due to missingness) > > plot(survfit(Surv(time, status>0) ~ trt, data=pbc)) > lines(survexp( ~ trt, ratetable=pfit, data=pbc), col='purple') > > pfit.wtd <- coxph(Surv(time,status>0) ~ trt + log(bili) + log(protime) + age + + + platelet, weights=albumin, data=pbc + ) > > pfit.wtd Call: coxph(formula = Surv(time, status > 0) ~ trt + log(bili) + log(protime) + age + +platelet, data = pbc, weights =...

...is not what I want. I want to 'pick out' individual, smaller pieces of a gradient based on a range of numbers. Say that I have a range of numbers, leading from 0 to 1. Then I want 0 to refer to the brightest red, and 1 to the brightest blue, and all values in between refer to shades of purple. (So, 0.5 would be regular purple, 0.7 would be a quite bluish purple, etc.) Then, I want to be able pick out a gradient from the larger 0-1 gradient, say for instance the gradient between 0.25 and 0.35 and refer to this with an object name for further use. I'm not sure whether this is pos...

...s achieving my goal :) I have found a list in which order the colors seems to be arranged. 0 = black 8 = dark grey 1 = dark blue 9 = bright blue 2 = dark green a = bright green 3 = dark cyan b = bright cyan 4 = dark red c = bright red 5 = dark purple d = bright purple 6 = brown e = yellow 7 = light grey f = white What I now need is the color code for each of them(at least I believe this should work, though I'm not sure). If there is some more I should be aware of when attempting to make custom graphics plea...

...e to R, and I wanted to plot a barplots with R and in such a way that It will also show me position which I can plot on the bar line. Here is my code that I am using to plot, > chromosome <- c(40.2, 35.6, 36.1, 29.6, 31, 29.6, 31, 29.4, 28.2, 23, 23, 28.2) >barplot (chromosome, col="purple", xlab="Oryza sativa Chromosomes", border = NA, space = 5, ylim = c(0,45)) I wanted to mark the position say on chromosome 1 (40.2) I need to mark 10.2 and on other also. I also want to set the scale of y axis from 0,5,10,15,20,25,30,35,40,45 i.e gap of 5 instead of 10. please help...

...the bars were not cropped with barplot() as you indicated, but when I switched to plotrix::barp() they were cropped. The arguments are a bit different, but I did not need xpd=FALSE: emf("TestPlot.emf") barp(t(mydata), col=c("orange", "green", "yellow", "purple"), ylim=c(50,70), legend.lab=colnames(mydata), legend.pos="topright") dev.off() ------------------------------------- David L Carlson Department of Anthropology Texas A&M University College Station, TX 77840-4352 -----Original Message----- From: R-help [mailto:r-help-bounces...

...col="black") install.packages("robustbase") library?(robustbase) reg=lmrob(Y ~ X) abline(reg, col="green") install.packages("MASS")? library(MASS) Huber=rlm(Y ~ X) abline(Huber,col="red") Tukey=rlm(Y ~ X,psi=psi.bisquare) abline(Tukey,col="purple") install.packages("quantreg") library(quantreg) L1=rq(Y ~ X,tau=0.5) abline(L1,col="blue") install.packages("RobPer") library(RobPer) FastTau(Y,X) fast=FastTau(Y,X) abline(unlist(fast), col="yellow") legend("topright",c("OLS",?&qu...

...not cropped with barplot() as you indicated, but when I switched to plotrix::barp() they were cropped. The arguments are a bit different, but I did not need xpd=FALSE: > > emf("TestPlot.emf") > barp(t(mydata), col=c("orange", "green", "yellow", "purple"), > ylim=c(50,70), legend.lab=colnames(mydata), legend.pos="topright") > dev.off() > > ------------------------------------- > David L Carlson > Department of Anthropology > Texas A&M University > College Station, TX 77840-4352 > > > -----Origina...

...eg1 <- lm( Y ~ X ) plot( X, Y ) abline( reg1, col = "black" ) reg <- lmrob( Y ~ X ) abline( reg, col = "green" ) Huber <- rlm( Y ~ X ) abline( Huber, col="red" ) Tukey <- rlm( Y ~ X, psi = psi.bisquare ) abline( Tukey, col = "purple" ) L1 <- rq( Y ~ X, tau = 0.5 ) abline( L1, col = "blue" ) fast <- FastTau(model.matrix(~X),Y) fast # save result, then print... avoid computing twice # model matrix leads to first element of beta as constant and # second element of beta as slope abline(...

...278 1 1 1 2 1 GO:0000320 0 0 0 0 0 GO:0000710 0 0 0 0 0 GO:0000768 0 0 0 0 0 GO:0000819 1 0 0 1 1 GO:0000910 1 0 0 3 0 GO:0000917 0 0 0 0 0 I wanted to plot a heatmap to assign "grey" to 0, "blue" to 1, "purple" to 2, and "red" to 3. I did not some trials and found some problems like this: When the row is all zero, there could be a white bar in the middle of the heatmap though I did not assign "white" to any value. Or some row believes "grey" as 0 while some rows belie...

...null")) pushViewport(viewport(layout = grid.layout(1, 2, widths = unit.))) # draw green graph in first column (viewport A) pushViewport(viewport(layout.pos.col = 1, name = "A")) par(fig = gridFIG()); par(new = TRUE) plot(1:10, col = "green", pch = 20) upViewport(1) # draw purple graph in second column (viewport B) pushViewport(viewport(layout.pos.col = 2, name = "B")) par(fig = gridFIG()); par(new = TRUE) plot(1:100, col = "purple", pch = 18) upViewport() # go back to A and add horizontal grid lines seekViewport("A") par(fig = gridFIG()) abli...

...null")) pushViewport(viewport(layout = grid.layout(1, 2, widths = unit.))) # draw green graph in first column (viewport A) pushViewport(viewport(layout.pos.col = 1, name = "A")) par(fig = gridFIG()); par(new = TRUE) plot(1:10, col = "green", pch = 20) upViewport(1) # draw purple graph in second column (viewport B) pushViewport(viewport(layout.pos.col = 2, name = "B")) par(fig = gridFIG()); par(new = TRUE) plot(1:100, col = "purple", pch = 18) upViewport() # go back to A and add horizontal grid lines seekViewport("A") par(fig = gridFIG()) abli...

Is there a way in Ferret to do something akin to SQL''s "SELECT DISTINCT" query? I have a table with multiple columns, and I would like to search just a couple of them (but index others for other kinds of searches on the table). The two columns I want to search do not have unique values, because the other columns finish specifying the record. Is there a way to avoid picking up

...dentro del propio gráfico y no lo consigo. El comando que estoy usando es: ts.plot(a,o,inf,sup, gpars=list( xlab="Años",ylab="Unitario Medio", ##Etiquetamos los ejes col=c("red","blue","purple","purple"), ## Color rojo para alisado, azul para original y morado para limites lwd=c(4,2,1,1), ## Ancho de línea 4 para alisado, 2 para original y 1 para limites lty=c("longdash","solid","dashed&qu...

...IALSTATUS}) exten = s,n,Goto(s-${DIALSTATUS},1) ;Jump based on status (NOANSWER,BUSY,CHANUNAVAIL,CONGESTION,ANSWER) exten = s-BUSY,1,Playtones(busy) exten = s-CONGESTION,1,Playtones(congestion) exten = _s-.,1,Goto(s-CONGESTION,1) ;Treat anything else as no answer -- Regards, Troy Kelly Director Purple Oranges Pty Ltd http://purpleoranges.com/ -- Brisbane (07) 3018 2840 Fax (07) 3105 5987 ---------------------------------------- Disclaimer - This email and any files transmitted with it are confidential and contain privileged or copyright information. You must not present this message to another...

...ty="44")# horizontal line at P=0.05             abline(v=c(-1,1),col="violet",lty="1343")  # vertical lines at 2-fold             # Plot points based on their values:             for (ii in 1:m)                 # If it's below 0.05, we're not overly interested: purple.                 if (-log10(pvals[ii])>(-log10(0.05))) {                     # Otherwise, more checks;                     # if it's greater than 2-fold decrease: blue                     if (log2(folds[2,][ii])>(-1)) {                         # If it's significant but didn't chan...

With a pie chart pie(c(11, 15, 16, 29, 31)) how can I generate labels for the chart, such as orange: 11 green: 15 blue: 16 red: 29 purple: 31 rather than the default labels that are drawn automatically 1 2 3 4 5 -- Mark Polishook, D.M.A. Technology Coordinator Morehead Hall, Rm 132 Center for Academic Advising and Adult Learning Montclair State University Montclair, NJ 07043 (973)-655-7114 http://www.montclair.edu/AcademicAdvisi...

...=="fed" & Tanks=="a4"| Foodin>1 & Rep==2 & Grp=="fed" & Tanks=="c4"|Foodin>1 & Rep==2 & Grp=="fed" & Tanks=="h4") attach(daily) x11() par(cex=1.4) plot(Day, Wgt col=c("red","blue","purple","pink")[Tanks]) detach(daily) -- M. Keith Cox, Ph.D. Alaska NOAA Fisheries, National Marine Fisheries Service Auke Bay Laboratories 17109 Pt. Lena Loop Rd. Juneau, AK 99801 Keith.Cox@noaa.gov marlinkcox@gmail.com U.S. (907) 789-6603 [[alternative HTML version deleted]]