search for: forestgreen

...n <- odbcConnect("datawarehouse"); # connect to datawarehouse results <- sqlQuery(conn, "call sproc)"); ylab <- 'Percentage (%)' main = 'Productivity Overview - 6 mnths'; par(mai=c(1.5,1,1,0.2), las = 2, xpd=TRUE, cex.axis=0.8, cex.lab=0.8); col = c('forestgreen', 'forestgreen', 'forestgreen', 'chocolate', 'chocolate', 'chocolate', 'goldenrod', 'goldenrod', 'goldenrod'); b <- results[,4:12] boxplot(b, col=col, ylab=ylab, main=main, boxwex=0.4); What i'd like to do is add the mean v...

..._B par(new=T) boxplot(GE_distance~Diet_B, data=dataN,xlab="Diet of Breeding Ground",ylab="", yaxt="n",type="p", pch=1,lwd=0.95, cex.lab=1.4, cex.axis=1.2, font.axis=2, cex=1.5, las=1, bty="l", col=c("forestgreen", "darkgreen","chocolate1","darkorange2","sienna2", "red2","firebrick3", "saddlebrown","coral4","chocolate4","darkblue","navy","grey38")[obs.group])) op = par(mar = c(5...

...ical lines. However, I want the outliers to be empty circles. Please kindly help how to modify the code to change the outlier shapes. Thank you. code package (lattice) dataN <- data.frame(GE_distance=rnorm(260), Diet_B=factor(rep(1:13, each=20))) Diet.colors <- c("forestgreen", "darkgreen","chocolate1","darkorange2", "sienna2","red2","firebrick3","saddlebrown","coral4", "chocolate4","darkblue","navy","grey38")...

...0.0005 of y axe. For this reason, I need have log scale on y axe. I've look for web, but I can't do the graph that I need. I try to do something as: out <- read.table("/my_path/data.dat", header=T, sep="\t") plot_colors <- c("blue","red","forestgreen","yellow") plot(out$a, log="y", type="l", col=plot_colors[1], axes=FALSE, ann=T, xlab="tittle_x_axe", ylab="title_y_axe", cex.lab=0.8, lwd=2) axis(1, at=1:200) lines(out$b, type="l", pch=1, lty=1, col=plot_colors[2]) lines(out$c, type...

...$sigma[1]),from=0, to=150, ylab="density", col="red") curve(dnorm(x,mean=parms$mu[2],sd=parms$sigma[2]),from=0, to=150, ylab="density", col="blue", add=TRUE) curve(dnorm(x,mean=parms$mu[3],sd=parms$sigma[3]),from=0, to=150, ylab="density", col="forestgreen", add=TRUE) but I would like to use lattice graphics (even though I only want one panel) because I want to save the resulting plot in an object. I could create a dataframe that contains the values I want to plot, and then plot using xyplot(). For example, x = seq(from=0, to=150, length=10...

...t;Lemur catta","Galago senegalensis"), pch=list(c(15,0),c(16,1),c(17,2),c(18,5),c(19,10)), col=list(c("royalblue","skyblue1"), c("chocolate","gold"),c("deeppink","lightpink"), c("black","grey"),c("forestgreen","lightgreen"))) par(font=1) legendg(0.45,-0.7,legend=c("Pan troglodytes","Macaca mulatta", "Saguinus oedipus","Lemur catta","Galago senegalensis"), pch=list(c(15,0),c(16,1),c(17,2),c(18,5),c(19,10)), col=list(c("royalblue&quot...

...te.hh) Elaine code library(HH) # data input dataN <-read.csv("H:/R_data/Mig_bird_586.csv",header=T, row.names=1) dim(dataN) dataN[1,] str(dataN) diet.code <- c("Herbivore", "Omnivore", "Carnivore") Diet.colors <- c("forestgreen", "darkblue","red2") levels(dataN$Diet) <- diet.code # graph par(mai=c(1.03,1.03,0.4,0.4)) par(new=T) xyplot(GE_distance~Diet, data=dataN, xlab=list("Diet of Breeding Ground", cex = 1.4), ylab=list("Migration Distance",...

...and blue for both. I used the code below but could not make the dot in the same group show the same color. Please kindly advise how to modify it. Thank you. code library (lattice) diet.code <- c("Herbivore", "Omnivore", "Carnivore") Diet.colors <- c("forestgreen", "darkblue","red2") levels(dataN$Diet) <- diet.code # graph par(mai=c(1.03,1.03,0.4,0.4)) par(new=T) xyplot(GE_distance~Diet, data=dataN, xlab=list("Diet of Breeding Ground", cex = 1.4), ylab=list("Migration Distance",...

...data: set.seed(12); d <- rbeta(1e6, 0.2,2)*150 ; d <- d[d>1e-8] hist( d? , breaks=100) # now on a logarithmically scaled axis: hist(log10(d), breaks=100, xaxt="n") abline(v= log10(1:10*10^rep(-9:3, each=10)), col="darkgrey" ); box() hist(log10(d), breaks=100, col="forestgreen", add=T) axis(1, log10(1:10*10^rep(-9:3, each=10)), labels=F) axis(1, -2:2, format(10^(-2:2), scient=3, drop0trailing=T) ) # the labels with lower values should be in the form of 10^x: axis(1, -8:-3, expression( 10^(-8:-3)) )# doesn't work, because expression returns only one output for(i...

...metaplot(a$logOR, a$selogOR, nn=a$selogOR^-2, a$names, summn=a$logMH, sumse=a$selogMH, sumnn=a$selogMH^-2, logeffect=TRUE, colors=meta.colors(box="magenta", lines="blue", zero="red", summary="orange", text="forestgreen")) par(op) # reset parameters Of course if someone have better idea to import data - not trough csv file no problem any format is OK - data frame or something else and to make forest plot ... no problem ... I need them on the forest plot. Greetings... Peter Boolton MCA adcc..

.... This has brought up an issue with the color ramp. Currently the color ramp works one of two ways: #1) Holding the pedal colors fixed: incrspeeds = 2 # fills out the increments argument pedalcolors = c("darkblue","blue","royalblue","darkturquoise","forestgreen","green","yellowgreen","yellow4","yellow","orange","red","darkred","violetred","mediumorchid","purple") #or 2) Making the pedal colors dynamic based on the increments and the max wind speed. i...

...=2000, to=80000, ylab="density", col="red") curve(dnorm(x,mean=parms$mu[2],sd=parms$sigma[2]),from=1000, to=80000, ylab="density", col="blue", add=TRUE) curve(dnorm(x,mean=parms$mu[3],sd=parms$sigma[3]),from=1000, to=80000, ylab="density", col="forestgreen", add=TRUE) ### R-helpers   I have been learning a little bit of R. I am simulating and i want to draw a normal curve for all my variables so that i will see the overlaps and reduce them, after that i want to draw a gragh of all the values that are in the data frame to see if it follows a nor...

