使用 ggplot 创建多个堆叠的小提琴图

Question

我有一个在不同景观上运行的模型，一次同时运行，一次单独运行。 我想在小提琴图中绘制结果，但我希望在同一个图中并排运行，并且每个景观都有自己的小提琴（因此2 堆 4 把小提琴）。 示例数据：

df1 <- data.frame('means' = 1:6, 'landscape' = rep(c('forest', 'desert', 3)))
df2 <- data.frame('means' = rep(c(1,2), 3), 'landscape' = rep(c('forest', 'desert', 3)))

我希望最终产品看起来如何（MS Paint 中的插图，我是一个糟糕的艺术家）：

绿色代表森林，金色代表沙漠。

Answer 1

请注意，这篇文章含蓄地询问“如何将小提琴几何图形打印在彼此之上？”。 这当然是通过position参数来回答的，小提琴默认为'dodge' - 将其更改为'identity'就可以了。 小贴士 - 要求“堆叠”实际上有点误导，因为position='stack'将垂直堆叠它们。

这种方法特别避免了笨重的第二个数据集，因此很容易处理多种颜色。

library(tidyverse)

mpg %>%
  filter(class %in% c("compact","midsize")) %>%
  mutate(coloringArgument = paste(drv,class)) %>%
  ggplot(aes(as.factor(drv), cty, color=coloringArgument)) + 
  geom_violin(position = "identity")

Answer 2

使用ggplot - 您可以添加两个geom_violin()并在第二个中使用新数据。

我使用mtcars作为示例数据。

library(tidyverse)

df1 <- mtcars[1:15, ]
df2 <- mtcars[16:31, ]

df1 %>% 
  ggplot(aes(factor(vs), disp)) + 
  geom_violin() + 
  geom_violin(data = df2, 
              aes(factor(vs), disp))

编辑

如果可能，我认为更简单的方法是将数据框合并为一个，并为每个数据框创建一个键以备后用。 为了组合 data.frames，我使用了bind_rows ， bind_rows绑定在其他框架之上。 参数.id =使我能够添加一个带有 data.frame 名称的新列。 接下来，在ggplot您可以将aes color设置为您提供的 data.frame id。 这将为每个 data.frame 提供不同的颜色。 此外，在geom_violin添加position = "identity"可以让您将它们堆叠在一起。

bind_rows(list(df1 = df1, df2 = df2),
          .id = "dfName") %>% 
  ggplot(aes(factor(vs), disp, color = dfName)) + 
  geom_violin(position = "identity")