r - Two vertical bar charts with shared x-axis in ggplot2 -


i make graphs similar this

how can make graphs using r?

i have read two horizontal bar charts shared axis in ggplot2 (similar population pyramid) , can make horizontial bar charts using following r code:

  g.mid<-ggplot(tp07,aes(x=1,y=sch))+geom_text(aes(label=sch))+ geom_segment(aes(x=0.94,xend=0.96,yend=sch))+ geom_segment(aes(x=1.04,xend=1.065,yend=sch))+ ggtitle("")+    ylab(null)+    scale_x_continuous(expand=c(0,0),limits=c(0.94,1.065))+    theme(axis.title=element_blank(),          panel.grid=element_blank(),          axis.text.y=element_blank(),          axis.ticks.y=element_blank(),        panel.background=element_blank(),          axis.text.x=element_text(color=na),          axis.ticks.x=element_line(color=na),          plot.margin = unit(c(1,-1,1,-1), "mm"))  g1 <- ggplot(data = tp07, aes(x = sch, y = ans0)) +  geom_bar(stat = "identity") + ggtitle("number of student never or seldom have breakfast") +  theme(axis.title.x = element_blank(),           axis.title.y = element_blank(),           axis.text.y = element_blank(),           axis.ticks.y = element_blank(),           plot.margin = unit(c(1,-1,1,0), "mm")) +    scale_y_reverse() + coord_flip()  g2 <- ggplot(data = tp07, aes(x = sch, y = ans7)) +xlab(null)+ geom_bar(stat = "identity") + ggtitle("no. of students have breakfsat 7 days week") +  theme(axis.title.x = element_blank(), axis.title.y = element_blank(),           axis.text.y = element_blank(), axis.ticks.y = element_blank(),          plot.margin = unit(c(1,0,1,-1), "mm")) +  coord_flip()  library(gridextra) gg1 <- ggplot_gtable(ggplot_build(g1)) gg2 <- ggplot_gtable(ggplot_build(g2)) gg.mid <- ggplot_gtable(ggplot_build(g.mid))  grid.arrange(gg1,gg.mid,gg2,ncol=3,widths=c(4/9,1/9,4/9))

how can change horizontal vertical? , keep x-axis in middle part of graph separate 2 variables.

assuming tp07 following:

tp07 <- structure(list(sch = structure(c(1l, 2l, 3l, 4l, 4l), .label = c("sch_a",  "sch_b", "sch_c", "sch_d"), class = "factor"), ans0 = c(1, 2,  3, 4, 1), ans7 = c(3, 2, 3, 4, 1)), .names = c("sch", "ans0",  "ans7"), row.names = c(na, -5l), class = "data.frame")

the code below job:

g.mid_ <- ggplot(tp07,aes(x=sch,y=1))+geom_text(aes(label=sch))+     geom_segment(aes(y=0.94,yend=0.96,xend=sch))+     geom_segment(aes(y=1.04,yend=1.065,xend=sch))+     ggtitle("") +     xlab(null) +     scale_y_continuous(expand=c(0,0),limits=c(0.94,1.065))+     theme(axis.title=element_blank(),           panel.grid=element_blank(),           axis.text.y=element_blank(),           axis.ticks.y=element_blank(),           panel.background=element_blank(),           axis.text.x=element_text(color=na),           axis.ticks.x=element_line(color=na),           plot.margin = unit(c(1,-1,1,-1), "mm"))   g1_ <- ggplot(data = tp07, aes(x = sch, y = ans0)) +     geom_bar(stat = "identity", position = "identity") +     theme(axis.title.x = element_blank(),           axis.text.x = element_blank(),            axis.ticks.x = element_blank(),            plot.margin = unit(c(1,-1,1,0), "mm")) +     scale_y_reverse()   g2_ <- ggplot(data = tp07, aes(x = sch, y = ans7)) +xlab(null)+     geom_bar(stat = "identity") +     theme(axis.title.x = element_blank(),            axis.text.x = element_blank(),            axis.ticks.x = element_blank(),           plot.margin = unit(c(1,0,1,-1), "mm"))    gg1 <- ggplot_gtable(ggplot_build(g1_)) gg2 <- ggplot_gtable(ggplot_build(g2_)) gg.mid <- ggplot_gtable(ggplot_build(g.mid_))  grid.arrange(gg2, gg.mid,gg1,nrow=3, heights=c(4/10,2/10,4/10))

the output is:

enter image description here


-

Comments

Post a Comment

Popular posts from this blog

php - Auto increment employee ID -

Image
i want add employee , after that, employee id increment. textbox must disabled also here's code. want auto increment employee id when add new employee. hope me. thank in advance. :) <center> <form class="contact_form" action="#" method="post"> <h2>register new employee</h2> <br/> <table> <tr> <td><label for="emp">emp id:</label></td> <td><input type="text" name="emp" placeholder="emp id" required /></td> </tr> <tr> <td><label for="name">name:</label></td> <td><input type="text" name="fname" placeholder="first name" required /> <input type="text" name="lname" placehol...
Read more

php - isset function not working properly -

the page unable see login form code written under isset function statement. have written code correctly , have executed many times , code written inside isset statement not works. here code:- <?php session_start(); echo "<p style=\"font-color: #ff0000;\"> catogoies </p>"; echo '<link href="var/www/html/sample.css" rel="stylesheet">'; require_once('../html/conn.php'); $query = "select * catogories"; mysqli_select_db($dbc, 'odit'); $retrieve = mysqli_query($dbc, $query); if(!$retrieve) { die(mysqli_error($query)); } while($row=mysqli_fetch_array($retrieve, mysql_assoc)){ echo "<p style=\"font-color: #ff0000;\">".'<a href="cats.php? catogory='.urldecode($row["name"]).'">'.$row["name"].'</a>'."</p>"; $_session['cat']=$row["name"]; } if(!($_session)) ...
Read more

firebird - Error "invalid transaction handle (expecting explicit transaction start)" executing script from Delphi -

i'm developing update app delphi 10. i'm running windows 7 64x, firebird 2.5.1.26351 32x. execution order: checks current version(select statement firebird database) downloads update(via ftp) apply it(.exe files, , execute .sql) error code -901 pops out when try execute .sql files. know there incompatibility issue w7 64x , fdb 32x, but, can everything: backup , restore(gbak), db commands(all). tried fdb 64x instead, , not working. code: //components fdwaitcursor: tfdguixwaitcursor; fddriverlink: tfdphysfbdriverlink; fdconnection:tfdconnection; fdscript: tfdscript; function tthr_script.createcomponents:boolean; begin try fddriverlink := tfdphysfbdriverlink.create(fddriverlink); fdwaitcursor := tfdguixwaitcursor.create(fdwaitcursor); fdconnection := tfdconnection.create(fdconnection); fdconnection begin drivername := 'fb'; params.username := thrbanco.bduser; params.password := thrbanco.bdpass; params.database := ...
Read more