相関係数のイメージ

library(mvtnorm)
library(tidyverse)

fun <- function(k){
    matrix(c(1, k, k, 1), ncol=2) %>%
    mvtnorm::rmvnorm(n=300, mean=c(0,0), sigma=) %>%
    plot( ,xlab =k, ylab="")  
    }

par(mfrow = c(2, 3))
for(k in c(0.0, 0.2, 0.5, 0.7, 0.8, 0.9)){fun(k)}
par(mfrow = c(1, 1))