如何在格子中创建堆积面积图？

Question

考虑这个简单的问题 tibble

tibble(time = c(ymd('2019-01-01'),
                ymd('2019-01-02'),
                ymd('2019-01-03'),
                ymd('2019-01-04'),
                ymd('2019-01-05')),
       var1 = c(1,2,3,4,5),
       var2 = c(2,0,1,2,0))
# A tibble: 5 x 3
  time        var1  var2
  <date>     <dbl> <dbl>
1 2019-01-01     1     2
2 2019-01-02     2     0
3 2019-01-03     3     1
4 2019-01-04     4     2
5 2019-01-04     5     0

我想使用 lattice 创建堆叠面积图，其中 time 在 x 轴上，var1 和 var2 堆叠（在 y 轴上）随着时间的推移。

可以吗？

谢谢！

Answer 1

library(tibble)
library(lubridate)
library(lattice)
library(latticeExtra)
library(reshape2)


df1 <- tibble(time = c(ymd('2019-01-01'),
                       ymd('2019-01-02'),
                       ymd('2019-01-03'),
                       ymd('2019-01-04'),
                       ymd('2019-01-05')),
              var1 = c(1,2,3,4,5),
              var2 = c(2,0,1,2,0))

df2 <- df1
df2$var2 <- df2$var2 + df2$var1
df2 <- melt(df2, id.vars = "time")


xyplot(value~time, df2, group=variable,
       panel=function(x,y,...){
             panel.xyarea(x,y,...)
             panel.xyplot(x,y,...)},
      col=c("red","blue"),
      alpha=c(0.8,0.4))

^{由 reprex package (v0.3.0)}

创建于 2019-06-12

如何在格子中创建堆积面积图？

how to create a stacked area chart in lattice?

plot

r

lattice

stacked-area-chart