加载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))

另外一个例子
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)

这时地平线图就非常的有用了
horizonplot(ts(y))

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

更专业(花哨),更直观(舒服)一点!!!
网友评论