<p>为了评论你问题的可视化部分(不是编程),我已经模拟了一些小平面图的例子,以建议你可能想用来探索你的数据的替代方案。在</p>
<pre><code>library("lubridate")
library("ggplot2")
library("reshape2")
dates <- c("2011-01-01","2011-01-04","2011-01-05",
"2011-01-06","2011-01-07","2011-01-08",
"2011-01-11","2011-01-12")
dates <- ymd(dates)
Actual<- c( 1132, 1184, 1177, 950, 1066, 1098, 1116, 1211,
1132, 1184, 1177, 950, 1066, 1098, 1116, 1211,
1132, 1184, 1177, 950, 1066, 1098, 1116, 1211)
z <- c( 1, 1, 1, 1, 1, 1, 1, 1,
2, 2, 2, 2, 2, 2, 2, 2,
3, 3, 3, 3, 3, 3, 3, 3)
Tops <- c( 1156, 1250, 1156, 1187, 1187, 1187, 1156, 1156,
1125, 1125, 1125, 1125, 1125, 1250, 1062, 1250,
1250, 1250, 1250, 1250, 1250, 1250, 1250, 1250)
Mids <- c( 1125, 1187, 1125, 1156, 1156, 1156, 1140, 1140,
1062, 1062, 1062, 1062, 1062, 1125, 1000, 1125,
1187, 1187, 1187, 1187, 1187, 1187, 1187, 1187)
Lows <- c( 1093, 1125, 1093, 1125, 1125, 1125, 1125, 1125,
1000, 1000, 1000, 1000, 1000, 1000, 937, 1000,
1125, 1125, 1000, 1125, 1125, 1093, 1093, 1000)
df <- data.frame( cbind(z, dates, Actual, Tops, Mids, Lows))
dfm <- melt(df, id.vars=c("z", "dates", "Actual"))
</code></pre>
<p>在第一个示例中,蓝色细线是叠加在每个z轴上的所有三个级别上的实际值。在</p>
^{pr2}$
<p><img src="https://i.stack.imgur.com/Fp0xv.png" alt="line charts"/></p>
<p>在第二组中,每个面板都有一个相对于每个z轴上的三个级别(顶部、中部、下部)的实际值的散点图。在</p>
<pre><code>p <- ggplot(data = dfm,
aes(x = Actual,
y = value,
group = variable,
colour = variable)
) + geom_point(size = 3) +
geom_smooth() +
facet_grid(variable ~ z) +
theme_bw()
p
</code></pre>
<p><img src="https://i.stack.imgur.com/kMgc9.png" alt="correlation"/></p>