ggplots을 이용한 예시가 많지만 나는 안 쓰는 것을 좋아하기 때문에 인터넷 검색을 통하여 다음과 같은 방법을 이용했다. 꾸미기 위한 코드는 생략하고 기술함. density 함수로 값들을 변환한 다음, 이를 기반으로 점을 선으로 그려 주는 것이 핵심임.
density.mean = density(dat[, 1])
density.sd = density(dat[, 2])
layout(matrix(data=c(1, 2, 2, 1, 2, 2, 0, 3, 3), nrow=3))
plot(density.mean$x, density.mean$y, type="l")
plot(dat[, 1], dat[, 2])
plot(density.sd$y, density.sd$x, type="l")