search for: grey80

...<-data.frame(a$xod,a$yod) plot( a$xod,a$yod, xlim=c(-30,30), ylim=c(-30,30),xlab="",ylab="",type="p", data=ordinate) abline(v=0,h=0) par(new=TRUE) # Define cars vector with 8 values cars <- c(1,1,1,1,1,1,1,1) # Define colors in each sector color1 <- c("grey80","grey80","grey80","grey80","gray80","grey30","grey20","gray10" ) ## gray10=<0.0001, gray20<0.001, gray30<0.01, gray40=<0.05, gray 80=>0.05 # Putting sector levels car_labels <- c(1,2,3,4,5,6,7,8) car_label...

...2 2 0 National.CS.Terrestrial 16 148 7 7 4 2 National.CS.Marine 69 6 4 2 2 0 I have tried the following code, but it does not work: barplot(cs.not.log.bp[c(1:2),], xlab = "Conservation status", ylab = "Number of species", col = c("grey90","grey80"),names = cs.names, ylim = c(0,250), space = 2) barplot(cs.not.log.bp[c(3:4),], col = c("grey60","grey30"), beside = T,add = T,names.arg = NA) legend("topright",c("IUCN Terrestrial","IUCN Marine","National CS Terrestrial","Nati...

...0 National.CS.Terrestrial 16 148 7 7 4 2 National.CS.Marine 69 6 4 2 2 0 I have tried the following code, but it does not work: barplot(cs.not.log.bp[c(1:2),], xlab = "Conservation status", ylab = "Number of species", col = c("grey90","grey80"), names = cs.names, ylim = c(0,250), space = 2) barplot(cs.not.log.bp[c(3:4),], col = c("grey60","grey30"), beside = T,add = T,names.arg = NA) legend("topright",c("IUCN Terrestrial","IUCN Marine","National CS Terrestrial","...

..., 146), matrix(35*2.5, 1, 99), matrix(35*3.5,1,80), matrix(35*4.5, 1, 69), matrix(35*5.5, 1, 63), matrix(35*6.5, 1, 52), matrix(35*7.5,1, 53), matrix(35*8.5, 1, 55), matrix(35*9.5, 1, 98)) Y1<-as.vector(Y) par(mar=c(4.5, 4.1, 3.1, 0)) hist(Y1, breaks=seq(0, 350, by=35), ylim=c(0, 0.3), col="grey80", freq=FALSE) par(mar=c(5.1, 4.1, 4.1, 2.1)) [[alternative HTML version deleted]]

Would anyone be able to give me some ideas on how to go about changing the output of pairs()? What I want to do is : * plot each value as a point (instead of those hollow circles) * remove the gap between each scatter plot * make the frame around each scatter plot pale grey Thanks for you time, Hadley -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-help

Hello, I'd like to add custom labels to my pair() plot. These labels include math expression but they aren't correctly displayed... Further, I want that the boxes for the text.panel (diagonal) have an other background color (grey80). Is that generally possible? If yes how do I have to set it? What I've so far is: panel.cor <- function(x, y, digits=2, prefix="", cex.cor) { usr <- par("usr"); on.exit(par(usr)) par(usr = c(0, 1, 0, 1)) r <- abs(cor(x, y)) txt <- format(c(r, 0.123456789...

..."black", size = 0.2), axis.title.x = theme_blank(), axis.title.y = theme_blank(), axis.ticks.length = unit(0, "lines"), axis.ticks.margin = unit(0, "lines"), legend.background = theme_rect(colour = NA), legend.key = theme_rect(colour = "grey80"), legend.key.size = unit(1.2, "lines"), legend.text = theme_text(size = base_size * 0.8), legend.title = theme_text(size = base_size * 0.8, face = "bold", hjust = 0), legend.position = "right", panel.background = th...

...sp==splist[i],],grelha_ID,by.x="quad",by.y="quadricula ",all.y=T,) quad_N_sp$x[is.na(quad_N_sp$x)] <- 0 quad_N_sp <- quad_N_sp[order(quad_N_sp$id),] paleta <- gray(1-(quad_N_sp$x)/max(quad_N_sp$x)) #! Tons de cinzento win.graph(4,5) plot(grelha,ol="grey80", #! Gráfico com grelha de amostragem e gradiente de abundância fg=paleta, cex.lab=0.7, cex.axis=0.7, cex.main=0.7, xlab="Coord X", ylab="Coord Y", main=paste("Espécie: ",splist[i]), xlim=c(210000,240000) ) col_lab <- c(max(quad_N_...

...get a blank plot. Here's my code: df <- data.frame( xmin = c(1,5), xmax = c(2,7), ymin = c(0,3), ymax = c(2,5) ) ggplot(df, aes(xmin = xmin, xmax = xmax, ymin = ymin, ymax = ymin)) + geom_rect(fill="grey80") Please help me before I Google again! :-) Thanks. Marsh Feldman [[alternative HTML version deleted]]

