[求助]怎样用r画二维正态分布图？

各位大神，我是个初学的菜鸟，我想问下
就是画二维正态的时候，相关系数是咋用的呢？我看上面的帖子，x和y都是一样的

fn = function(x, y) {
  sigma <- matrix(c(20,0,0,20), c(2,2))
  u <- c(0,0)
  sSigma <- solve(sigma)
  exp(- ((x-u[1])^2 * sSigma[1,1] + 2*(x-u[1]) * (y-u[2]) * sSigma[1,2] + (y-u[2])^2 * sSigma[2,2]) )/(2*pi*det(sigma)^0.5)

}
a = 10
x = seq(-a, a, 0.1)
y = seq(-a, a, 0.1)
#outer函数就是为每一个点(x,y)得到对应的z 即 z[i,j] = fn(x[i], y[j])，有点类似 matlab 的 meshgrid
z = outer(x, y, fn)
persp(x, y, z)
转自https://blog.csdn.net/clebeg/article/details/21628661