attach(mtcars)
library(corrgram)

## Warning: package 'corrgram' was built under R version 3.2.5

## Warning: replacing previous import by 'magrittr::%>%' when loading
## 'dendextend'

corrgram(mtcars,order=TRUE,lower.panel=panel.shade,upper.panel=panel.pie,text.panel=panel.txt,main="Correlogram of mtcars intercorrelations")

corrgram(mtcars,order=TRUE,lower.panel=panel.ellipse,upper.panel=panel.pts,text.panel=panel.txt,main="Correlogram of mtcars using scatter plot and ellipse")

corrgram(mtcars,lower.panel=panel.shade,upper.panel=NULL,text.panel=panel.txt,main="Car mileage data(unsorted)")

col.corrgram<-function(ncol){
colorRampPalette(c("darkgoldenrod4","burlywood1","darkkhaki","darkgreen"))(ncol)}
corrgram(mtcars,order=TRUE,lower.panel=panel.shade,upper.panel=panel.pie,text.panel=panel.txt,main="A Corrgram ofa different color")

测试能否发布中文与公式： \[y=x^3+\exp(x)\]