March 21, 2016
Bài trước mình sử dụng các
package (GGalyy, ggcorplot, corrplot) trong R để biểu thị các đặc tính tương
quan giữa các biến liên tục của một đối tượng nghiên cứu (mỗi gói có một cái
hay riêng). Hôm nay mình sử dụng package (corrgram) để biểu thị các đặc tính
tương quan giữa các biến sinh trưởng của cây Keo tai tượng.
#
install.packages(“corrgram”)
#
library(corrgram)
# First correlation example
> p=corrgram(data, order=TRUE, lower.panel=panel.shade,
upper.panel=panel.pie, text.panel=panel.txt, main="Tương quan giữa các
biến sinh trưởng cây Keo tai tượng")
# result Fig.1
# Second
correlation example
>
p=corrgram(data, order=TRUE, lower.panel=panel.ellipse, upper.panel=panel.pts,
text.panel=panel.txt, diag.panel=panel.minmax,main="Tương quan giữa các
biến sinh trưởng cây Keo tai tượng")
# result Fig.2
# Three correlation example
> lr.cor=cor(lr[,vars2],use="pair")
>
lr.eig=eigen(lr.cor)$vectors[,1:2]
>
t1=lr.eig[,1]
>
t2=lr.eig[,2]
> plot(t1,t2,
col="white", xlim=range(t1,t2), ylim=range(t1,t2))
> text(t1,t2,
rownames(lr.cor), cex=1)
>
arrows(0,0,t1,t2, cex=0.5, col="red", length=0.1)
> plot(t1,t2,
col="white", xlim=range(t1,t2),
ylim=range(t1,t2),main="Fig.3")
> text(t1,t2,
rownames(lr.cor), cex=1)
>
arrows(0,0,t1,t2, cex=0.5, col="red", length=0.1)
# result Fig.3
0 comments:
Post a Comment