r - 基于年份的变量总和的密度图？

Question

我希望你们能帮助我。我正在为我的公司做报告。我有我们公司以及我们的竞争对手每周的销售历史信息（10 年）。

我正在尝试使用 ggplot 制作密度图。它看起来与这个完全相似：

因此，我希望将 X 轴作为日期，将 Y 轴作为每个供应商销售额相对于所有供应商总销售额的百分比。

我有一个文件，其中包含一周的列、供应商的列和该供应商每周销售额的列。

这是可以使用的东西geom_density吗？

Answer 1

获取一些长格式的数据，p

p <- structure(list(plot = c(4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L), time = c(1986, 1987, 1998, 2010, 1986, 1987, 1998, 2010, 
1986, 1987, 1998, 2010), id = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L), variable = structure(c(1L, 1L, 1L, 1L, 2L, 2L, 
2L, 2L, 3L, 3L, 3L, 3L), .Label = c("ABBA", "PIRU", "BECO"), class = "factor"), 
    value = c(0.557407905350901, NaN, 0.316510695187166, 0.301356485920244, 
    0.213498252218338, NaN, 0.17028743315508, 0.180391321330919, 
    0.0244689432643184, NaN, 0.0217245989304813, 0.020595859522034
    )), .Names = c("plot", "time", "id", "variable", "value"), row.names = c(NA, 
-12L), class = "data.frame")

绘制它：

ggplot(p, aes(x=time, y=value, fill=variable)) + geom_area()