search for: lightgrey

...blem? Thanksful for answer/ Bj??rn Rogell > meanbufoAN TR101 TR203 TR302 TR404 TR509 TR611 TR710 TR812 12.329885 12.712815 12.115556 12.570500 11.580300 11.920851 10.094532 9.854988 barplotANbufo<-barplot(meanbufoAN,ylim=c(0,15),col=c("white","lightgrey","white","lightgrey","white","lightgrey","white","lightgrey"),names.arg=c("1","2","2","4","5","6","7","8"),density=c(0,0,12,12,0,0,12,12),xlab="&quot...

...ss = "data.frame") par(mfrow=c(2,1)) # try to get two plots, one above the other plot(M$date, M$cospi, type="l", col="darkgrey", log="y", xaxs="i", yaxs="i", axes=FALSE, ylab="Cospi level") axis(1, col="lightgrey", at=NULL, labels=FALSE) axis(2, col="lightgrey", labels=TRUE) plot(M$date, M$cospi.PE, type="l", col="darkgrey", log="y", xaxs="i", yaxs="i", axes=FALSE, ylab="Cospi P/E") axis(2, col="lightgrey", at=NU...

...n but I could not figure out. I need to make plots with grid in the background. something like I old retrive like this a=runif(100)*10 b=runif(100)*10 plot(a,b, pch=20, xlim=c(0, round(max(a))), ylim=c(0, round(max(b)))) vs=seq(0, max(a), 0.5) for(i in 1:length(vs)){ abline(v=vs[i], col="lightgrey") } hs=seq(0, max(b), 0.5) for(i in 1:length(hs)){ abline(h=hs[i], col="lightgrey") } points(a, b, pch=20) as you can see it is not very convenient -- john [[alternative HTML version deleted]]

Hi, I am using the densCols to draw a high volume scatter plot. Instead of using the default local density, I would like to take log of the local density and then map them to the colors. I could not figure out how to do that. For example: plot(x,y,col=densCols(x,y,"log")) ? Any help would be appreciated! Jiaxiu [[alternative HTML version deleted]]

Hello, I am using xyplot and am happy with my graph, *except* that I cannot get the symbols to be filled. I tried using bg=c("red3","red","black","lightgrey")) in both the key and the xyplot function, that that was obviously not the answer. I would like the sybols to be filled with the same colors as the lines. Does anybody have an answer? In case you want to see the graph so far, I have included a ridiculously large dataframe for an example...

...- 6 # even omega <- 2 * pi / n par(mfrow = c(n - 1, 1), mar = c(0, 5.1, 0, 5.1), oma = c(3, 1, 2, 1)) for (i in 1:(n/2 - 1)) { curve(cos(x * i * omega), 0, n, ylim = c(-1.1, 1.1), ylab = "", axes = FALSE) points(1:n, cos(i * omega * 1:n)) axis(2); abline(h = 0, col = "lightgrey") curve(sin(x * i * omega), 0, n, ylim = c(-1.1, 1.1), ylab = "", axes = FALSE) points(1:n, sin(i * omega * 1:n)) axis(4); abline(h = 0, col = "lightgrey") } curve(cos(x * (n/2) * omega), 0, n, ylim = c(-1.1, 1.1), ylab = "", axes = FALSE) points(1:n,...

Problem: neither fg or bg nor color work properly in dotchart. version: R-1.7.1 for windows code which shows the errors: x <- matrix(rnorm(16),ncol=2,dimnames=list(paste("a",1:8,sep=""),c("before","afte r"))) dotchart(x,fg="blue",bg="lightgrey") dotchart(x,color=c("red","blue")) Dr Ian J Wilson Lecturer in Statistics Department of Mathematical Sciences University of Aberdeen King's College Aberdeen, AB24 3UE Tel: +44(0)1224 272609 Fax: +44(0)1224 272607 I.Wilson@maths.aberdeen.ac.uk http://www.maths.abdn....

Hi all, I have this code I want to add two ablines like this abline(h=2400, lty=3, col="lightgrey") abline(h=400, lty=3, col="lightgrey") But doesnt wotk. I alo try to set ylim from 0 to max "Foa"+1000 but I?m not able ?Is it posible? require(latticeExtra) require(ggplot2) require(reshape2) suppressPackageStartupMessages(require(googleVis)) require(quantmod) requi...

...barplot. #tab-table: # ikar_new #sp 0-9 10-19 20-29 30-39 40-49 50-59 60-69 70-79 >80 # mies 227 93 79 92 195 451 560 577 132 # nainen 183 80 102 175 99 161 230 357 164 barplot(tab, beside=TRUE, col = c("black", "lightgrey"), legend = rownames(tab), ylim= c(0,800), font.main = 4, cex.names = 1.1, main = "Transfused patients and trombocytes given by age and sex", ylab="Number of transfused patients", xlab="Age groups (years)")...

...add a smooth curve of a normal distribution with an ideally generated population having the same mean and standard deviation like the experimental data. The experimental data is set as vector x and its name is set to group.name. I paint the histogram as follows: hist(data, freq=FALSE, col="lightgrey", ylab="Density", xlab=group.name) First I did the normal distribution curve this way: lines(x, dnorm(x, mean=mean(x), sd=sd(x)), type="l", lwd=2) This curve just uses as many values as there are in x. When using small amounts of sample populations the curve looks real...

...does in the default 'hist'-method. Unfortunately, it does not only change the filling color of the boxes, but also the color of the axislines. [Using 'graphics'-package version 2.2.0] Examples: # with POSIXct-object hist(.leap.seconds, "years", freq = TRUE, col="lightgrey") # with dates random.dates <- as.Date("2001/1/1") + 70*runif(100) hist(random.dates, "weeks", format = "%d %b", col="lightgrey") Is that a bug? Thanks in advance. Wastl --- > sessionInfo() R version 2.2.0, 2005-10-06, x86_64-unknown-l...

