r - Panel plot with multiple x variables -


i'd make plot 1 produced below (in either lattice or ggplot2) each panel has different x variable. below solution uses reshape solution don't because require duplicating other columns used other aesthetic mapping (in example, f used color). there way tell lattice (or ggplot2) plot different x variable in each panel doesn't require unnecessary, memory-inefficient, duplication of f variable (as created when reshaping d)?

require(ggplot2) require(lattice) require(reshape2)  n <- 100 d <- data.frame(y=rnorm(n), f=as.factor(rbinom(n, size=1, prob=.3)), replicate(5, rnorm(n)))  d.m <- melt(d, id.var=c("y","f"))  xyplot(y~value| variable, group=f, data=d.m) ggplot(data=d.m, aes(x=value, y=y, colour=f)) + geom_point() + facet_wrap(~variable)

see how data in f gets duplicated result of melt

           y f variable       value 1   0.5812506 0       x1 -0.08260787 2  -1.1241157 0       x1 -0.24778013 3   1.2121779 0       x1 -0.75744705 4  -0.4249275 1       x1 -1.23016030 5   0.1224656 0       x1  0.72092066 6  -0.3897643 1       x1 -0.74259349 7  -1.2860360 1       x1 -1.32834543 8   0.8537305 0       x1  0.64800540 9  -1.0921726 1       x1 -0.89841339 10  1.2463329 0       x1  1.25437668 > d.m[n+(1:10),]              y f variable      value 101  0.5812506 0       x2  0.7030727 102 -1.1241157 0       x2 -0.5555425 103  1.2121779 0       x2 -0.6258554 104 -0.4249275 1       x2  0.6733429 105  0.1224656 0       x2 -0.1000167 106 -0.3897643 1       x2  0.4812312 107 -1.2860360 1       x2 -0.9201268 108  0.8537305 0       x2  0.2198029 109 -1.0921726 1       x2  0.4488353 110  1.2463329 0       x2 -0.2140737 > d.m[2*n+(1:10),]              y f variable       value 201  0.5812506 0       x3  1.74131617 202 -1.1241157 0       x3  1.70265539 203  1.2121779 0       x3  0.68513441 204 -0.4249275 1       x3 -0.04074366 205  0.1224656 0       x3  1.16006226 206 -0.3897643 1       x3 -1.65739811 207 -1.2860360 1       x3  0.19553116 208  0.8537305 0       x3 -0.80369612 209 -1.0921726 1       x3  0.39121351 210  1.2463329 0       x3 -1.01627690

using gridextra package might solution. following code:

# required libraries require(ggplot2) require(gridextra)  # creating different plots & 1 empty plot p1 <- ggplot(data=d, aes(x=x1, y=y, colour=f)) +    geom_point() + ggtitle("x1") + xlim(-4,4) +   theme_bw() +   theme(     axis.title.x = element_blank(),     axis.text.x = element_blank(),     axis.ticks.x = element_blank()   )  p2 <- ggplot(data=d, aes(x=x2, y=y, colour=f)) +    geom_point() + ggtitle("x2") + xlim(-4,4) +   theme_bw() +   theme(     axis.title.y = element_blank(),     axis.text.y = element_blank(),     axis.ticks.y = element_blank(),     axis.title.x = element_blank(),     axis.text.x = element_blank(),     axis.ticks.x = element_blank()   )  p3 <- ggplot(data=d, aes(x=x3, y=y, colour=f)) +    geom_point() + ggtitle("x3") + xlim(-4,4) +   theme_bw() +   theme(     axis.title.x = element_blank(),     axis.text.x = element_blank(),     axis.ticks.x = element_blank()   )  p4 <- ggplot(data=d, aes(x=x4, y=y, colour=f)) +    geom_point() + ggtitle("x4") + xlim(-4,4) +   theme_bw() +   theme(     axis.title.y = element_blank(),     axis.text.y = element_blank(),     axis.ticks.y = element_blank(),     axis.title.x = element_blank(),     axis.text.x = element_blank(),     axis.ticks.x = element_blank()   )  p5 <- ggplot(data=d, aes(x=x5, y=y, colour=f)) +    geom_point() + ggtitle("x5") + xlim(-4,4) +   theme_bw() +   theme(     axis.title.x = element_blank()   )  p6 <- ggplot(data=d, aes(x=x5, y=y)) +    geom_point(size=0) + ggtitle("") + xlim(-4,4) +   theme_bw() +   theme(     panel.border = element_blank(),     panel.grid = element_blank(),     axis.title.y = element_blank(),     axis.text.y = element_blank(),     axis.ticks.y = element_blank(),     axis.title.x = element_blank()   )  # function extract legend (borrowed from: https://github.com/hadley/ggplot2/wiki/share-a-legend-between-two-ggplot2-graphs ) g_legend<-function(a.gplot){   tmp <- ggplot_gtable(ggplot_build(a.gplot))   leg <- which(sapply(tmp$grobs, function(x) x$name) == "guide-box")   legend <- tmp$grobs[[leg]]   return(legend)}  legend <- g_legend(p1) lwidth <- sum(legend$width)  # combining plots gridextra grid.arrange(arrangegrob(p1 + theme(legend.position="none"),                          p2 + theme(legend.position="none"),                          p3 + theme(legend.position="none"),                          p4 + theme(legend.position="none"),                          p5 + theme(legend.position="none"),                          p6 + theme(legend.position="none"), ncol=2                          ), legend, widths=unit.c(unit(1, "npc") - lwidth, lwidth), nrow=1)

