GGPlot 翻转这个图

Question

library(ggplot2)
library(reshape2)
HAVE = data.frame(VARS = c("cat", "dog", "fox", "rabbit"),
                  "a" = c(1,2,3,4),
                  "b" = c(2,3,1,4),
                  "c" = c(3,1,2,4))

HAVE1 = melt(HAVE, id.vars="VARS")

ggplot(HAVE1, aes(VARS, variable, fill= value)) + 
  geom_tile() +
  scale_fill_gradient(low="white", high="blue")

我希望生成从黄色（低值）到蓝色（高值）的颜色图。我希望顶部的列是“变量”，而 yticks 是 VARS，例如：请注意这只是一个示例！！

---

Answer 1

这里有一个带有coord_flip 的选项来切换轴和使用fct_rev 重新排序因子水平

ggplot(HAVE1, aes(x = fct_rev(as_factor(VARS)), variable, fill= value)) + 
  geom_tile() +
  scale_fill_gradient(low="yellow", high="blue") +
  coord_flip()

Answer 2

这是pivot_longer 和scale_x_discrete 的一种方法。请注意，tidyr 是 reshape2 的继承者，但由同一作者撰写。

我们可以重新排序VARS 的因子水平，让它们按照您想要的顺序进行绘图。

我们也可以用labs和element_blank去掉坐标轴标签。

library(ggplot2)
library(tidyr)
library(dplyr)
HAVE %>% 
  pivot_longer(-VARS,names_to = "variable", values_to = "value") %>%
ggplot(aes(x = variable, y = factor(VARS, rev(levels(VARS))), fill= value)) + 
  geom_tile() +
  scale_fill_gradient(low="yellow", high="blue") +
  scale_x_discrete(position = "top") +
  labs(x = element_blank(), y = element_blank())

如果您希望瓷砖是方形的，只需添加 coord_equal() 函数：

ggplot(HAVE1,aes(x = variable, y = factor(VARS, rev(levels(VARS))), fill= value)) + 
  geom_tile() +
  scale_fill_gradient(low="yellow", high="blue") +
  scale_x_discrete(position = "top") +
  labs(x = element_blank(), y = element_blank()) + 
  coord_equal()