Dear list, I have the following problem: I want to plot my data and display a map at the same graph. The problem is that my map is not properly sized (is very small). It appears at the bottom-left side of the output. I am using the following R commands: { plot(Time, col="lightgrey") title("Connections per Minute") map("world", fill=TRUE, lwd=0.25, col="green", add=TRUE) box() } Please note that Time contains data in the following format: 00:00 00:01 ... 22:04, etc. Can you please help me? many thanks in advance, Mihalis. --- Show me a M...

Dear useRs, I'm trying to create a barplot like so: x=matrix(1:10,2,5) barplot(x,leg=c("left","right"),besid=T) The legend is placed in default position topright, however the data are plotted there too. I tried controlling the legend position by adding x="topleft" but this results in an error that x matches multiple formal arguments. Leaving out the legend

...tered with a white box around it automatically? Is there something like panel.textbox for lattice? Thanks in advance and here is the example Erich install.packages("Giza") library(Giza) panel.tpop <- function(x,y,...){ panel.grid(h=length(agegrs),v=5,col="lightgrey",lty=1) ls1 <<- list(...) y <<- y iFrame <- iEduDat[ls1$subscripts,] iSex <- with(iFrame,unique(sex)) if (iSex=="Female"){ p...

...add line legend and point legend together. The code looks like the following. (1) First, I tried the following code, however, it plot a line across the point legend("*"). boxplot(count ~ spray, data = InsectSprays) rb <- boxplot(decrease ~ treatment, data = OrchardSprays, col="lightgrey") title("Comparing boxplot()s and non-robust mean +/- SD") mn.t <- tapply(OrchardSprays$decrease, OrchardSprays$treatment, mean) xi <- seq(rb$n) points(xi, mn.t, col = "blue", pch = "*") h1 <- abline(h=110, col="red") h2 <- abline(h=0, col=...

...An example of the data: A<-c(0.9803922, 1.3850416, 0.8241758, 0.0000000, 0.4672897, 1.1904762, 0.0000000, 0.9456265, 1.5151515) B<-c(1.3229572, 1.9471488, 1.3182674, 0.7007708, 1.0185740, 1.0268562, 0.8695652, 0.3016591, 1.9667171) plot(A, B, ylim=c(0,2), xlim=c(0,2)) abline(0,1, col="lightgrey", lty="dashed",lwd=2)#1:1 relationship = what I want to use in the lm() #Normal regression AB<-lm(A~B) #plot regression line abline(lm(AB)) How can I force the regression to have a 1:1 relationship, I assume it is to do with offset() but I have somewhat fried my brain trying...

...an = value" and their corresponding points. Actually I want to put them into one legend. I tried several ways but ended up with getting mixed line and point types.My code is as following: hist(CDR3,xlab="",ylab="",main=NULL, xlim=c(min(CDR3),max(CDR3)),freq=FALSE,col="lightgrey") # draw the overlaying normal curve and kernel curve, draw mean and median on X-axis xfit<-seq(min(CDR3),max(CDR3),length=100) yfit<-dnorm(xfit,mean=mean(CDR3),sd=sd(CDR3)) lines(xfit, yfit, col="red",lty=1,lwd=1) lines(density(CDR3,from=min(CDR3),to=max(CDR3)),col="blue&...

...length(bm[,1])) { gbm[t]=S0*exp((mu-sigma^2/2)*bm[t,1]+sigma*bm[t,2]) } cbind(bm[,1],gbm) } set.seed(9826064) cs=c("dark green", "steelblue", "red", "yellow") #png(filename = "GBM.png", width=1600, height=1200, pointsize = 12) par(bg="lightgrey") x=seq(from=0,to=1,length=500) plot(x=x, y=exp(0.7*x), type="n", xlab="Zeit", ylab="", ylim=c(1,3.5)) polygon(x=c(x,rev(x)), y=c(exp(0.7*x)+0.4*sqrt(x),rev(exp(0.7*x)-0.4*sqrt(x))), col="grey", border=cs[3], lty="dashed") lines(x=x,y=exp(0.7*x...

...ng", but I am not able to find a workaround for this in my code to avoid it. I appreciate the help. Thanks. Below is the reproducible code: mixnbinom=function(y,k1,mu1,k2,mu2,prob,eps= 1/100000){ new.parms=c(k1,mu1,k2,mu2,prob) err=1 iter=1 maxiter=100 hist(y,probability=T,nclass=30,col="lightgrey",main="The EM algorithm") xvals=seq(min(y),max(y),1) lines(xvals,prob*dnbinom(xvals,size=k1,mu=mu1)+ (1-prob)*dnbinom(xvals,size=k2,mu=mu2),col="green") while(err>eps){ if(iter<=maxiter){ lines(xvals,prob*dnbinom(xvals,size=k1,mu=mu1)+ (1-prob)*dnbinom(xvals,size=k2,m...

...SPACE, but it should be there because I am using LazyData. That is the code for the PlotBgMap function: PlotBgMap <-function( traj, ... ) { hySplitProj <- CRS(proj4string(traj)) canada <- spTransform(canada.map, hySplitProj) plot(canada.map, border="white", col="lightgrey", ... ) } I'd like to know if I am missing something in the Checking process, or if I should do anything else to fix this error. Thanks. -- View this message in context: http://r.789695.n4.nabble.com/R-CMD-check-as-cran-does-not-show-all-error-messages-tp4696489.html Sent from the R de...