r - How to add an external legend to ggpairs()? -


i plotting scatterplot matrix using ggpairs. using following code:

# load required packages require(ggally)  # load datasets data(state) df <- data.frame(state.x77,                  state = state.name,                  abbrev = state.abb,                  region = state.region,                  division = state.division )  # create scatterplot matrix p <- ggpairs(df,               # columns include in matrix              columns = c(3,5,6,7),               # include above diagonal              # list(continuous = "points") mirror              # "blank" turn off              upper = "blank",              legends=t,               # include below diagonal              lower = list(continuous = "points"),               # include in diagonal              diag = list(continuous = "density"),               # how label inner plots              # internal, none, show              axislabels = "none",               # other aes() parameters              colour = "region",              title = "state scatterplot matrix" )   # show plot print(p)

and following plot:

enter image description here

now, 1 can see getting legends every plot in matrix. have 1 universal legend whole plot. how do that? appreciated.

i working on similar, approach take,

  1. ensure legends set 'true' in ggpairs function call

  2. now iterate on subplots in plot matrix , remove legends each of them , retain 1 of them since densities plotted on same column.

    colidx <- c(3,5,6,7)  (i in 1:length(colidx)) {    # address diagonal elements   # plot out of matrix   inner <- getplot(p, i, i);    # add ggplot2 settings want (blank grid here)   inner <- inner + theme(panel.grid = element_blank()) +     theme(axis.text.x = element_blank())    # put matrix   p <- putplot(p, inner, i, i)    (j in 1:length(colidx)){     if((i==1 & j==1)){        # move legend right       inner <- getplot(p, i, j)       inner <- inner + theme(legend.position=c(length(colidx)-0.25,0.50))        p <- putplot(p, inner, i, j)     }     else{        # delete legend       inner <- getplot(p, i, j)       inner <- inner + theme(legend.position="none")       p <- putplot(p, inner, i, j)     }   } }

Comments

Post a Comment

Popular posts from this blog

apache - Remove .php and add trailing slash in url using htaccess not loading css -

i have add following code htaccess file removing .php extension , add trailing slash urls. worked fine reduced page loading speed , css code not loading @ all. pages ugly. please help rewriteengine on rewritebase / ## hide .php extension snippet # externally redirect /dir/foo.php /dir/foo rewritecond %{the_request} ^[a-z]{3,}\s([^.]+)\.php [nc] rewriterule ^ %1/ [r,l] # add trailing slash rewritecond %{request_filename} !-f rewritecond %{request_uri} !/$ rewriterule . %{request_uri}/ [l,r=301] # internally forward /dir/foo /dir/foo.php rewritecond %{request_filename} !-d rewritecond %{request_filename}.php -f rewriterule ^(.*?)/?$ $1.php [l] we can rewrite urls using .htaccess files. before writing in .htaccess files need verify kind of server using. can check server adding a <?php phpinfo(); ?> in php page. ensure mod_rewrite module enabled in apache server. can identified checking phpinfo included page. common methods used url rewriting follows ...
Read more

inno setup - TLabel or TNewStaticText - change .Font.Style on Focus like Cursor changes with .Cursor -

is possible change .font.style on focus tlabel or tnewstatictext happens cursor when use .cursor ? there no built-in support track mouse hovering in inno setup @ time. however, intercepting window procedure of controls can track yourself. following example need innocallback library: [setup] appname=my program appversion=1.5 defaultdirname={pf}\my program outputdir=userdocs:inno setup examples output [files] source: "innocallback.dll"; destdir: "{tmp}"; flags: dontcopy [code] #ifdef unicode #define aw "w" #else #define aw "a" #endif const gwl_wndproc = -4; wm_mousemove = $0200; type wparam = uint_ptr; lparam = longint; lresult = longint; twindowproc = function(hwnd: hwnd; umsg: uint; wparam: wparam; lparam: lparam): lresult; function setcapture(hwnd: hwnd): hwnd; external 'setcapture@user32.dll stdcall'; function releasecapture: bool; external 'releasecapture@user32.dll stdcall'; func...
Read more