search for: ff7f00

...l change. Also, an examination of "superpose.symbol" reveals the following: > superpose.symbol <- trellis.par.get("superpose.symbol") > superpose.symbol $cex [1] 0.8 0.8 0.8 0.8 0.8 0.8 0.8 $col [1] "#00ffff" "#ff00ff" "#00ff00" "#ff7f00" "#007eff" "#ffff00" "#ff0000" $font [1] 1 1 1 1 1 1 1 $pch [1] "o" "o" "o" "o" "o" "o" "o" This seems to indicate that lattice graphics are restricted to no more than seven colors, though I...

...es library(geneplotter) library(RColorBrewer) layout(matrix(1:1, ncol=2, byrow=TRUE)) smoothScatter(xyz, nrpoints=0, xlim=c(-3,3), ylim=c(0,5),colramp=colorRampPalette(c("#f8f8ff", "white", "#736AFF", "cyan", "yellow", "#F87431", "#FF7F00", "red", "#7E2217"))) ###END Thanks very much for any help, Jason [[alternative HTML version deleted]]

...dependent value (population for example). I pass the colours of the regions to the plot.Map function by defining the foreground colour: jet.colors = colorRampPalette(c("#00007F", "blue", "#007FFF", "cyan", "#7FFF7F", "yellow", "#FF7F00", "red", "#7F0000")) n=100 cols <- jet.colors(n) Intervalls = cut(as.numeric(Vector),n, na.rm=TRUE) fgs <-cols[Intervalls] ## is there some option/possibility here to choose colours differently ?? plot.Map(Shape.map, fg=fgs, ol=NA, bty="n", xlab="&quo...

...R wiki page by the following code: library(caTools) # external package providing write.gif function jet.colors = colorRampPalette(c("#00007F", "blue", "#007FFF", "cyan", "#7FFF7F", "yellow", "#FF7F00", "red", "#7F0000")) m = 600 # define size C = complex( real=rep(seq(-1.8,0.6, length.out=m), each=m ), imag=rep(seq(-1.2,1.2, length.out=m), m ) ) C = matrix(C,m,m) # reshape as square matrix of complex numbers Z = 0...

...<-read.csv(textConnection(getdata),header=T) test$year<-as.factor(test$year) head(test) ##Custom color ramp jet.colors <- colorRampPalette(c("#00007F", "blue", "#007FFF", "cyan", "#7FFF7F", "yellow", "#FF7F00", "red", "#7F0000")) ##create trellis of tileplots betweenyear<-tileplot(index~month*-area|stock+year,test,col.regions=jet.colo rs(256), scales=list(x=list(at=5:9, labels=c('May' ,'Jun','Jul','Aug','Sep'),cex=0.6), y=list(...

...quot;,"#0000CD","#D4D4D4","#FFC1C1","#FFDEAD","#9ACD32", "#99CCFF","#6495ED","#66CDAA","#EEC900","#BC8F8F", "#C00000","#696969","#473C8B","#8B4500", "#FF7F00","#9370DB", "#800000","#104E8B","#228B22")[20:1] myagg<-aggregate(indata[invars],by=indata[datesvar],FUN=myfunction) yrange=range(pretty(as.matrix(myagg[2:length(myagg)]))) if(fixedy==0){ ymin<-yrange[1] ymax<-yrange[2]} else {...

I've found RColorBrewer useful for its qualitative palettes, but wished that it could generate more than 12 qualitative palettes (e.g. with Set3). Any suggestions for alternative color palette generators that can handle e.g. 18 distinctive colors? (I'm aware of using rainbow(), but this doesn't generate enough distinct colors when the number of palettes is large). Thanks, Andrew

...color ramp...I didn't like the ones that are provided in the package, this is similar to jet colors in matlab jet.colors <- colorRampPalette(c("#00007F", "blue", "#007FFF", "cyan", "#7FFF7F", "yellow", "#FF7F00", "red", "#7F0000")) #Tileplots comparing how CWT recoveries from brood year 1974 -1977 and GSI data #from 2010 - 2011 represent the relative abundance of Rogue river chinook salmon through space and time R_g_s<-tileplot(Rogue~month_num*-area_num,gsi_s,col.regions=jet...

...lettes. For example, Matlab's jet palette (also available in fields package under peculiar name 'tim.colors') can be defined by: jet.colors = colorRampPalette(c("#00007F", "blue", "#007FFF", "cyan", "#7FFF7F", "yellow", "#FF7F00", "red", "#7F0000")) Other predefined functions for creating and managing color palettes that I know of, are: * R provides functions for creating palettes of continuous colors: rainbow, topo.colors, heat.colors, terrain.colors.colors, gray * tim.colors in package...

...m the bottom area- for y (above z) ### Creating a palette of 20 colors: all.colors<-c("#E0EEEE","#D4D4D4","#FFC1C1","#FFDEAD","#9ACD32", "#99CCFF","#6495ED","#66CDAA","#EEC900","#BC8F8F", "#FF7F00","#C00000","#9370DB","#473C8B","#696969", "#8B4500","#800000","#0000CD","#104E8B","#228B22") ### Check them out: temp<-barplot(1:20,rep(1,20),col=all.colors,horiz=T) xx <- c(my.data$date, rev(my.d...

..."darkolivegreen1", "#CAFF70", "darkolivegreen2", "#BCEE68", "darkolivegreen3", "#A2CD5A", "darkolivegreen4", "#6E8B3D", "darkorange", "#FF8C00", "darkorange1", "#FF7F00", "darkorange2", "#EE7600", "darkorange3", "#CD6600", "darkorange4", "#8B4500", "darkorchid", "#9932CC", "darkorchid1", "#BF3EFF", "darkorchid2", "#B23AEE&...