title: What´s the best way to do a correlation-matrix plot like this?
body: <p>I used ggpairs to generate this plot:
  <img src="https://i.stack.imgur.com/imZyp.png" alt="enter image description here"></p>
  
  <p>And this is the code for it:</p>
  
  <pre><code>#load packages
  library("ggplot2")
  library("GGally")
  library("plyr")
  library("dplyr")
  library("reshape2")
  library("tidyr")
  
  
  #generate example data
  dat &lt;- data.frame(replicate(6, sample(1:5, 100, replace=TRUE)))
  dat[,1]&lt;-as.numeric(dat[,1])
  dat[,2]&lt;-as.numeric(dat[,2])
  dat[,3]&lt;-as.numeric(dat[,3])
  dat[,4]&lt;-as.numeric(dat[,4])
  dat[,5]&lt;-as.numeric(dat[,5])
  dat[,6]&lt;-as.numeric(dat[,6])
  
  #ggpairs-plot
  main&lt;-ggpairs(data=dat, 
                lower=list(continuous="smooth", params=c(colour="blue")),
                diag=list(continuous="bar", params=c(colour="blue")), 
                upper=list(continuous="cor",params=c(size = 6)), 
                axisLabels='show',
                title="correlation-matrix",
                columnLabels = c("Item 1", "Item 2", "Item 3","Item 4", "Item 5", "Item 6")) +  theme_bw() +
    theme(legend.position = "none", 
          panel.grid.major = element_blank(), 
          axis.ticks = element_blank(), 
          panel.border = element_rect(linetype = "dashed", colour = "black", fill = NA))
  main
  </code></pre>
  
  <h1>However, my goal is, to get a plot like this:</h1>
  
  <p><img src="https://i.stack.imgur.com/1D0BH.png" alt="enter image description here"></p>
  
  <p>This plot is an example and i produced it with the following three ggplot-codes.</p>
  
  <p>I used this for the geom_point plot:</p>
  
  <pre><code>#------------------------
  #lower / geom_point with jitter
  #------------------------
  
  #dataframe 
  df.point &lt;- na.omit(data.frame(cbind(x=dat[,1], y=dat[,2])))
  
  #plot
  scatter &lt;- ggplot(df.point,aes(x, y)) +
    geom_jitter(position = position_jitter(width = .25, height= .25)) +
    stat_smooth(method="lm", colour="black") +
    theme_bw() + 
    scale_x_continuous(labels=NULL, breaks = NULL) +
    scale_y_continuous(labels=NULL, breaks = NULL) +
    xlab("") +ylab("")
  scatter
  </code></pre>
  
  <p>this gives the following plot:
  <img src="https://i.stack.imgur.com/qW9fn.png" alt="enter image description here"></p>
  
  <p>I used this for the Barplot:</p>
  
  <pre><code>#-------------------------
  #diag. / BARCHART
  #------------------------
  
  bar.df&lt;-as.data.frame(table(dat[,1],useNA="no"))
  
  #Barplot
  bar&lt;-ggplot(bar.df) + geom_bar(aes(x=Var1,y=Freq),stat="identity") +
    theme_bw() + 
    scale_x_discrete(labels=NULL, breaks = NULL) +
    scale_y_continuous(labels=NULL, breaks = NULL, limits=c(0,max(bar.df$Freq*1.05))) +
    xlab("") +ylab("")
  bar
  </code></pre>
  
  <p>This gives the following plot:
  <img src="https://i.stack.imgur.com/FFW7B.png" alt="enter image description here"></p>
  
  <p>And i used this for the Correlation-Coefficients:</p>
  
  <pre><code>#----------------------
  #upper / geom_tile and geom_text
  #------------------------
  
  #correlations
  df&lt;-na.omit(dat)
  df &lt;- as.data.frame((cor(df[1:ncol(df)]))) 
  df &lt;- data.frame(row=rownames(df),df) 
  rownames(df) &lt;- NULL 
  
  #Tile to plot (as example)
  test&lt;-as.data.frame(cbind(1,1,df[2,2])) #F09_a x F09_b
  colnames(test)&lt;-c("x","y","var")
  
  #Plot
  tile&lt;-ggplot(test,aes(x=x,y=y)) +
    geom_tile(aes(fill=var)) +
    geom_text(data=test,aes(x=1,y=1,label=round(var,2)),colour="White",size=10,show_guide=FALSE) +
    theme_bw() + 
    scale_y_continuous(labels=NULL, breaks = NULL) +
    scale_x_continuous(labels=NULL, breaks = NULL) +
    xlab("") +ylab("") + theme(legend.position = "none")
  tile
  </code></pre>
  
  <p>This gives the following Plot:
  <img src="https://i.stack.imgur.com/3He8a.png" alt="enter image description here"></p>
  
  <p>My question is: 
  What is the best way to get the plot, that i want? I want to visualise likert-items from a questionnaire and in my opinion, this is a very nice way to do this. 
  Is it possible to use ggpairs for this without producing every plot on his own, like i did with the custumized ggpairs-plot. Or is there another way to do this?</p>