將多個時間序列數據（長格式）繪製成一個繪圖？

Question

假設我有3個時間序列數據「a」，「b」，「c」，他們每個人有7個變量需要記錄7天。

這裏去示例代碼：

require(data.table) 
#Create data 
DT<-data.table(type=c(rep("a",7),rep("b",7),rep("c",7)), time=1:7,V1=rnorm(7*3,10,5),V2=rnorm(7*3,100,20),key="type") 
# plot.zoo 
require(zoo) 
plot(zoo(DT["a"])[,3:4]) 

我能繪製一種類型的時間（如上），但我想繪製所有 「A」 「B」「C 「......進入該面板，其中不同顏色表示不同類型的時間序列。

所以我在尋找的是一個有兩個面板（「V1」和「V2」）的情節，在每個面板中有幾行（「a」，「b」，「c」）。 ..）用不同顏色

Answer 1

嘗試此動物園的經典圖形，動物園點陣圖形和動物園GGPLOT2顯卡：

library(zoo) 
z <- read.zoo(DT, split = 1, index = 2, FUN = identity) 
Names <- read.table(text = names(z), sep = ".", col.names = c("screen", "col")) 

plot(z, screen = Names$screen, col = Names$col) # also see note 3 below 

library(lattice) 
xyplot(z, screen = Names$screen, col = Names$col) # also see note 3 below 


library(ggplot2) # also see note 4 below 
m <- fortify(z, melt = TRUE) 
m2 <- transform(m, screen = sub("\\..*", "", Series), col = sub(".*\\.", "", Series)) 
qplot(Index, Value, data = m2, col = col, geom = "line") + facet_wrap(~ screen) 

注

1）如果我們只是想獨立的面板它只是是plot(z),xyplot(z)和autoplot(z)。

2）names(z)和Names是：

> names(z) 
[1] "V1.a" "V2.a" "V1.b" "V2.b" "V1.c" "V2.c" 
> Names 
    screen col 
1  V1 a 
2  V2 a 
3  V1 b 
4  V2 b 
5  V1 c 
6  V2 c 

3）我們可能只是硬編碼它，因爲這（在這種情況下，我們就不需要Names）：

plot(z, screen = 1:2, col = c(1, 1, 2, 2, 3, 3)) 

xyplot(z, screen = 1:2, col = c(1, 1, 2, 2, 3, 3)) 

4）在這裏是不涉及z的ggplot2替代方案。其轉換DT長形式data.table包，然後執行qplot：

long <- DT[, list(Series = names(.SD), Value = unlist(.SD)), by = list(type, time)] 
qplot(time, Value, data = long, col = type, geom = "line") + facet_wrap(~ Series) 

Answer 2

使用lattice包，例如，你可以這樣做：

library(lattice) 
xyplot(V1+V2~time,groups=type,data=DT,type='l') 

你也可以做到這一點使用ggplot2：

library(reshape2) 
dt.m <- melt(DT,measure.vars=c('V1','V2')) 

ggplot(dt.m) + 
geom_line(aes(x=time,y=value,group=type,color=type)) + 
    facet_grid(~variable)