2020-03-04地平线图（Horizon Plots）

原文链接

加载R包

library(lattice)
library(latticeExtra)

创建数据

n = 10  #10个零售店
t = 365 #一年中每天的销售
dat = ts(matrix(cumsum(rnorm(t * n)), ncol = n)

你想比较每天的销售情况，图形就会很平，趋势不明显

xyplot(dat, scales = list(y = "same"), strip = FALSE, layout = c(1, 10))

image.png

另外一个例子

x = 1:300
y = x * sin(0.1 * x)
plot(x, y, type = "l")
abline(h = 0, col = "gray")
abline(h = 100, col = "lightgray", lty = 2)
abline(h = 200, col = "lightgray", lty = 2)
abline(h = -100, col = "lightgray", lty = 2)
abline(h = -200, col = "lightgray", lty = 2)

image.png

这时地平线图就非常的有用了

horizonplot(ts(y))

image.png

horizonplot(ts(dat), horizonscale = 10, colorkey = TRUE, layout = c(1, n))

image.png

更专业（花哨），更直观（舒服）一点！！！