wentao,
2019/12/29,这是厚哥今天新出炉的热乎的产品,我进行了测试,大家也来做一个尝试
厚缊 业余的R语言可视化重度患者
个人博客:houyun.xyz
邮箱:houyunhuang@163.com
转载本文(包括长期转载账号)必须联系厚缊授权
这得益于厚哥写的几个图层,下面我们来尝试一下,注意ggcor我发现一个月前的都不可运行了,还是老老实实更新一下。
devtools::install_github("houyunhuang/ggmatrix")
devtools::install_github("houyunhuang/ggcor")
library(ggmatrix)
library(ggcor)
ggmat(mtcars = mtcars) + geom_triangle(aes(fill = mtcars))
m1 400, mean = 9), nrow = 20)
m2 400, mean = -4), nrow = 20)
ggmat(m1 = m1, m2 = m2) +
geom_triangle(aes(fill.upper = m1, fill.lower = m2)) +
scale_fill_upper_gradientn(colours = c("red", "white", "blue")) +
scale_fill_lower_gradientn(colours = c("#E9A3C9", "#F7F7F7", "#A1D76A"))
ggmat(m1 = m1, m2 = m2, cluster = TRUE) +
geom_triangle(aes(fill.upper = m1, fill.lower = m2)) +
scale_fill_upper_gradientn(colours = c("red", "white", "blue")) +
scale_fill_lower_gradientn(colours = c("#E9A3C9", "#F7F7F7", "#A1D76A")) +
theme_cor() +
coord_fixed()
ggmat(m1 = m1) + geom_square(aes(fill = m1, r0 = m1)) +
scale_fill_gradient2n(colours = RColorBrewer::brewer.pal(11, "RdBu"),
midpoint = mean(m1)) +
scale_radius_area(midpoint = mean(m1))
ggmat(m1 = m1) + geom_ellipse2(aes(fill = m1, r0 = m1)) +
scale_fill_gradient2n(colours = RColorBrewer::brewer.pal(11, "RdBu"),
midpoint = mean(m1)) +
scale_radius_area(midpoint = mean(m1))
如需联系EasyCharts团队
请加微信:
EasyCharts
增强版配套源代码下载地址
Github
https://github.com/EasyChart/Beautiful-Visualization-with-R