search for: mypch

...E", "red", dat$sol) dat$mycol <- ifelse(dat$mycol =="ControlAB", "blue", dat$mycol) dat$mycol <- ifelse(dat$mycol =="Biodiesel", "tomato", dat$mycol) dat$mycol <- ifelse(dat$mycol =="Decane", "black", dat$mycol) dat$mypch <- ifelse(dat$sol =="ControlAE", 21, dat$sol) dat$mypch <- ifelse(dat$mypch =="ControlAB", 22, dat$mypch) dat$mypch <- ifelse(dat$mypch =="Biodiesel", 23, dat$mypch) dat$mypch <- ifelse(dat$mypch =="Decane", 24, dat$mypch) dat <- as.data.fr...

...loess smooths. # Illustrative data: d <- data.frame(time = rep(1:8, each = 6), val = rnorm(48), gp1 = factor(rep(1:6, 8)), gp2 = factor(rep(rep(c('A', 'B'), each = 3), 8))) Based on the code from the Lattice book, p. 160, I set up the following: mypch <- 1:6 mycol <- 1:6 with(d, xyplot(val ~ time, panel = function(x, y, ..., groups, subscripts) { pch <- mypch[gp1[subscripts]] col <- mycol[gp1[subscripts]] grp <- gp2 panel.xyplot(x, y, pch = pch, col = col)...

Estimada comunidad, estoy tratando de hacer un grafico y no resulta (adjuntos datos). Se grafican la vble "con" en el eje X y "can" en el eje Y. Se agrupa por la vble "sol". Se deben agregar como lineas horizontales los valores de "can" asociados a "sol" "ControlAE" y "ControlAB", para lo que uso panel. Pero al agregar

...sp at gmail.com> --- com32/hdt/hdt-cli.c | 1 + 1 file changed, 1 insertion(+) diff --git a/com32/hdt/hdt-cli.c b/com32/hdt/hdt-cli.c index 7542da8..6c5baf1 100644 --- a/com32/hdt/hdt-cli.c +++ b/com32/hdt/hdt-cli.c @@ -779,6 +779,7 @@ void start_auto_mode(struct s_hardware *hardware) } mypch = strtok(NULL, AUTO_SEPARATOR); } + free(temp); /* Executing found commands */ for (int i = 1; i <= nb_commands; i++) { -- 1.7.10.4

...s in question. The latter requires package latticeExtra. library(lattice) library(latticeExtra) # Test data: d <- data.frame(time = rep(1:8, each = 6), val = rnorm(48), gp1 = factor(rep(1:6, 8)), gp2 = factor(rep(rep(c('A', 'B'), each = 3), 8))) mypch <- 1:6 mycol <- 1:6 # Define individual keys for each of the two factors # Details on xyplot() help page mykey1 <- list(title = 'Group 1', cex.title = 1.2, text = list(levels(d$gp1), cex = 0.8), points = list(pch = 1:6, col = 1:6), cex =...

Hi thank you for talking the time to help me with this. I have a sequence of numbers in a file and an equal sequence of various character, say(a b c d) each occurs more than once. I need to plot the numbers so that numbers corresponding to a in the other sequence would have green dots, those corresponding to b a red dot, nothing on c and blue square for d. i.e 2 a show a green dot 4 b show a

...ObsCase <- which(theCases==obs)[1] types<-ifelse(1:nCases==theObsCase,"p","l") theLegendLines <- 1:nCases==theObsCase myFill.color=c("red","orange","ForestGreen","black","blue","DodgerBlue")[pData$Stream] myPch.shape=c(23,24,21,22,15:19)[pData$Stream] theDates<-as.Date(pData$Days,origin=start) x.marks<-prettyDates(theDates, origin=start, by=xby) print(x.marks) xyplot(Value~theDates | Stream, data=pData, groups=Case, type=types, distribute.type=T, fill.color=myFill.color, pch.shape=myPch.sh...