指定時間序列中的星期數以獲取每週平均價格

假設我有一個包含每日數據（工作日）的時間序列，並且我想按業務週數組織數據。（週一至週五）以類似的方式作爲對原油期貨價格的一個在這個網頁從EIA：指定時間序列中的星期數以獲取每週平均價格

http://www.eia.gov/dnav/pet/hist/LeafHandler.ashx?n=PET&s=RCLC1&f=D

正如你所看到的價格是很好的按周在這個網頁組織。 R中是否有可以用類似方式組織數據的函數？

您可以獲得在.xls格式的數據： http://www.eia.gov/dnav/pet/hist_xls/RCLC1d.xls

我想什麼做的是一個星期數分配給每個每日觀察是這樣的：（看周列）

 Date Price weeks day 
1983-04-04 29.44 1 Monday 
1983-04-05 29.71 1 Tuesday 
1983-04-06 29.92 1 Wednesday 
1983-04-07 30.17 1 Thursday 
1983-04-08 30.38 1 Friday 
1983-04-11 30.26 2 Monday 
... 
...

到目前爲止，我已經使用了lubridate軟件包的week函數，但運行不正常。這似乎是第53週一年一次，該功能在第二年的一週內未能正常啓動。

我一直試圖遠離代表，seq/5或/ 7種解決方案，因爲可能有一些觀察，我可能需要從數據中過濾後，所以我想有一個解決方案，不依賴於我的數據的特定向量，而是我寧願解決方案更通用，即取決於日期類，即POSIcxt，xts或動物園類

任何提示將不勝感激。

來源

2011-12-28 aatrujillob

我在下面看到你的評論，但你仍然沒有說出你想要的數字作爲一個數字爲一年的增量。 – 2011-12-29 02:05:08

所以你不想要一個數字;你只需要一週的時間 – 2011-12-29 02:27:45

如果你想給一個數字指定兩週的數字，那麼你將需要告訴我們分配的數字是多少。 – 2011-12-29 02:42:05

這是不是工作？：

as.POSIXlt()$yday %/% 7

我意識到，這確實有你想要什麼，以避免部分，但它從一個公認的一流的繪製它的出發點。爲您的數據指出，我與colClasses=c("Date", "numeric","numeric","character")讀它：

> 1 + as.POSIXlt(dat$Date)$yday %/% 7 
[1] 14 14 14 14 14 15

如果要複製的區間標籤，嘗試加入的7倍數的任何週一至週五：

paste(as.Date(strptime("1983 Apr- 4",format="%Y %b- %d"))+(39)*7, 
     " to ", 
     as.Date(strptime("1983 Apr- 8",format="%Y %b- %d"))+(39)*7, 
     sep="") 
@[1] "1984-01-02 to 1984-01-06" # The first new year change 
paste(as.Date(strptime("1983 Apr- 4",format="%Y %b- %d"))+(39+52)*7, 
     " to ", 
     as.Date(strptime("1983 Apr- 8",format="%Y %b- %d"))+(39+52)*7, 
     sep="") 
#[1] "1984-12-31 to 1985-01-04" # The second new year change

這裏是一個函數，將接受一個整數向量：

from8Apr83dts <- function(numwks) { 
    paste(as.Date(strptime("1983 Apr- 4",format="%Y %b- %d"))+(numwks)*7, 
      " to ", 
      as.Date(strptime("1983 Apr- 8",format="%Y %b- %d"))+(numwks)*7, 
      sep="") 
            } 
# Usage 
from8Apr83dts(39:40) 
#[1] "1984-01-02 to 1984-01-06" "1984-01-09 to 1984-01-13"

來源

2011-12-29 00:44:52

從鏈接的示例數據看來，@AndresT希望這些數據是工作周，因此週一到週五將始終處於同一周。其中一種可能性是使用'strftime（as.POSIXlt（dat $ Date），format =「％W」）'，但這並不總是連接兩週的一週中的日子（例如12月31日星期一1月4日星期五）。也許@AndresT可以澄清他想要在這樣的幾周內完成什麼...... – 2011-12-29 01:00:44

你說你想讓它看起來就像你提供的例子。那是我做的。每週的時間間隔與您鏈接到的網站的時間間隔相匹配。如果你想要不同的東西，請提供清晰的說明。無論如何，我得到工作日（as.Date（「1984-01-02」）） [1]「星期一」 – 2011-12-29 02:48:02

+1 - 尼斯work二進制。 – 2011-12-29 03:14:57

指定時間序列中的星期數以獲取每週平均價格

回答

相關問題