you following result: enter image description here

is you're looking for?


-

Comments

Post a Comment

Popular posts from this blog

html - Sizing a high-res image (~8MB) to display entirely in a small div (circular, diameter 100px) -

first of all, thank being patient know simple question more couple of weeks' experience figure out. i've seen folks persevere , helpful on here , hope you're willing me. here fiddle: http://jsfiddle.net/65uzf/ here 1 of places searched answers on here: ( vertically center image thumbnails fix-sized div ) tried solutions on there , didn't work out me. i've searched ~4 or 5 others, , been unsuccessful those, too. what want take large image (what linked background-image #ysypic , #tabpic divs) , display thumbnail version of image in confines of divs have set it. is, using background properties have laid out in css, portion of image displays inside of circular divs. without these properties, display defaults smaller section of image [presumably pi*(50^2) area in top left] terrible resolution. i not care if entire image doesn't display inside of circles (it won't, given difference in shape), , overflow not being displayed fine. want able see figu
Read more

java - IntelliJ - No such instance method -

using intellij's 12 ultimate, i'm running following code in debugger: java import play.api.libs.json.jsvalue; public class foo { ... public jsvalue tojson() { ... } public class fooexample { ... foo foo = new foo(); system.out.println("...); //<-- breakpoint at breakpoint, right-clicked source code , picked "evaluate expression," typing in: foo.tojson() . but following error showed up: no such instance method: play.api.libs.json.jsvalue$class.com.foo.foo.tojson () am doing wrong? foo#tojson calls scala code, if matters. edit had breakpoint after instantiation of foo. downvoted it, deserved it. edit my answer no longer valid after op modified question (i.e. moved breakpoint actual is).. a breakpoint hit before line executed. in case foo has not yet been declared or instantiated (i.e. foo constructor has not yet been called). you'll need put breakpoint @ next line (or step on current line) if want evaluate foo .
Read more

identifier - Is it possible for an html5 document to have two ids? -

i wondering if html5 element can have 2 ids, this: <button id="thing1" id="thing2" name="button1" onclick="change()">click here</button> or this: <button id="thing1, thing2" name="button1" onclick="change()">click here</button> also, if 1 of ids said 1 thing, , other id said thing, 1 used? tl;dr : no. in versions of html, each element can have 1 id. see the spec : the id attribute specifies element's unique identifier (id). [dom] the value must unique amongst ids in element's home subtree , must contain @ least 1 character. the value must not contain space characters. note: there no other restrictions on form id can take; in particular, ids can consist of digits, start digit, start underscore, consist of punctuation , etc. note: element's unique identifier can used variety of purposes, notably way link specific parts of document usin
Read more