search for: lightblue

...k = TRUE, line = NA) 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...

...egments=61) { angles <- (0:segments)*2*pi/segments radius * cbind( cos(angles), sin(angles)) } plot(1:5, 1:5, type='n', xlim=c(-1,5), ylim=c(-1,5), xlab='', ylab='', asp=1, xaxt="n", yaxt="n") #clrs <- trans.colors("lightblue", alpha=c(.2, .4, .6)) ## from heplots package clrs <- c("#ADD8E633", "#ADD8E666", "#ADD8E699") c1 <- circle(3) polygon( c1, col=clrs[1], border="lightblue") polygon(.67*c1, col=clrs[2], border="lightblue") polygon(.33*c1, col=clrs[...

...s files with one number on each line] par(mfcol=c(1,3)) par(mai = c(0,0,0.5,0.2), omi = c(1,1,1,1)) xaxis = c(-6000,1000) yaxis = c(0,7) #plot.new() #plot.window(xlim=xaxis, ylim=yaxis) boxplot(alsustop$V1 ,alsustart$V1 ,assustop$V1 ,alsustart$V1 ,atsustop$V1 ,atsustart$V1 ,names=names,col=c("lightblue","orange","lightblue","orange","lightblue","orange") ,horizontal = TRUE, main="ARC", xaxs = "i", las=1) #plot.new() #plot.window(xlim=xaxis, ylim=yaxis) boxplot(blsustop$V1 ,blsustart$V1 ,bssustop$V1 ,blsustart$V1 ,btsustop$...

...1<-sample(1:6,1200,replace=T)dado_2<-sample(1:6,1200,replace=T)dado_3<-sample(1:6,1200,replace=T) dados<-matrix(c(table(dado_1),table(dado_2),table(dado_3)),6) barplot(t(dados),beside=TRUE,ylab="Frecuencias absolutas",main="Dados",names.arg=c(1,2,3,4,5,6),col=c("lightblue","green","blue"))legend(2,220,c("Dado1","Dado2","Dado3"),cex=0.6,bty="n",fill=c("lightblue","green","blue")) ## Mi intención es poner la leyenda al lado del título "Dados" por ejemplo, pero no s...

