R - 시작일과 종료일이있는 데이터 프레임에서 주식 데이터 생성

Question

데이터 프레임에서 주식 데이터를 생성해야합니다. 데이터 프레임에는 항목의 재고 기간을 나타내는 시작일과 종료일이 포함됩니다. 항목 당 재고 수준을 집계하고 데이터와 함께 시계열을 만들고 싶습니다.

A <- c("a","b","a","b","c") 
begindate <- as.Date(c("2014-01-01", "2014-01-03", "2014-01-03", "2014-01-02", "2014-01-02")) 
enddate <- as.Date(c("2014-01-04", "2014-01-05", "2014-01-06", "2014-01-04", "2014-01-06")) 
source <- data.frame(A, begindate, enddate) 
source 
    A begindate enddate 
1 a 2014-01-01 2014-01-04 
2 b 2014-01-03 2014-01-05 
3 a 2014-01-03 2014-01-06 
4 b 2014-01-02 2014-01-04 
5 c 2014-01-02 2014-01-06 

내가이 데이터에서 만들려는 것은

2014-01-01 2014-01-02 2014-01-03 2014-01-04 2014-01-05 2014-01-06 
a 1 1 2 2 1 1 
b  1 2 2 1 
c  1 1 1 1 1 

원본 데이터 같은 시간 시리즈는 약 180K 행 오히려 큰입니다 :

나는 형태의 데이터를 가지고있다. 이 일을하는 효과적인 방법은 무엇입니까?

편집

데이비드 Arenburg에 의해 주어진 대답은 잘

library(data.table) 
library(reshape2) 
setDT(mydata)[, indx := .I] 
mydata <- mydata[, list(A = A, seq(begindate, enddate, by = 1)), by = indx] 

일을하지만 내 데이터를 오히려 느렸다. 중간 단계를 추가하면 주조 작업이 크게 빨라졌습니다. 데이터 세트가 큰 경우

# intermediate step (pre-aggregation) 
mydata_aggregated <- mydata[, list(number_cases = length(indx)), by = list(A, V2)] 
# casting over the aggregated list 
mydata_series <- dcast(mydata_aggregated, V2 ~ A, value.var = "number_cases") # note 
# that I switched the rows and columns, since I found that its easier to pass this 
# data to zoo or xts 

# creating the zoo object 
mydata_zoo <- zoo(mydata_series[,-1],mydata_series[,1]) 

Answer 1

, 당신의 데이터에 대한 다른 이름을 사용하려고 따라서, source는 R에 저장된 기능입니다 data.table

library(data.table) 
library(reshape2) 
setDT(source)[, indx := .I] 
source <- source[, list(A = A, seq.int(begindate, enddate, by = 1)), by = indx] 
dcast.data.table(source, A ~ V2, value.var = "V2", length) 

## A 2014-01-01 2014-01-02 2014-01-03 2014-01-04 2014-01-05 2014-01-06 
##1 a   1   1   2   2   1   1 
##2 b   0   1   2   2   1   0 
##3 c   0   1   1   1   1   1 

그냥 보조 노트를 사용하는 것은

설정