首页 文章

R：ggplot热图颜色变化

提问于
浏览 次
0
df.team_data <- expand.grid(teams = c("Team A", "Team B", "Team C", "Team D")
                           ,metrics = c("Metric 1", "Metric 2", "Metric 3", "Metric 4", "Metric 5")
                           )
set.seed(41)
df.team_data$performance <- sample(c(0, 1), 20, replace = TRUE)

head(df.team_data)
ggplot(data = df.team_data, aes(x = metrics, y = teams)) +
  geom_tile(aes(fill = performance))

enter image description here

我有一个非常简单的热图，只有两种颜色 . 如何指定哪些颜色与 performance 的值相关联？为此，我希望1的性能为深蓝色，0的性能为浅蓝色 . 另外，有没有办法将图例更改为二进制？

r ggplot2 visualization heatmap

2 回答

  • 2

    数据集的"performance"列中的值为"numeric"格式 . 使用 factor() 将其转换为因子，您的图形将具有二进制图例：

    df.team_data <- expand.grid(teams = c("Team A", "Team B", "Team C", "Team D")
                            ,metrics = c("Metric 1", "Metric 2", "Metric 3", "Metric 4", "Metric 5")
)
set.seed(41)
df.team_data$performance <- sample(c(0, 1), 20, replace = TRUE)

df.team_data$performance<-factor(df.team_data$performance)
head(df.team_data)
library(ggplot2)

ggplot(data = df.team_data, aes(x = metrics, y = teams)) +
  geom_tile(aes(fill = performance))

    已更新

    col.plot<-c('lightblue','darkblue')
 ggplot(data = df.team_data, aes(x = metrics, y = teams)) +
      geom_tile(aes(fill = performance))+scale_fill_manual(values=col.plot)

    根据您的需要更改 col.plot 中的值

    回复于
  • 2

    如果你使用 scale_fill_gradient() 并设置了关于高值和低值的颜色的几个选项，我想你可以得到你想要的东西 . 您还可以使用 breaks () 在性能变量中设置中断 .

    使用您的代码我获得以下内容：

    df.team_data <- expand.grid(teams = c("Team A", "Team B", "Team C", "Team D")
                            ,metrics = c("Metric 1", "Metric 2", "Metric 3", "Metric 4", "Metric 5")
)

df.team_data$performance <- sample(c(0, 1), 20, replace = TRUE)

head(df.team_data)
ggplot(data = df.team_data, aes(x = metrics, y = teams)) +
  geom_tile(aes(fill = performance)) + scale_fill_gradient('performance', limits=c(0, 1), breaks = c(0, 0.25, 0.5, 0.75, 1),  low = "lightblue", high = "darkblue")

    enter image description here

    回复于

相关问题