cột tỷ lệ của đối tượng xts

Question

Tôi thường xử lý dữ liệu ở định dạng xts và thường phải chia tỷ lệ cho chúng (giả sử bằng 100 vào một số ngày). Tôi hiện đang làm điều này bằng cách sử dụng một chức năng, hoạt động bằng cách sử dụng một for-loop - tuy nhiên điều này không có vẻ rất chức năng.

Dưới đây là làm thế nào tôi làm điều đó bây giờ:

df1 <- data.frame(rnorm(100), runif(100), 1:100*rnorm(100)) 
dfx <- xts(df1, order.by = seq(as.Date("2001-01-01"), by='mon', length.out=100)) 

dfxColScl <- function(dfrm, pos=1, idx = 100) 
{ 
    scaledDF <- dfrm 
    for (i in 1:ncol(dfrm)) { 
     scaledDF[, i] <- dfrm[,i]/as.numeric(dfrm[pos, i]) * idx 
    } 
    return(scaledDF) 
} 

Có một số thông minh apply loại chức năng đó là R cách để làm điều này?

Answer 1

sweep có thể được sử dụng để chia ma trận theo hàng.

dfx.scaled2 <- sweep(100*dfx, 2, dfx[1], "/") 
all.equal(dfx.scaled, dfx.scaled2) # same result as @Joshua 
#[1] TRUE 

Answer 2

Bạn có thể sử dụng apply.daily. Lưu ý rằng bạn vẫn phải sử dụng coredata trên hàng bạn muốn chia bởi vì hoạt động xts/zoo luôn được căn chỉnh theo chỉ mục trước khi thực hiện thao tác.

dfx.scaled <- apply.daily(dfx, function(x) x/coredata(dfx[1,])*100)