使用ggplot（面积图）在R中再现图

Question

我正在尝试在R中复制一个有数据但没有代码的图。 我认为使用ggplot将是最好的解决方案。

情节应如下所示：

我的数据：

一个数据帧（d），其中第1列（“年份”）给出了年份（1960-2000），而其他15列（“ Group 1”，“ Group 2” ...）给出了该组的值。因此，每一行都包含年份和特定组的值。 （例如（1）1960; 455; 367; 477; 788; 456; 334; 456; ...）

我已经尝试过用geom_area进行一些实验，但这不会生成意向图。

ggplot(d, aes(x = Year, y = d[,2]))+
  geom_area(fill = "#00AFBB", color = "blue")

在这里，我得到n个（n =年数）非常细的条形，表示相对于特定年份的组1的值。

希望您可以提供一些想法或教程来帮助我。区域图是我想要做的正确选择吗？

最好！

Answer 1

您需要将数据从wide转换为long格式，然后才能正常工作：

library(dplyr)
library(tidyr)
library(ggplot2)
d <- gather(d, Group, value, Group1:Group15)
ggplot(d, aes(x = Year, y = value, fill = Group))+
  geom_area()