Geom_density_2d

set.seed(1001)
d <- data.frame(x=rnorm(1000),y=rnorm(1000))
getLevel <- function(x,y,prob=0.95) {
    kk <- MASS::kde2d(x,y)
    dx <- diff(kk$x[1:2])
    dy <- diff(kk$y[1:2])
    sz <- sort(kk$z)
    c1 <- cumsum(sz) * dx * dy
    approx(c1, sz, xout = 1 - prob)$y
}
L95 <- getLevel(d$x,d$y)
library(ggplot2); theme_set(theme_bw())
ggplot(d,aes(x,y)) +
   stat_density2d(geom="tile", aes(fill = ..density..),
                  contour = FALSE)+
   stat_density2d(colour="red",breaks=L95)

Source: stackoverflow.com

Similar codes

1 vote523 views1 answer
Matlab class modify properties in function
Matlab
2 votes481 views1 answer
Matlab how to set figure size so you can see plot
Matlab
1 vote536 views2 answers
Exponential matlab
Matlab
0 vote369 views1 answer
Cumprod matlab
Matlab
1 vote478 views1 answer
Sum of squared variabels matlab
Matlab
1 vote466 views1 answer
Scilab create multi parameter function
Matlab
0 vote398 views1 answer
Matlab app designer axes buttondownfcn
Matlab
0 vote375 views1 answer
Matlab preallocate array size
Matlab
0 vote384 views3 answers
For loop in matlab
Matlab
0 vote411 views1 answer
Matlab find roots of symbolic polynomial
Matlab