如何为 geom_tile 中的每个变量添加单独的图例？

Question

我希望每个变量都有一个单独的比例尺。

我对整个水柱进行了测量，其平均值已计算到 50 厘米的箱子中。我想使用 geom_tile 来显示整个水柱中每个箱子中每个变量的变化，因此该图在 x 轴上有变量（分类），在 y 轴上有深度，还有一个不同的表示值的每个变量的色标。我可以使用

对一个变量执行此操作

ggplot(data, aes(x=var, y=depth, fill=value, color=value)) + 
        geom_tile(size=0.6)+ theme_classic()+scale_y_continuous(limits = c(0,11), expand = c(0, 0))

但是，如果我将所有变量放在一个图上，图例会缩放到所有值的最小值和最大值，因此 bin 之间的变化会丢失。

为了提供一个可重现的示例，我使用了 mtcars，并且包含了 alpha = 这当然没有太大帮助，因为每个变量的比例都非常不同

data("mtcars")
# STACKS DATA 
library(reshape2)
dat2b <- melt(mtcars, id.vars=1:2)
dat2b
ggplot(dat2b) + 
  geom_tile(aes(x=variable , y=cyl, fill=variable, alpha = value))

产生

有没有办法为图中的每个变量添加比例尺？

这个问题与其他问题类似（例如 here and here），但他们没有在 x 轴上使用分类变量，因此我无法修改它们以生成所需的图。

这是我想到的图的模型，只使用了四个变量，除了我会使用 theme(legend.position="bottom")

将所有图例水平放置在图的底部

Answer 1

希望这对您有所帮助：函数 myfun 最初由 Duck 在此处发布：

library(purrr)
library(ggplot2)
library(patchwork)
data("mtcars")
# STACKS DATA 
library(reshape2)
dat2b <- melt(mtcars, id.vars=1:2)
dat2b

#Split into list
List <- split(dat2b,dat2b$variable)
#Function for plots
myfun <- function(x)
{
  G <- ggplot(x, aes(x=variable, y=cyl, fill = value)) + 
    geom_tile() + 
  theme(legend.direction = "vertical", legend.position="bottom")
  return(G)
}
#Apply
List2 <- lapply(List,myfun)
#Plot
reduce(List2, `+`)+plot_annotation(title = 'My plot')

patchwork::wrap_plots(List2)

如何为 geom_tile 中的每个变量添加单独的图例？

How do I add a separate legend for each variable in geom_tile?

r

legend

ggplot2

geom-tile