Hi Rgonauts,
I am plotting 3 variables from one data set on one plot. Two of them as a
stacked bar and a ratio on a completely different scale, so I need to put one
of the axes on the top of the plot for clarity. Whilst this is not good
visualisation practice, there is a valid reason why, in this case, people
viewing this plot would be interested in the magnitude of the values in the
stacked bars and the distribution of the ratio of them (too complex and dull to
go into here).
The plot consists of horizontal stacked bars showing two values, with a dot
plot showing the ratio of them, all in order of the magnitude of the ratio
(this is important). I want them to look something like the code below but
with a correct alignment
I wanted to avoid something overly complex with grobs as I don't find working
with them very intuitive, although this may be the only way. I've codged
together this imperfect solution from code I found about the place and was
hoping someone could either suggest a much better way or help with the final
task of nudging the plots to make them coherent
Thanks in advance for any help received.
GavinR
#here is my code
require(ggplot2)
require(cowplot)
require(reshape2)
require(gridExtra)
require(grid)
#my original data set looks something like this, but with many more values
Set.seed=42
df1<-data.frame(idcode=LETTERS[1:10],v1=rnorm(10,mean=30,sd=10),v2=rnorm(10,mean=10,sd=5))
str(df1)
df1$rto<-(df1$v1/df1$v2)
#melt the frame
require(reshape2)
df2<-melt(df1,id.vars=c("idcode","rto"))
df2
#oder the data by the ratio variable
df2$idcode<-reorder(df2$idcode,df2$rto)
#make the first plot
plot1<-ggplot(df2)+geom_bar(stat="identity",aes(x=idcode,y=value,
fill=variable))+theme(legend.position=c(.92,.87))+coord_flip()
plot1
#make the second plot
plot2<-ggplot(df2)+geom_point(stat="identity",aes(x=idcode,y=rto))+coord_flip()+theme(panel.background
= element_rect(fill="transparent"))+coord_flip()
plot2
#flip the axis with cowplot
plot2<-ggdraw(switch_axis_position(plot2, axis='x'))
#plot both on the same page
grid.newpage()
#create the layout
pushViewport(viewport(layout=grid.layout(1,1)))
#helper function to get the regions right - no idea what this does but I
cribbed it from:
#http://www.sthda.com/english/wiki/ggplot2-easy-way-to-mix-multiple-graphs-on-the-same-page-r-software-and-data-visualization#create-a-complex-layout-using-the-function-viewport
define_region <- function(row, col){
viewport(layout.pos.row = row, layout.pos.col = col)
}
#here is the plot
print(plot1,vp=define_region(1,1))
print(plot2, vp=define_region(1,1))
#has all the ingredients but how to nudge it?
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
