scatter plot + rug + fivenum

my.scatter.rug.R

require(ggplot2); require(grid)

my.scatter.rug = function(df,xname,yname,main='myplot',round.digits=2)
{ ## df is data frame, xname is name of the column to be ploted in x axis
  ## http://stackoverflow.com/questions/8545035/scatterplot-with-marginal-histograms-in-ggplot2
  xy = mutate_(df, "x"=xname, "y"=yname)
  pp <- ggplot(xy, aes(x, y)) +        
  # set the locations of the x-axis labels as Tukey's five numbers   
  scale_x_continuous(limit=c(min(xy$x), max(xy$x)), 
                     breaks=round(fivenum(xy$x),round.digits)) +     
  # ditto for y-axis labels 
  scale_y_continuous(limit=c(min(xy$y), max(xy$y)),
                     breaks=round(fivenum(xy$y),round.digits)) +     
  # specify points
  geom_point() +
  # specify that we want the rug plot
  geom_rug(size=0.1) +   
  # improve the data/ink ratio
  theme_set(theme_minimal(base_size = 18))  + labs(x=xname,y=yname, title = main)
  pp
}