表格和热图[关闭]

Posted 2023-02-16

【中文标题】表格和热图[关闭]

【英文标题】：Table and Heatmap [closed]

【发布时间】：2021-12-26 02:20:24

【问题描述】：

我正在尝试制作热图表。我想要一个类似于下表的表格。

您可以在下面看到数据和代码。

TestData1<-structure(list(Countries = c("AL", "CA", "DE", "ES", "MA", "EL", 
                                        "AL", "CA", "DE", "ES", "MA", "EL", "AL", "CA", "DE", "ES", "MA", 
                                        "EL"), variable = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 
                                                                      2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L), .Label = c("Total", 
                                                                                                                          "Female", "Male"), class = "factor"), value = c(-3.06, -4.41, 
                                                                                                                                                                          6.97, -2.74, 5.54, -1.31, -2.47, -3.45, 4.11, -3.06, 4.82, -1.73, 
                                                                                                                                                                          -3.95, -5.76, 8.74, -1.87, 6.37, -0.79)), row.names = c(NA, -18L
                                                                                                                                                                          ), class = "data.frame")


ggplot(TestData1, aes(x = 'Countries', y = factor(variable, levels = rev(levels(factor(variable)))))) + 
  geom_tile(aes(fill = value)) +
  geom_text(aes(label = value), color = "white") + 
  scale_x_discrete(position = "top") +
  scale_fill_gradient(high = "#132B43", low = "#56B1F7") +
  theme(legend.position = "none", 
        panel.grid = element_blank(), 
        panel.background = element_rect(fill = "white"),
        axis.ticks = element_blank()) +
  labs(y = " ")

可惜最后的结果并不好。那么任何人都可以帮助我如何制作像上表一样的热图吗？

【问题讨论】：

尝试不带引号，即aes(x = Countries, ...)。

定义“不好”。

【参考方案1】：

试试吧！ ;)

ggplot(TestData1, aes(x = variable, y = Countries)) + 
  geom_tile(aes(fill = value)) +
  geom_text(aes(label = value), color = "white") + 
  scale_x_discrete(position = "top")  +
  scale_y_discrete(limits = rev) +
  scale_fill_gradient(high = "#132B43", low = "#56B1F7") +
  theme(legend.position = "none", 
        panel.grid = element_blank(), 
        panel.background = element_rect(fill = "white"),
        axis.ticks = element_blank()) +
  labs(y = " ", x = " ")