使用ggplot2将条形图分组：每年将两个数字变量分组

Question

我的问题很简单，但是我找不到解决该问题的帖子。

这是我的数据集DF：

   Year     CO2Seq       CO2Seq2
1  2000     1135704      1107400
2  2003     3407111      3444508
3  2010     1703555      1661100
4  2015     2271407      2296339

我想创建一个条形图，其中每年的CO2Seq和CO2Seq2条形图彼此相邻。

目前，我只能使用此脚本为CO2Seq创建一个简单的条形图

ggplot(DF,aes(x=factor(Year), y=CO2Seq))+geom_bar(stat="identity")

你能帮我吗？

非常感谢

Answer 1

ggplot通常设计用于长数据而不是宽数据，因此第一步是重塑数据，然后进行绘制就很简单。

library(ggplot2)
library(tidyr)

df %>%
  pivot_longer(col = -Year) %>%
  ggplot(aes(x = factor(Year), y = value, fill = name)) +
  geom_bar(stat = "identity", position = "dodge")