Geom_area 无法生成绘图答案

【问题标题】：Geom_area unable to generate plotGeom_area 无法生成绘图
【发布时间】：2018-04-11 00:29:04
【问题描述】：

我试图用以下数据（称为 Test.xls）制作堆积线图：

Test <- read.table(text = "
  Date            A           B           C           D
1002EST 0.225164194 0.089942967 0.684289684 0.000603155
1007EST 0.606697971 0.375931286 0.015410986 0.001959757
1012EST 0.745430542 0.240069576 0.01186502  0.002634862
1017EST 0.586552052 0.253384789 0.159091468 0.000971692
1022EST 0.719846808 0.085252303 0.193054704 0.001846186
1106EST 0.908801738 0.075007121 0.015196251 0.00099489
1111EST 0.901317416 0.083624883 0.011020257 0.004037444
1116EST 0.838439325 0.116000974 0.042570946 0.002988756
1121EST 0.822848944 0.14935052  0.024948372 0.002852164
1126EST 0.878149037 0.107215826 0.011199368 0.003435768
1206EST 0.806550999 0.127171158 0.062039302 0.00423854",
                   header = TRUE, stringsAsFactors = FALSE)

我使用 RStudio 中的“导入数据集”选项来导入数据。 R绘图代码如下：

library(reshape2)
Test_melt <- melt(Test, "Date")
library(ggplot2)
ggplot(Test_melt, aes(x = Date, y = value, fill = variable)) +
  geom_area(position = 'stack')

但我发现我的脚本没有生成任何绘图，如下所示： Rplot

我该如何解决这个问题？

【问题讨论】：

标签： r ggplot2

【解决方案1】：

试试加group = variable，就不用position = "stack"了：

ggplot(Test_melt, aes(Date, value)) + geom_area(aes(fill = variable, group = variable))

【讨论】：

谢谢！有效！但是这个意义上的“组”是什么意思呢？
表示“连接属于同一个variable的点”。您也可以将它与其他几何图形一起使用，例如 geom_line。 More details.

【解决方案2】：

我提供tidy 方法来删除melt 步骤。

library(ggplot2)
library(tidyr)

Test %>%
  gather(variable, value, -Date) %>%
  ggplot(aes(x = Date, y = value)) +
  geom_area(aes(fill = variable, group = variable))

【讨论】：