search for: darkblu

...) date_p <- as.POSIXct(date, "CET") par(mfrow=c(2,1), ylog = TRUE, yaxp = c(0.01, 100, 3)) plot(date_p, NO3, log = "y", type = "l", col = "darkred", main = "NVZ-1", xlab = "time", ylab = "NO3-" ) lines(date_p, NH4, col = "darkblue", lty = "dotted") plot(date_p, NH4, log = "y", type = "l", col = "darkblue", main = "NVZ-1", xlab = "time", ylab = "NH4+" ) So, as I anderstood, extreme (max and min) values on the y axis are conntrolled byt the yaxp, but...

I'm interested in creating a graphic -like- this: c <- ggplot(mtcars, aes(qsec, wt)) c + geom_point() + stat_smooth(fill="blue", colour="darkblue", size=2, alpha = 0.2) but I need to show 2 sets of bands (with different shading) using 5%, 25%, 75%, 95% limits that I specify and where the heavy blue line is the median. I don't understand how to do this with ggplot2. What I am doing currently is to generate 'boxplots' (w...

...&height, everything is in cm): pdf("test.pdf",width=(20+2+4)/2.54,height=(10+3+1)/2.54) plot(10:30, 9*cos(10:30),type="l",xlim=c(10,30),ylim=c(-10,15),xaxs="i",yaxs="i",asp=1) #par(mar=c(0,0,0,0)) par(mai=c(2,3,4,1)/2.54) box("figure", col="darkblue") dev.off() The size of the darkblue box is fine, but I cannot yet control the size of the plot area (although http://research.stowers-institute.org/efg/R/Graphics/Basics/mar-oma/index.htm helped me a lot). And seeting the mar to zero (#) works in a R figure, but not in a pdf. Why? I alread...

Hi, this seems to work (assuming that your problem was the setting of colours...): --- snip --- network %>% ggraph(., layout = "auto") + # This produces an error... # geom_edge_arc(curvature=0.3, aes(width=(E(network)$weight/10), color=c("darkblue", "red")[as.factor(edge_list$relationship)], alpha=0.5)) + # ... this works :-) geom_edge_arc(curvature=0.3, aes(width=E(network)$weight/10, color=edge_list$relationship), alpha=.5) + scale_edge_color_manual(values=c("pos"="darkblue", "neg"...

...ps of nodes: --> geom_node_point(aes(size = V(network)$hub_score*200, color= as.factor(V(network)$community))) I additionally want to consider different colors for different edge groups The grouping is defined in the edge_list$relationship: negative relationship = red and positive relationship = darkblue. The code is working in the way that the groups are separated by two colors. However, the code uses not the assigned colors. Does anyone have any idea how to adapt the code? --> geom_edge_arc(curvature=0.3, aes(width=(E(network)$weight/10), color=c("darkblue", "red")[as.fac...

...39;Grade \n 3','Grade \n 4','Grade \n 5','Grade \n 6','Grade \n 7','Grade \n 8') o <- rev(order(math.bar)) math.bar <- math.bar[o] par(ps=10) math.barplot <- barplot(math.bar, main = list("Death Rates in Virginia", font = 1), col=c('darkblue'), names=c('Grade \n 3','Grade \n 4','Grade \n 5','Grade \n 6','Grade \n 7','Grade \n 8'), ylim=c(0,100), ylab="Percentage", xlab="Grade Level") text(math.barplot, math.bar+5, math.bar, xpd = TRUE) #Horizontal bars syntax: pa...

...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) title(ylab = "Distance between Centers of B and NB Range (1000 km)", cex.lab = 1.4,line = 3) axis(side=2,yaxp=c(0,20000,4),cex.lab=1.4, cex.axis=1.2,font.axis=2, las=1) [[alternative...

...quot;, "UT3", "UT5", "GC1", "BC1", "WC1")), c(format(seq(as.Date('2000-10-01'), as.Date('2001-09-30'), by='month'), "%b")))) # palette definition palette <- colorRampPalette(c("darkblue", "blue", "white", "red", "darkred")) # find max stretch value zmax1 = max(abs(m1)) m1.melted <- melt(m1) names(m1.melted) <- c('Site','Month', 'Concentration') # Set up an example matrix with binary code for which resul...

...tab), 3) labs <- format(time(tab), fmt) axis(1, at = time(tab)[ix], lab = labs[ix], tcl = -0.7, cex.axis = 0.9) } } plot.zoo(tab, plot.type="single", panel=my.panel, lty=c(1,2,3,4,5,1), lwd=c(8,2,2,2,2,8), col=c("darkorange", "red2","darkblue","darkblue","green","midnightblue"), xlab=" ",ylab = "euro/MWh",xaxt="n") #################################################################### This code produces a graph with a non-decimal x-axis but by far more (human...

...quot;blue", "red"), layout=layout_with_mds(.)) tiff("figures/Test_network_bysubcatecory.tiff", width=1000, height=900, res=120) network %>% ggraph(., layout = "auto")+ geom_edge_arc(curvature=0.3, aes(width=(E(network)$weight/10), color=c("darkblue", "red")[as.factor(edge_list$relationship)], alpha=0.5)) + geom_node_point(aes(size = V(network)$hub_score*200, color= as.factor(V(network)$community))) + geom_node_text(aes(label = V(network)$name), size=3, color="white", repel=T)+ scale_color_scico_d(palette =...

