r - Adding a third dimension on a 2D heatmap -


i wondering if me out following question:

i have correlation matrix , third variable (continuous) every possible pair in correlation matrix.

here toy example:

set.seed(1234) x <- rnorm(1000,2,1) y <- 0.1*x+rnorm(1000,1,1) z <- y+rnorm(1000) third.dimension <- c("(x,y)" = 0.3, "(x,z)" = 0.5, "(y,z)"= 1) my.df <- data.frame(x,y,z)

first, want create heatmap of correlation matrix with

heatmap(cor(my.df))

next, have coloured dot within each "cell" of heatmap, depending on value of third dimension respective pair. example - if value between 0 , 0.49, have black dot, if between 0.5 , 1, grey dot etc.

hence, have correlation between z , y, say, have grey dot painted in corresponding "cell" of correlation matrix.

thanks in advance help!

this should work you:

set.seed(1234) x <- rnorm(1000,2,1) y <- 0.1*x+rnorm(1000,1,1) z <- y+rnorm(1000) third.dimension <- c("(x,y)" = 0.3, "(x,z)" = 0.5, "(y,z)"= 1) my.df <- data.frame(x,y,z)   # required function val2col <- function(z, zlim, col = heat.colors(12), breaks){  if(!missing(breaks)){   if(length(breaks) != (length(col)+1)){stop("must have 1 more break color")}  }  if(missing(breaks) & !missing(zlim)){   breaks <- seq(zlim[1], zlim[2], length.out=(length(col)+1))   }  if(missing(breaks) & missing(zlim)){   zlim <- range(z, na.rm=true)   breaks <- seq(zlim[1], zlim[2], length.out=(length(col)+1))  }  cut <- cut(z, breaks=breaks, include.lowest = true)  colorlevels <- col[match(cut, levels(cut))] # assign colors heights each point  return(colorlevels) }   # plot cor <- list(   x = seq(ncol(my.df)),   y = seq(ncol(my.df)),   z = cor(my.df) )  image(cor, xaxt="n", yaxt="n") axis(1, at=cor$x, labels = names(my.df)) axis(2, at=cor$x, labels = names(my.df)) box()  cor$col <- val2col(c(cor$z), col = grey.colors(21), zlim=c(0,1)) points(expand.grid(x=cor$x, y=cor$y), col=cor$col, pch=16, cex=3)

enter image description here


Comments

Post a Comment

Popular posts from this blog

Is there a better way to structure post methods in Class Based Views -

i'm using class based views in django , never specify url in ajax calls , omit action parameter in form because know these requests go through post method of class based view. notice view - profile page make many requests depending on user updating on page - post method become convoluted , if/else mess example: def post(self, request, *args, **kwargs): # handle user changing available date if request.post.get('availabledate') != none: self.updateavailabledate(request) return jsonresponse({'result':'success'}) if request.post.get('newprojectname') != none: creative_user = creativeuserprofile.objects.get(id = request.user.id) project = project.create_project(creative_user, request.post['newprojectname']) project.save() return jsonresponse({'projectid': project.id }) if request.post.get('projectimage') != none , request.files['file']: proj
Read more

performance - Why is XCHG reg, reg a 3 micro-op instruction on modern Intel architectures? -

i'm doing micro-optimization on performance critical part of code , came across sequence of instructions (in at&t syntax): add %rax, %rbx mov %rdx, %rax mov %rbx, %rdx i thought had use case xchg allow me shave instruction , write: add %rbx, %rax xchg %rax, %rdx however, dimay found agner fog's instruction tables , xchg 3 micro-op instruction 2 cycle latency on sandy bridge, ivy bridge, broadwell, haswell , skylake. 3 whole micro-ops , 2 cycles of latency! 3 micro-ops throws off 4-1-1-1 cadence , 2 cycle latency makes worse original in best case since last 2 instructions in original might execute in parallel. now... cpu might breaking instruction micro-ops equivalent to: mov %rax, %tmp mov %rdx, %rax mov %tmp, %rdx where tmp anonymous internal register , suppose last 2 micro-ops run in parallel latency 2 cycles. given register renaming occurs on these micro-architectures, though, doesn't make sense me done way. why wouldn't register renamer
Read more

jquery - Responsive Navbar with Sub Navbar -

good day, forgive me nav vocabulary not best. if question confusing apologize. i'm working on navigation bar needs centered on page @ 768px , above. items in nav open (or perhaps toggle) subnav lives directly below. these nav should appear centered on page. i have been able work through responsive portion of nav bar, having main items align vertically , sub nav menu of each item roll out below, , gave them indent separation. working well. however, issue not responsive side, behavior @ width greater 768px. happens toggling menu's sub navigation pushes other main items down page below sub nav. here's code: $(document).ready(function () { //stick in fixed 100% height behind navbar don't wrap $('#slide-nav.navbar-inverse').after($('<div class="inverse" id="navbar-height-col"></div>')); $('#slide-nav.navbar-default').after($('<div id="navbar-height-col"></d
Read more