程序问答   发布时间:2022-06-02  发布网站:大佬教程  code.js-code.com
大佬教程收集整理的这篇文章主要介绍了R 热图:为值分配颜色大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。

如何解决R 热图:为值分配颜色?

开发过程中遇到R 热图:为值分配颜色的问题如何解决?下面主要结合日常开发的经验,给出你关于R 热图:为值分配颜色的解决方法建议,希望对你解决R 热图:为值分配颜色有所启发或帮助;

我在 R 图形库 (https://www.r-graph-gallery.com/79-levelplot-with-ggplot2.html) 中找到了以下用于热图的 R 代码并对其进行了一些修改:

# library
library(ggplot2)

set.seed(10)

# Dummy data
x <- LETTERS[1:20]
y <- paste0("var",seq(1,20))
data <- expand.grID(X=x,Y=y)
data$Z <- runif(400,-1,2)

print (data)

# Heatmap 
ggplot(data,aes(X,Y,fill= z)) + 
  geom_tile(color = "white",lwd = 0.5,linetype = 1)

我的问题:我有三列,值范围从 -1 到 2。现在我想为这些值分配定义的颜色,例如如下: -1:红色,0:绿色,1:黄色,2:蓝色。

有没有办法使用 geom_tile 函数来解决我的问题?

谢谢!

解决方法

如果你想有离散的间隔和尺度,你应该把 df$Z 的值转化为整数因子,然后使用 scale_fill_manual 来获得所需的配色方案。

data$Z <- factor(round(data$z))

# Heatmap 
ggplot(data,aes(X,Y,fill= z)) + 
    geom_tile(color = "white",lwd = 0.5,linetype = 1)+
    scale_fill_manual(values = c('red','green','yellow','blue'))

#or simply

ggplot(data,fill= factor(round(data$z)))) + 
    geom_tile(color = "white",'blue'),name = 'Z')

esp_netif_get_sta_list()

要将 Z 值转换为字符串,您可以使用:

library(plyr)

data$Z <- factor(round(data$z))

ata$Z <- revalue(data$Z,c('-1'='negative'))
data$Z <- revalue(data$Z,c('0' = 'no'))
data$Z <- revalue(data$Z,c('1' = 'yes'))
data$Z <- revalue(data$Z,c('2' = 'other'))

# Heatmap 
ggplot(data,name = 'Z')

R 热图:为值分配颜色

,

你可以使用 scale_gradient_n

ggplot(data,fill= z)) + 
  geom_tile(color = "white",linetype = 1) + 
  scale_fill_gradientn(breaks=c(-1,1,2),colors=c("red","green","yellow","blue"))

那些颜色似乎产生了相当的视觉效果

R 热图:为值分配颜色

大佬总结

以上是大佬教程为你收集整理的R 热图:为值分配颜色全部内容,希望文章能够帮你解决R 热图:为值分配颜色所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。