如何为多个列制作分组条形图？

Question

我想制作一个分组条形图，其中每个月都聚集在一起，然后在该集群中，每个变量都有自己的条形图。 因此，对于下面的示例代码（我的实际数据超过 2 行），我想要一月份的 x1、x2、x3 和 x4 的条形图，然后再为 x1、x2、x3 和 x4 的条形图二月等

x1	x2	x3	x4	月
7.8	3.4	9.8	2.1	简
5.5	2.3	6.1	0.7	简

我一定遗漏了一些相当明显的东西，但我不知道如何使每列成为条形。 这是我目前最好的猜测

Levels = c(x1, x2, x3, x4)
Plot <- ggplot(data, aes(x = Month, fill = Levels)) + geom_col(position = 'dodge')

这显然是错误的，因为 Levels 没有以任何方式连接到数据。

任何想法，将不胜感激。

Answer 1

library(tidyverse)
df %>% 
  pivot_longer(
    -Month
  ) %>% 
  ggplot(aes(x = Month, y = value, fill=name)) + 
  geom_bar(position="dodge", stat="identity")

数据：

df <- structure(list(x1 = c(7.8, 5.5, 4.8, 5.5), x2 = c(3.4, 2.3, 6.4, 
7.3), x3 = c(9.8, 6.1, 9.8, 3.1), x4 = c(2.1, 0.7, 2.1, 7.7), 
    Month = c("Jan", "Jan", "Feb", "Feb")), class = "data.frame", row.names = c(NA, 
-4L))