행렬 시각화 및 회전

Question

약 500x500 인 상 삼각 행렬을 시각화하려고합니다. 이 외에도 나는 또한 보이도록 삼각형이 위쪽을 가리키는 것처럼 그 이미지를 회전하는 것을 시도하고있다 :

은 (이것은 해당 이미지를 회전 한 다음 그래픽 장치의 스냅 샷을 복용에 의해 이루어졌다).

이미지에서와 같이 각 열과 행의 너비가 지정되어 있어야합니다.

나는 grid 패키지 (45도 회전 한 뷰 패널 사용)로 image() 기능을 사용해 보았지만 작동하지 않았습니다. 아무도 더 나은 해결책을 알고 있습니까? 여기

Answer 1

사용하여 간단한 바보 접근베이스 그래픽스 rasterImage :

plotTriMatrix <- function(x) { 
    ## clear lower triangle 
    x[lower.tri(x)] <- NA 

    ## calculate diag 
    nr <- nrow(x) 
    nc <- ncol(x) 
    d <- sqrt(nr^2 + nc^2) 
    d2 <- 0.5 * d 

    ## empty plot area 
    plot(NA, type="n", xlim=c(0, d), ylim=c(0, d), xlab="", ylab="", asp=1) 

    ## plot matrix and rotate 45 
    rasterImage(as.raster(x), 
       xleft=d2, xright=d2+nc, ybottom=-d2, ytop=-d2+nr, 
       interpolate=FALSE, angle=45) 
} 

예 :

set.seed(123) 
m <- matrix(runif(100), 10, 10) 

plotTriMatrix(m)