...13, each=20))) Diet.colors <- c("forestgreen", "darkgreen","chocolate1","darkorange2", "sienna2","red2","firebrick3","saddlebrown","coral4", "chocolate4","darkblue","navy","grey38") levels(dataN$Diet_B) <- Diet.colors bwplot(GE_distance ~ Diet_B, data=dataN, xlab=list("Diet of Breeding Ground", cex = 1.4), ylab = list( "Distance between Centers of B and NB Range (1000 km)",...

...point(aes(size = V(network)$hub_score*200, color= > as.factor(V(network)$community))) > I additionally want to consider different colors for different edge > groups > The grouping is defined in the edge_list$relationship: negative > relationship > = red and positive relationship = darkblue. The code is working in the > way > that the? groups are separated by two colors. However, the code uses not > the > assigned colors. Does anyone have any idea how to adapt the code? > --> geom_edge_arc(curvature=0.3, aes(width=(E(network)$weight/10), > color=c("darkblue&...

..., 10) pdf(file = "myfile.pdf", pointsize = 7, paper="letter", width=6, height=9) forestplot(newcite,or,lcl,ucl,zero=0, graphwidth = unit(1.2,"inches"), clip=c(log(0.1),log(10)), xlog=TRUE, xticks=mytk10, xlab="Odds Ratio", col=meta.colors(box="darkblue",line="darkblue",zero="grey50")) title(main = list("My title", col="darkblue", font=2)) dev.off() --> I have changed the width of the pdf output and/or the graphwidth specified in the forestplot function -- and depending on the length of the text/ta...

Dear ggplot2 users, is there an easy/elegant way to suppress zero count bars in histograms with logarithmic y axis ? One (made up) example would be qplot(exp(rnorm(1000))) + geom_histogram(colour = "cornsilk", fill = "darkblue") + scale_x_sqrt() + scale_y_log10() Thanks! Markus [[alternative HTML version deleted]]

...date_p <- as.POSIXct(date, "CET") par(mfrow=c(2,1), ylog = TRUE, yaxp = c(0.01, 100, 3)) plot(date_p, NO3,log = "y", type = "l", col = "darkred", main = "NVZ-1", xlab = "time", ylab = "NO3-" ) lines(date_p, NH4, col = "darkblue", lty = "dotted") plot(date_p, NH4, log = "y", type = "l", col = "darkblue", main = "NVZ-1", xlab = "time", ylab = "NH4+" ) The first problems comes with the definition maxy and miny (following a previous advice od Christi...

...o replicate some examples in Franses' & Paap's Quantitative Models in Marketing Research. > t <- 1:1000 > e1 <- rnorm(1000) > e2 <- rnorm(1000) > x <- 0.0001*t+e1 > y2 <- -2+x+e2 > y <- ifelse(y2>0,1,0) > > plot(x, y, pch = 16, col = "darkblue", + main = expression(paste("Scatter diagram of ", italic(y[t]), " against ", + italic(x[t]))), + xlab = expression(italic(x[t])), + ylab = expression(italic(y[t]))) > lines(glm(y ~ x, family = binomial)) Error in xy.coords(x, y) : x and y lengt...

Suppose I have a file (named "tmp.rmd") containing: --- title: Test --- ```{r example, echo=FALSE, results='asis'} tmp <- data.frame(a=1:5, b=letters[1:5]) print( knitr::kable(tmp, row.names=FALSE)) ``` And I render it with: rmarkdown::render('tmp.rmd', output_format=c('html_document','pdf_document')) I get two files: tmp.pdf tmp.html Is

...> <style type="text/css"> > > body{ /* Normal */ > font-size: 12px; > } > td { /* Table */ > font-size: 8px; > } > h1.title { > font-size: 38px; > color: DarkRed; > } > h1 { /* Header 1 */ > font-size: 28px; > color: DarkBlue; > } > h2 { /* Header 2 */ > font-size: 22px; > color: DarkBlue; > } > h3 { /* Header 3 */ > font-size: 18px; > font-family: "Times New Roman", Times, serif; > color: DarkBlue; > } > code.r{ /* Code block */ > font-size: 12px; > } &g...

...= T) ggplot(m1.melted, aes(x = Month, y = Site, fill = Concentration), autoscale = FALSE, zmin = -1 * zmax1, zmax = zmax1) + geom_tile() + coord_equal() + scale_fill_gradient2(low = "darkred", mid = "white", high = "darkblue", midpoint = 0) +annotate("rect",ymin=ind[,"row"]-.5,ymax=.5+ind[,"row"], xmin=-.5+ind[,"col"],xmax=.5+ind[,"col"],colour="red", size=.5, linetype=1, fill=NA) Cheers Am 20.12.2017 um 01:32 schrieb Morway, Er...

...give me the desired labels in the legend. Could someone explain? qplot(Year,CDR,data=b3,colour=Phase,geom=c("point","line"),legend.position="bottom")->p p+scale_colour_gradient2(limits=c(1,2), midpoint=1,low="magenta", mid="magenta", high="darkblue",breaks=c(1,2),labels=c("a","b")->p p Vikas [[alternative HTML version deleted]]