Gaussian 그래픽 모델을 그리는 방법 R

Question

상관 계수 행렬 R 및 부분 상관 계수 행렬 Rp를 얻었습니까. 그러면 R에서 Gaussian 그래픽 모델을 어떻게 그릴 수 있습니까?

Gaussian 그래픽 모델에 대한 일부 서적을 추천하는 것이 좋을지 모르겠지만 실제로 무엇인지는 모르겠지만 가장 먼저해야 할 일은 그것을 꺼내는 것입니다. 많은 감사합니다!

#the Correlation coefficient matrix 
R=c(1,0.55,0.55,0.41,0.39,0.55,1,0.61,0.49,0.44,0.55,0.61,1,0.71, 
0.66,0.41,0.49,0.71,1,0.61,0.39,0.44,0.66,0.61,1) 
dim(R)=c(5,5) 

#the Partial correlation coefficient matrix 
library("corpcor") 
Rp=cor2pcor(R) 

그러면 가우스 그래픽 모델을 어떻게 그릴 수 있습니까?

Answer 1

해당 그래프를 플롯하려면 igraph 패키지를 사용할 수 있습니다.

library(igraph) 
g <- graph.adjacency(abs(Rp)>.1, mode="undirected", diag=FALSE) 
plot(g, layout=layout.fruchterman.reingold) 

Answer 2

"가우스 그래픽 모델"에 익숙하지 않습니다.

그러나 (부분) 상관 행렬을 시각화하려면 qgraph 패키지를 사용하면됩니다. 예를 들어 : 부분적인 상관 관계를 계산

library("qgraph") 
qgraph(round(Rp,5),edge.labels=TRUE) 

는 인수에 내장되어 있습니다 :

qgraph(round(R,5),edge.labels=TRUE,graph="concentration") 

동일한 결과를 제공합니다.