(This article was first published on Taiyun Wei, and kindly contributed to R-bloggers)
Color Imagedata(mtcars)fit = lm(mpg ~ ., mtcars)cor = summary(fit, correlation = TRUE)$correlationcor2 = t(cor[11:1, ])colors = c(“#A50F15”, “#DE2D26”, “#FB6A4A”, “#FCAE91”, “#FEE5D9″,”white”, “#EFF3FF”, “#BDD7E7”, “#6BAED6”, “#3182BD”, “#08519C”)image(1:11, 1:11, cor2, axes = FALSE, ann = F, col = colors)text(rep(1:11, 11), rep(1:11, each = 11), round(100 * cor2))Ellipseslibrary(ellipse)col =
To leave a comment for the author, please follow the link and comment on their blog: Taiyun Wei.
R-bloggers.com offers daily e-mail updates about R news and tutorials on topics such as: Data science, Big Data, R jobs, visualization (ggplot2, Boxplots, maps, animation), programming (RStudio, Sweave, LaTeX, SQL, Eclipse, git, hadoop, Web Scraping) statistics (regression, PCA, time series, trading) and more...