热图如果颜色填充结合背景填充,会怎么样

写在前面

热图如果颜色填充结合背景填充,会怎么样,有没有什么可以使用到突出的地方来表达含义。

#-------用R语言画几张有意思的图形

set.seed (78888)
rectheat = sample(c(rnorm (10, 5,1), NA, NA), 150, replace = T)
circlefill = rectheat*10 + rnorm (length (rectheat), 0, 3)
circlesize = rectheat*1.5 + rnorm (length (rectheat), 0, 3)
myd <- data.frame (rowv = rep (1:10, 15), columnv = rep(1:15, each = 10),
rectheat, circlesize, circlefill)

require(ggplot2)

pl1 <- ggplot(myd, aes(y = factor(rowv), x = factor(columnv))) +
geom_tile(aes(fill = rectheat)) +
scale_fill_continuous(low = "blue", high = "green")

p1 <- pl1 +
geom_point(aes(colour = circlefill, size =circlesize)) +
scale_color_gradient(low = "yellow", high = "red")+

scale_size(range = c(1, 20))+ theme_bw()

根际互作生物学研究室 简介

根际互作生物学研究室是沈其荣教授土壤微生物与有机肥团队下的一个关注于根际互作的研究小组。本小组由袁军副教授带领,主要关注:1.植物和微生物互作在抗病过程中的作用;2 环境微生物大数据整合研究;3 环境代谢组及其与微生物过程研究体系开发和应用。团队在过去三年中在 isme J, Microbiome, PCE,SBB,Horticulture Research等期刊上发表了多篇文章。欢迎关注 微生信生物 公众号对本研究小组进行了解。

团队工作及其成果 (点击查看)

了解 交流 合作

  • 团队负责人邮箱 袁军:

    junyuan@njau.edu.cn;

    团队成员:文涛:

    2018203048@njau.edu.cn

  • 团队公众号:

(0)

相关推荐