search for: skyblu

I have a problem regarding the colors assigned to the lines in the key to an xy plot. I specify the plot like this: xyplot(numbers~sqrt(breaks)|moltype+disttype, groups = type, data = alldata, layout = c(3,2), type = "l" , lwd = 2, col = c("gray", "skyblue"), key = simpleKey(levels(alldata$type), points = FALSE, lines = TRUE, columns = 2, lwd = 2, col = c("gray", "skyblue"))) However, the lines in the key (the lines that indicates which line is which) are still blue and magenta, and not gray and skyblue. I hav...

I'd like to paste a zodiac sign on a graph, but it only prints it when I add another unicode ( \u3030) to the desired \u2648 - why? See the examplecode (compare the orange with the skyblue): plot(c(-1,1),c(-4,-2),type="n") text(x=0,y=-3.0,labels="\u2648 \u3030",cex=2.3,col="skyblue") text(x=0,y=-3.2,labels="\u2648",cex=2.3,col="orange") zodiac=c("\u2642 \u2643 \u2644 \u2645 \u2646 \u2647 \u2648 \u2649 \u2650 \u2651 \u2652 \u265...

Hi, text()'s pos does handle more dimensional labels, while adj does not - or how can I pass an array to text() and use the adj argument (skyblue text)? plot(-1:1,-1:1) text(c(0,0),c(0,0),c("a","b"),pos=c(1,2),col="red") text(c(0,0),c(0,0),c("a","b"),adj=cbind(c(1,2),c(1,1)),col="skyblue") Thomas

Dear All: I am trying to shade the area between the two lines; *line 1* and *line 2*. You can use this code as an example. x100<-c(-1,1,2,3,4,5,6,3) y100<-c(4,5,3,1,4,4,2,-1) plot(x100,y100) *##### line1* abline(a=-(Beta0-1)/Beta[1,2], b=-Beta[1,1]/Beta[1,2], lwd = 3, col="skyblue", lty=3) ##### lty=3, *##### line 2* abline(a=-(Beta0+1)/Beta[1,2], b=-Beta[1,1]/Beta[1,2], lwd = 3, col="skyblue", lty=3) ##### lty=3, thank you very much for your help with thanks abou ______________________ *AbouEl-Makarim Aboueissa, PhD* *Professor of Statistics* *Depa...

...<- hist(x, breaks = breaks, plot = FALSE) + with(hh, panel.text(x = mids, y = counts, + labels = as.character(counts), + pos = 1)) + }, + labels=TRUE, main="Histograms by target", col="skyblue") Warning messages: 1: In title(main = main, sub = sub, xlab = xlab, ylab = ylab, ...) : "data" is not a graphical parameter 2: In axis(1, ...) : "data" is not a graphical parameter 3: In axis(2, ...) : "data" is not a graphical parameter 4: In title(main = mai...

x<- sample(1:14, 319, rep=T) hist(x, freq=F, xlab='',ylab="Percent of Total", col="skyblue", labels=TRUE, right=FALSE,main="Position of Hypothetical Protein") Is there is way to round the labels to 2 decimal digits, for example, 0.088 is changed to 0.09. Thanks! -- Sincerely, Changbin -- [[alternative HTML version deleted]]

...ple(1:14, 608, rep=T) n<- sample(1:14, 1140, rep=T) vt<-c(h, c, n) ta<-rep(c("h", "c", "n"), c(319, 608, 1140)) to<-data.frame(vt,ta) library(lattice) histogram(~ vt|ta, data=to, layout=c(1,3), labels=TRUE, main="Histograms by target", col="skyblue") Thanks so much! -- Sincerely, Changbin -- [[alternative HTML version deleted]]

Hi, I'd like to have a low resolution word map in R. The "maps" package has this option, but if I use the argument, the map looses sense: Russia and Australia get empty etc library("maps") m=map(col="skyblue",fill=TRUE,plot=TRUE,resolution=10) length(m$x) If I drop the "fill=TRUE", the effect of "resolutaion=10000" is lost, ie no change. Is there any other package or could I use the resolution argument differently? Thanks, Thomas

Dear all, I have a problem with this piece of code which I don't really see how to overcome and I think it might also be of more general interest: map(xlim=c(-10,40),ylim=c(30,60) ,mar=rep(0,4)+.1 ,fill=T ,col="darkseagreen" ,bg="skyblue" ) The idea is to use the map function from the maps package to draw a map of Europe. By default with the argument fill=T there is border to the polygones and I want them without border. Here is the start of the problems. The polygone function used in map function has a border argument that...

...ui = fluidPage( sidebarLayout( sidebarPanel(sliderInput("n", "Bins", 5, 100, 20)), mainPanel(plotOutput("hist")) ) ), server = function(input, output) { output$hist <- renderPlot( hist(xs, breaks = input$n, col = "skyblue", border = "white") ) } ) Thank you, Axel. [[alternative HTML version deleted]]