...or an array of 3 dimensions. types, # Matrix of pattern designations (i.e., what pattern for each cell). # patterns, # List of lists; each list specifies one pattern. patterns = list(list(0, "black", 1, "white", "white", 0, 0.5, "grey80", "no", 1)), ...){ # #---Draw cellgrams. for (i in 1:dim(values)[1]){ for (j in 1:dim(values)[2]){ pattern = patterns[[types[i,j]]] cellgram(cell = values[i,j,], shape = pattern[[1]], shap...

Number of subjects = 25 Mean of Sample = 77 Standard Deviation (s) = 12 sem = 2.4 df = 24 The claim is that population mean is less than 80 * > 80 So our H0 (null hupotheis) is * > 80 > qt(.95,24) [1] 1.710882 > qt(0.05, 24) [1] -1.710882 tstat = -1.25 on t24 falls between 1.711 (.95,24) and *1.711 (.005,24) How Could I sketch t curve for the above data where my * would be at the

...riables and data nhis <- svydesign (id=~psu,strat=~stratum, weights=~wt8, data=tor, nest=TRUE) MyBreaks <- c(18,35,45,55,65,75,85,95) png("svyhist_age_at_death.png") svyhist (~dthage, subset (nhis, xspd2==2), breaks=MyBreaks, main= " ", col="grey80", xlab="Age at Death Distribution" ) lines (svysmooth(~dthage, bandwidth=5,subset(nhis, xspd2==2)), lwd=2) dev.off () Pradip K. Muhuri Statistician Substance Abuse & Mental Health Services Administration The Center for Behavioral Health Statistics a...

Dear R-helpers, the problem I'm facing today is to convince lattice to paint some areas in gray. The areas I would like to have in gray, are confidence bands I've googled around in the mailing list archives and eventually find some clues. This link is my starting point http://tolstoy.newcastle.edu.au/R/e2/help/07/04/15595.html I'm reproducing here the code for your convenience est

The data is of two forms, ie one numeric and another ordinal ie 1.5 and <.5. The X Value is a factor. I'm trying to create a lattice conditioned plot with the following characteristics: 1) The plot is conditioned using the form (Conductivity~Day|Valve) 2) The plot should use a barplot for the ordinal (<.5) and dots for the numeric (1.5) 3) A line should be created specifying a

Hi, I have a question which is a little off-topic but then again, it should stay in the boundaries of what can be done with available R functions. Has anyone pointers to tutorials or the like where one can get inspiration on how to visualize some "spatial" statistics? I want to analyze different statistics of 60 counties in a country. I have a shape file for those counties thus I can

I am trying to automate a report that my company does every couple of years for the state of Maine. In the past we have used SPSS to run the data and then used complicated Excel template to make the tables/graphics which we then imported into Word. Since there are 256 tables/graphics for this report, this work flow is a little painful. I would like to automate the process and I think I can do

Hi friends, I need suggestions/directions on how to producing a waterfall plot for present extend of change in tumour size for a set of respondents in a study.  Example of use of waterfall plot is in the following slides presented at ASCO 2007 by Axel Grothey. Link is

Dear list,   I made boxplots using ggplot and want to control for x- and yaxis. Using "plot" I can do it by setting cex.axis equally to any size but can't figure out how to do it with ggplot.     ggplot(dat, aes(x = factor(time), y = volume)) + opts(axis.title.x=theme_text(size=8),axis.title.y=theme_text(size=8)) + geom_boxplot() + geom_jitter(aes(colour = id))+labs(x =

...BABABA", "grey74", "#BDBDBD", "grey75", "#BFBFBF", "grey76", "#C2C2C2", "grey77", "#C4C4C4", "grey78", "#C7C7C7", "grey79", "#C9C9C9", "grey80", "#CCCCCC", "grey81", "#CFCFCF", "grey82", "#D1D1D1", "grey83", "#D4D4D4", "grey84", "#D6D6D6", "grey85", "#D9D9D9", "grey86", "#DBDBDB&q...

...depth=df.trunc[,2] crn2=df.trunc[,-2] plot(yr.vec,crn2,type='n',xlab='Years',ylab='RWT', main='Gemenele') axis(1,at=seq(1900,2012,by=4)) polygon(c(yr.vec,rev(yr.vec)), c(df.ci$lower,rev(df.ci#upper)), col='grey80',border=NA) lines(yr.vec,crn2,col='black') abline(h=1) par(new=TRUE) plot(yr.vec,samp.depth,type='1',col='black',xlab='',ylab='',axes=FALSE,...