從包含一個或多個時間序列的數據框進行繪圖

我經常使用時間值（源自xt或zoo對象）構建數據框進行分析和繪圖。這裏有一個例子：從包含一個或多個時間序列的數據框進行繪圖

library(xts) 

x1 <- xts(rnorm(10), as.Date("2012-01-01") + 0:9) 
x2 <- xts(rnorm(10), as.Date("2012-01-04") + 0:9) 

(df <- data.frame(merge(x1=x1, x2=x2), v1=4:16, v2=rnorm(13)))  

        x1   x2 v1   v2 
2012-01-01 0.1930827   NA 4 1.05972724 
2012-01-02 0.4429592   NA 5 -1.89299068 
2012-01-03 1.6657630   NA 6 0.70445966 
2012-01-04 -0.2765922 -0.26728223 7 0.35336959 
2012-01-05 -0.1756590 -2.04888130 8 0.90129924 
2012-01-06 -2.4849132 0.49400975 9 1.54486914 
2012-01-07 -0.9993353 -1.09308203 10 1.16600015 
2012-01-08 -0.7326309 0.55781566 11 0.37178542 
2012-01-09 -0.2973543 -0.59872496 12 0.07512468 
2012-01-10 -1.5061380 0.08567125 13 1.77494367 
2012-01-11   NA 0.81835375 14 -0.38211167 
2012-01-12   NA 1.30131894 15 -1.09220795 
2012-01-13   NA -1.29505649 16 1.27148069

繪製時間序列，我需要使用as.Date(row.names(df))爲橫軸。例如：

plot(as.Date(row.names(df)), df$x1, type="l", xlab="", ylab="Test", main="Using row.names()", col="red") 
lines(as.Date(row.names(df)), df$x2, col="blue")  
lines(as.Date(row.names(df)), df$v2, col="green")

這是一遍又一遍地用as.Date(row.names(df))，所以在過去，我用下面的代碼添加到數據幀列一個真正的痛苦：

(df <- cbind(df, tim=as.Date(row.names(df))))

我現在可以積時間序列爲：

with(df, { 
    plot(tim, x1, type="l", xlab="", ylab="Test", main="Using a new tim column", col="red") 
    lines(tim, x2, col="blue") 
    lines(tim, v2, col="green") 
})

這種方法行之有效，但補充說，tim柱感覺馬虎。有沒有更好的/更清潔的方式來做到這一點？

編輯1（2012-05-13）====================================

我使用數據框的原因是因爲這些數據通常被提供給一個或多個需要數據框的包和/或因爲我通常需要在某些變量中表示非數字數據。

來源

2012-05-13 bill_080

一個data.frame不能「包含」 XTS /動物園值。 'data.frame（）'通過'as.data.frame'將'...'中的每個對象轉換爲一個data.frame。所以，這個問題實際上與xts/zoo對象沒有任何關係。 –

@Joshua - 我應該改變標題並刪除標籤嗎？ –

這可能有助於從可以幫助的人那裏獲得更多的關注，但我認爲你添加'tim'列的解決方案可能是最簡單和最直接的。 –

我會堅持與動物園的設施儘可能：

library(xts) 
x1 <- xts(rnorm(10), as.Date("2012-01-01") + 0:9) 
x2 <- xts(rnorm(10), as.Date("2012-01-04") + 0:9) 

dz <- merge(x1=x1, x2=x2); dz$v1=4:16; dz$v2=rnorm(13)  
# keeps it a zoo object rather than a data.frame 

with(dz, plot(x1, type="l", xlab="", ylab="Test", main="Not using row.names()\nStick with zoo")) 
lines(dz$x2, col="blue")  
lines(dz$v2, col="green")

enter image description here

來源

2012-05-13 17:15:05

我應該更具體地瞭解數據框的需求。我在問題結尾添加了編輯1。 –

從包含一個或多個時間序列的數據框進行繪圖

回答

相關問題