如何在加热时改变颜色等 map

Question

对不起，作为新手的问题。 我正在尝试制作热 map 图表。 这是我得到的：

它看起来很丑。 我想知道我是否可以选择图表的颜色。 如果是这样，怎么做？ 我想用黄红色代替蓝色，红色最难看。 还有什么方法可以让这个图表看起来更漂亮、更专业？ 任何示例代码都会对我学习这种类型图有很大帮助。 另外，我的变量不是连续的。 我应该如何修复它显示它不会设置为 1.5、2.5？

这是我编写的示例数据和代码：

ID<- c("1","2","3","4","5","6","7","8","9","10","11","12","13","14","15","16","17","18")
Group<-c("A","B","C","D","D","D","A","B","D","C","B","D","A","A","C","B","B","B")
Color<-c("Green","Blue","Red","Red","Black","Yellow","Green","Green","Yellow","Purple","Red","Yellow","Yellow","Yellow","Green","Red","Red","Green")
Realy_Love<-c("Y","N","Y","Y","N","N","Y","Y","Y","N","N","Y","N","Y","N","Y","N","Y")
Sample.data <- data.frame(ID, Group, Color, Realy_Love)
        
Sample.data %>%
  count(Group, Color, sort = TRUE) %>% ggplot(aes(x = Group, y = Color, fill=n)) + geom_raster() +
geom_text(aes(label = paste0("N=",round(n, 1)), color = n < 100),show.legend = F)+
  guides(fill = guide_legend())

非常感谢。

Answer 1

我会做几件事来改善这里的外观。 首先，使用scale_fill_manual设置图块的颜色。 其次，用coord_equal使瓷砖成正方形。 第三，将文本变为黑色而不是红色。 第四，将主题元素设置为theme_minimal设置。

当然，这可能不符合每个人的口味，但对我来说肯定更好。 我认为您可能想尝试不那么鲜艳的颜色组合，以获得更专业的外观。

Sample.data %>%
  count(Group, Color, sort = TRUE) %>% 
  ggplot(aes(x = Group, y = Color, fill = factor(n, levels = 3:1))) + 
  geom_raster() +
geom_text(aes(label = paste0("N=",round(n, 1))), 
          color = "black", show.legend = FALSE) +
  guides(fill = guide_legend("n")) + 
  theme_minimal() +
  scale_fill_manual(values = c("yellow", "orange", "red")) +
  coord_equal()