r - reordering facets in ggplot2 -

-

i've been through examples changing facet orders on site can't seem work specific case. ideas of how data setup appreciated. i'm new ggplot2 , supremely stumped. models ordered m1, m2, m3 m1 on top of each facet. thanks!

outcome<-c(1,1,1,2,2,2,3,3,3) or<-c(1.97,2.47,3.56,1.73,2.25,4.09,1.21,1.48,2.25) min<-c(1.37,1.74,2.55,1.13,1.52,2.84,0.74,0.95,1.49) max<-c(2.83,3.49,4.98,2.66,3.35,5.9,1.97,2.33,3.41) aces<-c(1,2,3,1,2,3,1,2,3) ace<-data.frame(cbind(outcome,or,min,max,aces))  ace_labels <- list('1'="1 ace",'2'="2 aces",'3'="3 aces")  ace_labeller <- function(variable,value){return(ace_labels[value])}  ace$outcome = factor(ace$outcome, levels=c("1","2","3"),                   labels=c("m1: depression","m2: mh barrier work",                           "m3: mh barrier work"))              ggplot(data=ace,aes(x=or,y=outcome,label=or))+ geom_point(aes(size=8))+ geom_text(size=5,vjust=1.8)+ geom_errorbarh(aes(xmin=min,xmax=max),height=.1)+ geom_vline(xintercept=1,linetype="dashed")+ scale_x_log10(breaks=seq(1,6,1),name="figure 1: odds ratios (or) , 95% confidence intervals models 1, 2 , 3 (n=1073)             \neach or compared 0 aces")+ labs(y="")+ facet_grid(aces~., labeller=ace_labeller)+ guides(size=false)+ theme_bw()+ theme(axis.text.y=element_text(size=12))+ theme(strip.text.y=element_text(size = 12))+ theme(axis.title.x=element_text(face="italic", size = 12,hjust=.5))

enter image description here

if reverse labels set ace$outcome can plot m1 on top, m2, , m3 on bottom in each facet.

just change:

ace$outcome = factor(ace$outcome, levels=c("3","2","1"),               labels=c("m3: mh barrier work",                       "m2: mh barrier work",                       "m1: depression"))

using same sample data , plot code produces:

enter image description here

your code (with noted above changed):

outcome<-c(1,1,1,2,2,2,3,3,3) or<-c(1.97,2.47,3.56,1.73,2.25,4.09,1.21,1.48,2.25) min<-c(1.37,1.74,2.55,1.13,1.52,2.84,0.74,0.95,1.49) max<-c(2.83,3.49,4.98,2.66,3.35,5.9,1.97,2.33,3.41) aces<-c(1,2,3,1,2,3,1,2,3) ace<-data.frame(cbind(outcome,or,min,max,aces))  ace_labels <- list('1'="1 ace",'2'="2 aces",'3'="3 aces")  ace_labeller <- function(variable,value){return(ace_labels[value])}  ace$outcome = factor(ace$outcome, levels=c("3","2","1"),                   labels=c("m3: mh barrier work",                           "m2: mh barrier work",                           "m1: depression"))              library(ggplot2)  ggplot(data=ace,aes(x=or,y=outcome,label=or))+ geom_point(aes(size=8))+ geom_text(size=5,vjust=1.8)+ geom_errorbarh(aes(xmin=min,xmax=max),height=.1)+ geom_vline(xintercept=1,linetype="dashed")+ scale_x_log10(breaks=seq(1,6,1),name="figure 1: odds ratios (or) , 95% confidence intervals models 1, 2 , 3 (n=1073)             \neach or compared 0 aces")+ labs(y="")+ facet_grid(aces~., labeller=ace_labeller)+ guides(size=false)+ theme_bw()+ theme(axis.text.y=element_text(size=12))+ theme(strip.text.y=element_text(size = 12))+ theme(axis.title.x=element_text(face="italic", size = 12,hjust=.5))

Comments

Post a Comment

Popular posts from this blog

node.js - Mongoose: Cast to ObjectId failed for value on newly created object after setting the value -

-
this question has answer here: what's mongoose error cast objectid failed value xxx @ path “_id”? 7 answers even though has been asked many times because entity has no valid objectid field. i came across situation objectid set value can casted objectid still error. the schema: var serviceschema = parammongoose.schema({ servicename:{ type: parammongoose.schema.types.objectid , ref: 'servicenames',required:true } }); pseudo code: servicefromdb=new service({servicename:'some name'}); servicefromdb.servicename='000000000000000000000001'; servicefromdb.save(function(paramerror,paramdata){ if(paramerror){ console.log('but but...',servicefromdb,paramerror) } }); the output of code is: but but... { servicename: 000000000000000000000001, _id: 55079a90286f49280364f78b } { [casterror: cast objectid faile...
Read more

gradle error "Cannot convert the provided notation to a File or URI" -

-
i have defined 2 system properties in gradle.properties: systemprop.builddir=build systemprop.cfgdir=build\\cfg and have following task defined in build.gradle: task clean(group:'clean',description:'clean project') << { ant.sequential { delete(dir: system.properties.builddir) mkdir(dir: system.properties.builddir) delete(dir: system.properties.cfgdir) mkdir(dir: system.properties.cfgdir) } } this generates following error: execution failed task ':clean'. > cannot convert provided notation file or uri: {dir=build}. following types/formats supported: - string or charsequence path, e.g 'src/main/java' or '/usr/include' - string or charsequence uri, e.g 'file:/usr/include' - file instance. - uri or url instance. but equivalent block of code not generate error , works expected: task clean(group:'clean',description:'clean project') << { ...
Read more

python - NameError: name 'subprocess' is not defined -

-
i'm trying make rng website: http://jamesdotcom.com/?p=417 . when run following code: captureimage = subprocess.popen( [ "fswebcam", "-r", "356x292", "-d", "/dev/video0", "static.jpg", "--skip", "10" ], stdout=devnull, stderr=devnull) captureimage.communicate() i following error message: nameerror: name 'subprocess' not defined what should do? thanks have imported first? import subprocess captureimage = subprocess.popen(["fswebcam", ...) subprocess included in python standard library since python 2.4. should not necessary install it.
Read more