...ed box and a line. The problem is I keep getting both filled boxes and a line. How can I get rid of the second box from the code below? x<-rnorm(1000,mean=0,sd=1) hist(x, breaks = 50, main="Histogram of x",freq=FALSE, xlab=" x", ylab="Density",col="lightblue", border="black") x_dens<-density(x,kernel="gaussian") points(x_dens,type="l",lwd=3) legend("topright",legend=c("Histogram","Kernel Density Estimate"),lty=c(-1,1),lwd=c(-1,2),fill=c("lightblue"),merge=TRUE,inset= .01,c...

Hi, Try either: set.seed(28) stats1<- as.data.frame(matrix(rnorm(5*10000),ncol=5)) pdf(paste("test",1,".pdf",sep="")) par(mfrow=c(2,1)) lst1<- lapply(names(stats1),function(i) {hist(stats1[,i],100,col="lightblue",main=paste0("Histogram of ",i),xlab=i );qqnorm(stats1[,i])}) dev.off() #or pdf(paste("test1",1,".pdf",sep="")) par(mfrow=c(2,1)) for(colName in names(stats1)){ hist(stats1[,colName],100,col="lightblue",xlab=colName,main=paste0("Histogra...

........hist and sapply works for several plots nice with RSvgDevice ! Maybe setting the title after apply is a problem, but until yet i didn't found a better solution ? library(RSvgDevice) library(gregmisc) devSVG(file = "AllbusMeanPlots.svg", width = 10, height = 8, bg = "lightblue", fg = "white", onefile=T, xmlHeader=TRUE) #par(bg="lightblue",ann=T) plt <- function(x) { plotmeans(h2[,x] ~ h2$V174,ylab=names(h2)[x],xlab="InglehartIndex",mean.labels=T, connect=list(1:2,3:4,4:5),ccol="red",pch=7,barwidth=1,barcol="black...

Hi I made heatmap of QTL based on Lod score. Where I have traits in columns and marker data (rows). I can not cluster both column and rows as I need the right order for marker data. Can someone suggest me better way of generating heatmaps especially the colour key I want to select to visualize the results which are more interesting to look at. > library(gplots) >

...a filled box and a line. The problem is I keep getting both filled boxes and a line. How can I get rid of the second box from the code below? x<-rnorm(1000,mean=0,sd=1) hist(x, breaks = 50, main="Histogram of x",freq=FALSE, xlab=" x", ylab="Density",col="lightblue", border="black") x_dens<-density(x,kernel="gaussian") points(x_dens,type="l",lwd=3) legend("topright",legend=c("Histogram","Kernel Density Estimate"),lty=c(-1,1),lwd=c(-1,2),fill=c("lightblue"),merge=TRUE,inset=.01,ce...

Hi, I use a vector of data to draw the histogram, but it is different from the graph by SAS. Can you check it for me please? b is a column vector of 4332 hist(b,probability=T,breaks=30,col='lightblue',ylim=c(0,1)) rug(b) When I used rug, I find the records are smaller than 4332. I don't know where I did wrong. Thanks. -- Yi Du [[alternative HTML version deleted]]

...t y a continuación el código que usé para producirlo. vplayout <- function(x, y) viewport(layout.pos.row = x, layout.pos.col = y) tor<-ggplot(parasitos, aes(x=Arrenurus, y = torax, fill= Arrenurus)) + geom_boxplot(binwidth = 2) + scale_fill_manual(values = c("lightgreen", "lightblue"))+ ylab("Total parásitos")+ xlab("")+ ggtitle("Parásitos en el tórax") abd<- ggplot(parasitos, aes(x=Arrenurus, y = abdomen, fill= Arrenurus)) + geom_boxplot(binwidth = 2) + scale_fill_manual(values = c("lightgreen", "lightblue"))+ y...

...left", "bottom"), angle = 10)) system.time(grid.rect(x = unit(rep(1:100, 200) , "native"), y = unit(rep(1:200, each = 100), "native"), width = unit(1, "native"), height = unit(1, "native"), gp = gpar(col = NA, fill = "lightblue") )) system.time(grid.rect(x = unit(rep(1:100, 200) , "native"), y = unit(rep(1:200, each = 100), "native"), width = unit(1, "native"), height = unit(1, "native"), gp = gpar(col = NA, fill = rgb(1, 0, 0, 1:20000/40000)) )) My times for...

I have the following code: subsetTimeDataPlot <- boxplot(subsetTimeData$time ~ subsetTimeData$build, horizontal=True, col="lightblue", ...) The 'names' component consists of strings that can be up to 20-30 characters long. How would I go about drawing the names vertically (not the boxplot) or shrinking the names text (I tried cex.names=0.7 but this didn't help). Thanks for any advice, I apologize if these a...

Hello, I can plot histogrammes but I want to know how can I do to plot 2 histogrammes at the same time (in the same window). hist(as.numeric(as.character(B[,1])),col="lightblue", border="pink") hist(as.numeric(as.character(A[,1])),col="yellow", border="pink") thanks. _____________________________________________________________________________ l [[alternative HTML version deleted]]

...nge the x and y axis on a 3d plot. It defaults to the [0,1] interval and when I try to change it I get errors. Example: This works: ------------ D <- c(1,2,3,4,5,6,7,8,9,10) M <- c(11,12,13,14,15,16,17,18,19,20) DM <- cbind(D,M) persp(DM, theta = 40, phi = 30, expand = 0.5, col = "lightblue", ltheta = 120, shade = 0.75, ticktype = "detailed", xlab = "X", ylab = "Y", zlab = "Z") --------------------- But I want the axis to count 1 by ones. So I try: ----------------- D <- c(1,2,3,4,5,6,7,8,9,10) M <- c(11,12,13,14,15,16,1...

...22, # ALL-T + "red", 22, # AML + # test samples: cicle symbols + # color symbol phenotype + "lightgreen", 21, # ALL-B + "lightblue", 21, # ALL T + "orange", 21, # AML + ) Error: element 12 is empty; the part of the args list of 'c' being evaluated was: (22, "steelblue", 22, "red", 22, "lightgreen", 21, "l...

...This is the same structure of the plot in R graph Gallery: http://addictedtor.free.fr/graphiques/RGraphGallery.php?graph=150 thanks in thanks is advance José Mi code is this: ### setup the key k <- simpleKey( c( "Perdidas ",  "Contestadas" ) ) k$points$fill <- c("lightblue", "lightgreen") k$points$pch <- 21 k$points$col <- "black" k$points$cex <- 1 cliente100RD<- cliente100[order(cliente100$porc_perd),] ### create the plot dotplot( rownames(cliente100RD) ~ perdida + contestada , data = cliente100RD, horiz = T,  main="Llamad...

...r.set("superpose.symbol", superp.symbol) #set the default for the colors in the symbols superp.lines <- trellis.par.get("superpose.line") superp.lines$lty <- 1:6 superp.lines$lwd <- 1.5 trellis.par.set("superpose.line", superp.lines) #set the device color to lightblue trellis.par.set("background", list(col = "lightblue")) xyplot(Volume ~ Age|Farm, groups = Treatment, data = my_data, panel = panel.superpose, panel.groups = function(x,y, ...)...

..."matrix","fitness") boxplot(fitness ~ matrix, data=data, boxwex=boxwex, at=(1:7 - 0.2), main="Fitness for Matrix/Models", xlab="Matrixtype", ylab="Fitness", ylim=c(20,100), subset=(model=="dyn"), col="lightblue", xaxt="n", whisklty=1) boxplot(fitness ~ matrix, data=data, boxwex=boxwex, at = 1:7, add=TRUE, subset=(model=="dl3"), col="mistyrose", xaxt="n", whisklty=1) boxplot(fitness ~ matrix, data=data, boxwex=boxwex, at=(1:7 + 0.2), add...

Dear All,   using the example from the package scatterplot3d I created a 3d plot as follows:   x <-rnorm(500,50,2) y <-rnorm(500,5,1) z <-rnorm(500,6,1) scatterplot3d(x, y, z, highlight.3d=TRUE, col.axis="blue",col.grid="lightblue", main="scatterplot3d - 1", pch=20)   I would like to ask if anyone could help me with the following:   1. I would like to draw  a plane across the plot that is paralell to the bottom of the plot and is in the heights of the value 6 on the axis "z", and goes across the plot...