...rizontally below the barplot, then all labels are not appear in the plot due to lack of space. I used the following function: barplot(t(bar), main="Barplot based on LCMS", ylab="RF membership Probability",    space=0,names.arg=NULL,density=NULL,angle=0,xpd=FALSE,   col=c("skyblue","red","yellow","purple"),cex.axis=0.1.0,cex.main=1.0,las=1,cex=0.7)   So, i want to put labels vertically just below my barplot. I think it is minor problem. It will be great if somebody help me. Thanks is advances.   Ram Kumar Basnet M Sc Student Wageningen...

...sidebarPanel(sliderInput("n", "Bins", 5, 100, 20)), mainPanel(plotOutput("hist")) ) ), server = function(input, output) { get("xs", envir = my.env) output$hist <- renderPlot( hist(xs, breaks = input$n, col = "skyblue", border = "white") ) } ) myApp(rnorm(100)) Axel. On Thu, Sep 21, 2017 at 11:13 AM, Thierry Onkelinx <thierry.onkelinx at inbo.be > wrote: > Dear Axel, > > I've used environment for such problems. > > assign("xs", xs, envir = my.env) in...

...( sidebarLayout( sidebarPanel(sliderInput("n", "Bins", 5, 100, 20)), mainPanel(plotOutput("hist")) ) ), server = function(input, output) { output$hist <- renderPlot( hist(x, breaks = input$n, col = "skyblue", border = "white") ) } ) } myApp(rnorm(100)) Regards, Axel. [[alternative HTML version deleted]]

...nel. I'd like to move one to the left and also change strip colors. I tried the following but it didn't produce the desired result xyplot(V4~V3|frac.f*stdev.f, aspect=3/4, xlab="Min number of reads", ylab="Number of misjoins", strip=strip.custom(which.given=1, bg="skyblue"), strip.left=strip.custom(which.given=2,bg="yellow")) This changes the colors but also does the following - positions the left strips slightly away from the respective panels - all strip labels and values reflect only one conditional variable (s=2, s=3, etc.) Any help would be m...

...t; sidebarPanel(sliderInput("n", "Bins", 5, 100, 20)), > mainPanel(plotOutput("hist")) > ) > ), > server = function(input, output) { > output$hist <- renderPlot( > hist(xs, breaks = input$n, > col = "skyblue", border = "white") > ) > } > ) > > Thank you, > Axel. > > [[alternative HTML version deleted]] > > ______________________________________________ > R-help at r-project.org mailing list -- To UNSUBSCRIBE and more, see > https://stat....

Hi, When I tried an example of the xgobi function, I got the following error. Could someone explain to me what is wrong ? Thanks a lot. xgobi(crabs,colors=c("SkyBlue","SlateBlue","Orange","Red")[rep(1:4,each=50)]) c:/PROGRA~1/R/R-23~1.1/library/xgobi/scripts/xgobi.bat -vtitle 'crabs' -std mmx C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/Rtmp1FVirb/xgobi-crabs2c3b6032 The system cannot find the path specified. tong

library(lattice) hisfunc<- function (vari) { histogram(~ vari|target, data=total, type="count", layout=c(1,3), labels=TRUE, main="Histograms by target", col="skyblue") } hisfunc(total$acid) HI, guys, I am using the hisfunc to get histograms for different variables, for the title of the histogram, I want to have different name for each variable. how can I DO ? Thanks! -- Sincerely, Changbin [[alternative HTML version deleted]]

...ave the same data? Why zero line doesn´t complete the shaded area? plot(cf[,1],type="l",col="black", xlab="Time", ylab="Correlation", axes=F) grid() cord.x <- c(0,1:length(cf[,1]), length(cf[,1])) cord.y <- c(0,cf[,1],0) polygon(cord.x,cord.y,col='skyblue') par(new=T) variable<-matrix(0,length(cf[,1]),1) plot(tfr1[(T+Tcor):(nrow(tfr1)),1],variable,type="l",ylab="",col="black",xlab="") mtext("Correlation",side=4,line=2,col=4) title("Dinamic Correlation",font=4) [[alternative HTML...

...#39;))) library(lattice) graf.my.label <- xyplot(my.factor ~ quantil, data = my.label, aspect = 'fill',xlab = "",ylab='',xlim=c(0,103), scales=list(x=list(alternating=0 ),tick.number = 2,tck=0), panel = function(x, y) { panel.stripplot(x[1], y[1], pch=19, col='skyblue',cex=1.3,xaxt='n') panel.stripplot(x[2], y[2], pch=19, col='red',cex=1.3,xaxt='n') panel.stripplot(x[3], y[3], pch=19, col='chocolate',cex=1.3,xaxt='n') panel.stripplot(x[4], y[4], pch=19, col='blue',cex=1.3,xaxt='n') panel.stripplot(x[...

...data # plot the Car x Color combinations, using 'cex' to specify the dot size plot(x=as.numeric(data$Car), # as.numeric give numeric values y=as.numeric(data$Color), cex=data$Value/max(data$Value)*12, # standardize size to (0,12) pch=19, # filled circle col="skyblue", # dot color xlab="Car", # x axis label ylab="Color", # y axis label xaxt="n", # no x axis lables yaxt="n", # no y axis lables bty="n", # no box around the plot xlim=c(0,nlevels(data$Car )+0.5), # extra space o...