Dear Colleagues, Our group is also working on implementing the use of R for pharmacokinetic compartmental analysis. Perhaps I have missed something, but > fit <- nls(noisy ~ lsoda(xstart, time, one.compartment.model, c(K1=0.5, k2=0.5)), + data=C1.lsoda, + start=list(K1=0.3, k2=0.7), + trace=T + ) Error in eval(as.name(varName), data) : Object

...nor = theme_blank(), plot.background = theme_blank(), plot.title = theme_blank(), plot.margin = unit(c(1, 1, 1, 1.5), "lines") ) sfm = scale_fill_manual("mRS", c("0"="darkgreen", "1"="forestgreen", "2"="mediumseagreen", "3"="coral", "4"="red", "5"="darkred",...

Hi, Sorry to trouble the list - I would like to ask a question - I can't find the answer in the r-help archives. I am trying to plot 2 survival curves in different colors. What I have tried is this plot(survfit(sim.surv ~ sim.km.smpl),col="red") but both the survival curves turn red... Your advice would be most appreciated! Thank you. Min-Han

...=2000, to=80000, ylab="density", col="red") curve(dnorm(x,mean=parms$mu[2],sd=parms$sigma[2]),from=1000, to=80000, ylab="density", col="blue", add=TRUE) curve(dnorm(x,mean=parms$mu[3],sd=parms$sigma[3]),from=1000, to=80000, ylab="density", col="forestgreen", add=TRUE) ### --- On Wed, 23/9/09, KABELI MEFANE <kabelimefane@yahoo.co.uk> wrote: From: KABELI MEFANE <kabelimefane@yahoo.co.uk> Subject: [R] Simulating and Plotting To: R-help@r-project.org Date: Wednesday, 23 September, 2009, 10:32 PM R-helpers   I have been learning a...

...=2000, to=80000, ylab="density", col="red") curve(dnorm(x,mean=parms$mu[2],sd=parms$sigma[2]),from=1000, to=80000, ylab="density", col="blue", add=TRUE) curve(dnorm(x,mean=parms$mu[3],sd=parms$sigma[3]),from=1000, to=80000, ylab="density", col="forestgreen", add=TRUE) ### R-helpers   I have been learning a little bit of R. I am simulating and i want to draw a normal curve for all my variables so that i will see the overlaps and reduce them, after that i want to draw a gragh of all the values that are in the data frame to see if it follows a nor...

...Method #Set Initial parameter B0=0.001 B1=0.001 B2=0.001 B3=0.001 B4=0.001 B5=0.001 B6=0.001 B7=0.001 #Parameters B=matrix(c(B0,B1,B2,B3,B4,B4,B6,B7),nrow=8,ncol=1,byrow=F) #Start Iteration Diff=1 AA = 0 while(Diff>.000001){ AA= AA +1 plot_colors <- c("blue","red","forestgreen") plot(B, type="l", lwd=2, col=plot_colors[1], add=TRUE) split.screen(c(1,1)) #Probability for each comb P=(1+exp(-(X%*%B)))^-1 #Set V matrix ni=1 V=diag(n) for(i in 1:n) { V[i,i]=diag(ni%*%P[i]%*%(1-P[i])) } #Set S matrix #Response R=a[,8] S=matrix(data=1,nrow=n,ncol=1) for (i in...

...uot;green","darkmagenta","darkgreen","darkorange","darkred","gold","midnightblue","seagreen1","tomato","slateblue","violet","purple4","palegreen","darkviolet","forestgreen","firebrick"...up to 60 colors) labels <- c(''a'',''b'', ''c'', ''d'', ''e'', up to 60 labels) #add lines for (i in 1:length(npts)) { color=colors[i] pt = data[data$Pt==npts[i],]; plot(pt$C...

I started using R to draw different plots. Thereby I'm having different problems adjusting graphical parameters. I wonder wy, because I don't see any reason. I'm using R61.1 with Linux Slackware (kernel 2.0?), emacs19.31 and ESS-5.0 1. I want to write a text on margin-site 4, therefore I need to reduce my plot in size . But whatever I do, the size doesn't change: