search for: darkgreen

...recurrent question, but I couldn't find any answers that didn't involve the expression "data frame"... so perhaps I'm looking for something new here. I wanted to find a code equivalent to > x=sqrt(1:10) > y=log(1:10) > plot(1:10, x, type="lines", col="darkgreen") > lines(1:10, y, col="red") to use with ggplot2. I've tried > x=sqrt(1:10) > y=log(1:10) > qplot(1:10, x, geom="line", colour=I("darkgreen")) > geom_line(1:10, y, colour="red") Error: ggplot2 doesn't know how to deal with data...

Hi. I need a very short piece of help regarding colouring segments plotted on a graph. When I am plotting segments for the graph, I am using "red" and "darkgreen for the values "1" and "2" respectively. Heres the relevant line of code in R: + col = c("red", "darkgreen")[line.colour.value]) I just need to extend this to refer to a larger range of numbers from 1 to 10, to plot the segments in ten different colours. Th...

...foo <- function(x, col=palette(), ...) {} but the standard palette is not appropriate for my use, and I'd rather not hijack more typical uses Another is to use an explicit list of colors for default, as in bar <- function(x, col=c('red', 'blue', 'brown', 'darkgreen', ...), ...) {} but this must be overridden each time by someone to wants to change the defaults. options() seems like the way to go, but I'm not sure how to implement this. If I use a .onLoad function to set some options, will these be created in the global environment? If not, how t...

...","C","D","E","F","G","I","H","J","K","L","M","N","O","P") par(fin=c(8.0,8.0)) cp <- colorRampPalette(c("white","springgreen","darkgreen"),space="Lab") heatmap(x, Rowv = NA, Colv = NA, scale="none", col=cp(200)) I defined the figure region to make sure that each position is a square. But with these settings I get the following output (though it looks nice): > x <- rnorm(256) > nx <- x + abs(m...

...el.background = element_blank())+ theme(axis.line = element_line(colour = "black"))+ theme(axis.text=element_text(size=18))+ theme(axis.title=element_text(size=20))+ ylab("Anteil BFF an LN [%]") +xlab("Jahr")+ scale_color_manual(values=c("red","darkgreen"), labels=c("?LN", "BIO"))+ scale_fill_manual(values=c("red","darkgreen"), labels= c("?LN", "BIO"))+ theme(legend.title = element_blank())+ theme(legend.text=element_text(size=20)) p1<-p1 + expand_limits(y=c(0, 80)) p1 -----...

...nt-and-click method) EuTop100.MCA<-EuTop100[, c("ország", "szektor", "székhely")] res<-MCA(EuTop100.MCA, ncp=5, graph = FALSE) plot.MCA(res, axes=c(1, 2), col.ind="black", col.ind.sup="blue", col.var="darkred", col.quali.sup="darkgreen", label=c("ind", "ind.sup", "quali.sup", "var", "quanti.sup"), invisible=c("", new.plot=TRUE)) plot.MCA(res, axes=c(1, 2), choix="var", col.var="darkred", col.quali.sup="darkgreen", label=c("var&...

...ar(mfrow = c(2,2), pin=c(6.45669292,6.45669292), pty="m") lineplot.CI(Week, Pref, group = Drug, data=SM.long, xlab = "Week", ylab ="Proportion Sucrose of Total Fluids", x.leg =1, y.leg=.91, leg.lab= c("Salvia","Control"),col =c("red","darkgreen"),ylim=c(0.48,.95), main = "Preference of Stressed Males") lineplot.CI(Week, Pref, group = Drug, data=SF.long, xlab = "Week", ylab ="Proportion Sucrose of Total Fluids", x.leg =1, y.leg=.60, leg.lab= c("Salvia","Control"),col =c("red"...

...ine = element_line(colour = "black"))+ > > theme(axis.text=element_text(size=18))+ > > theme(axis.title=element_text(size=20))+ > > ylab("Anteil BFF an LN [%]") +xlab("Jahr")+ > > scale_color_manual(values=c("red","darkgreen"), labels=c("?LN", "BIO"))+ > > scale_fill_manual(values=c("red","darkgreen"), labels= c("?LN", "BIO"))+ > > theme(legend.title = element_blank())+ > > theme(legend.text=element_text(size=20)) > >...

..."), Expense = c(25, 49, 34, 15)), .Names = c("Food", "Expense"), row.names = c(NA, -4L), class = "data.frame") p <- ggplot(xx, aes(x = 0, xend = Expense, y = Food, yend = Food)) pa <- p + geom_point(aes(Expense, Food)) + geom_segment(colour="darkgreen") + xlab("Food") + geom_vline(xintercept=40, colour='red') pa

...ckground = element_blank())+ theme(axis.line = element_line(colour = "black"))+ theme(axis.text=element_text(size=18))+ theme(axis.title=element_text(size=20))+ ylab("Anteil BFF an LN [%]") +xlab("Jahr")+ scale_color_manual(values=c("red","darkgreen"), labels=c("?LN", "BIO"))+ scale_fill_manual(values=c("red","darkgreen"), labels= c("?LN", "BIO"))+ theme(legend.title = element_blank())+ theme(legend.text=element_text(size=20)) p1<-p1 + expand_limits(y=c(0, 80)) p1...

...oxplot(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,5,4,2) + 0.1) titl...

Dear All, Are there any existing scripts to plot Taylor Diagram (definition see http://www.ipsl.jussieu.fr/~jmesce/Taylor_diagram/taylor_diagram_definition.html ) ? Thanks a lot! Linda [[alternative HTML version deleted]]

...theme(axis.line = element_line(colour = "black"))+ theme(axis.text=element_text(size=18))+ theme(axis.title=element_text(size=20))+ ylab("Anteil BFF an LN [%]") +xlab("Jahr")+ scale_color_manual(values=c("red","darkgreen"), labels=c("?LN", "BIO"))+ scale_fill_manual(values=c("red","darkgreen"), labels= c("?LN", "BIO"))+ theme(legend.title = element_blank())+ theme(legend.text=element_text(size=20))+ scale_linetype_manual(valu...

...'Electrical and optical equipment', 'Other non-metallic mineral products', 'Basic metals and fabricated metal products', 'Transport equipment','Manufacturing n.e.c.') colors=c('yellow','chocolate4','deeppink','green','darkgreen', 'orange','cyan','lightgoldenrod1','blue','red','blueviolet', 'honeydew3','deeppink4','sandybrown') win.graph(width = 7, height = 4) par(mar=c(0,2.5,0,0)) par(bg='white') par(mfrow=c(1,1)) pie(cz09,col=...

...nt 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") levels(dataN$Diet_B) &l...

...2011 - 2012. my code at the moment is: > boxplot(Temp~Month, data=eagle, at = 1:12 - 0.5, boxwex=0.25, subset=Roof > == "TT6", col = "green") > boxplot(Temp~Month, data=eagle, add=TRUE, at = 1:12 - 0.1, boxwex = 0.25, > subset=Roof == "TT13", col = "darkgreen") > boxplot(Temp~Month, data=eagle, add=TRUE, boxwex=0.25, at = 1:12 + 0.2, > subset=Roof == "BARE", col = "red") > smartlegend(x="left",y="top", inset = 0, c("green 1", "green 2", "bare"), > fill = c("green...

...element_line(colour = "black"))+ > > theme(axis.text=element_text(size=18))+ > > theme(axis.title=element_text(size=20))+ > > ylab("Anteil BFF an LN [%]") +xlab("Jahr")+ > > scale_color_manual(values=c("red","darkgreen"), labels=c("?LN", "BIO"))+ > > scale_fill_manual(values=c("red","darkgreen"), labels= c("?LN", "BIO"))+ > > theme(legend.title = element_blank())+ > > theme(legend.text=element_text(size=20))+ &g...

...))+ > theme(axis.line = element_line(colour = "black"))+ > theme(axis.text=element_text(size=18))+ > theme(axis.title=element_text(size=20))+ > ylab("Anteil BFF an LN [%]") +xlab("Jahr")+ > scale_color_manual(values=c("red","darkgreen"), labels=c("?LN", "BIO"))+ > scale_fill_manual(values=c("red","darkgreen"), labels= c("?LN", "BIO"))+ > theme(legend.title = element_blank())+ > theme(legend.text=element_text(size=20)) > p1<-p1 + expand_limit...

...;Mittlere Temperatur (?C)", cex=0.8, col="blue") par(new=T) plot(climate$Week,climate$Frick_Feuchte.mittel, type="n", axes=F, ylim=c(0,100), ylab="", xlab="", xaxt="n") lines(climate$Week, climate$Frick_Feuchte.mittel, lty=2, lwd=2, col="darkgreen") axis(4,las=1, line=5.5, cex.axis=0.8, col="darkgreen") mtext(side=4, line=7.5, "Mittlere Feuchte (%)", cex=0.8, col="dark green") Am 09.01.2018 um 09:30 schrieb Gerrit Eichner: > Hi, Sibylle, > > since you write '"mathematically" add...

...<- commandArgs(); inputfile <- args[2] imgfile   <- args[3] bitmap(imgfile, height=15, width=15, res=100, pointsize=9) library(gplots) library(RColorBrewer) data <- read.table(inputfile) matrix <- as.matrix(data) cp <- colorRampPalette(c("red","yellow","darkgreen"),space="Lab", bias=1.5) heatmap.2(matrix, Colv=1:ncol(matrix), dendogram="row", hclustfun=function(m) hclust(m,method="complete"),col=cp(25),scale="none",trace="none",keysize=1,margins=c(5,12), cexCol=1, cexRow=1) q() dev.off() The alternativ...