使用dplyr添加股票收益新列的功能

我只是想創建一個簡單的函數，將日常收益列添加到股票價格數據框中。使用dplyr添加股票收益新列的功能

爲手動stript這看起來是這樣的：

AAL <- mutate(AAL, logreturn = Delt(AAL$Price, type = "log")) 
rownames(AAL) <- AAL[, 1] 
AAL <- AAL[, 2:4] 
AAL[1, 3] <- 0

而且是這樣工作的。不過，我想簡單地進入

head(AAL) 
     Date Price Volume 
1 2013-06-28 7.5839 31308 
2 2013-07-01 7.2093 1054 
3 2013-07-02 7.3098 109 
4 2013-07-03 7.0539 1275 
5 2013-07-04 7.0448  22 
6 2013-07-05 7.0357 110 

add_returns(AAL) 


head(AAL) 
      Price Volume Delt.1.log 
2013-06-28 7.5839 31308 0.000000000 
2013-07-01 7.2093 1054 -0.050655720 
2013-07-02 7.3098 109 0.013844054 
2013-07-03 7.0539 1275 -0.035635258 
2013-07-04 7.0448  22 -0.001290899 
2013-07-05 7.0357 110 -0.001292568

我試圖做這種方式使，做上述功能，但它不工作：

add_return <- function(symbol){ 

    symbol <- mutate(eval(parse(text = paste0(symbol, collapse = "")), 
        logreturn = 
Delt(eval(parse(text = paste0(symbol, "$Price", collapse = ""))), 
             type = "log")) 

rownames(symbol) <- eval(parse(text = paste0(symbol, "$Date", collapse = ""))) 

symbol <- eval(parse(text = paste0(symbol, "[2:4]", collapse = ""))) 

eval(parse(text = paste0(symbol, "[1, 3]", collapse = ""))) <- 0 

}

來源

2015-09-17 waszczek

您可能不想將日期轉換爲rownames。他們在這邊解析（例如，提取年份）會更麻煩。 – Frank

如果你只是希望能夠以編程方式傳遞數據集的名字，你可以做到這一點很容易，比如像這樣的（幾乎完全一樣，在你的「手冊」 skript）：

add_return <- function(data) { 
    data <- transform(data, logreturn = Delt(Price, type = "log")) 
    rownames(data) <- data[, 1] 
    data <- data[, 2:4] 
    data[1, 3] <- 0 
    return(data) 
}

然後，你會使用調用函數：

add_return(AAL) 
#   Price Volume Delt.1.log 
#2013-06-28 7.5839 31308 0.000000000 
#2013-07-01 7.2093 1054 -0.050655720 
#2013-07-02 7.3098 109 0.013844054 
#2013-07-03 7.0539 1275 -0.035635258 
#2013-07-04 7.0448  22 -0.001290899 
#2013-07-05 7.0357 110 -0.001292568

話雖如此，這將是一個不同的故事，如果你想你的功能，讓其它投入progammatically，像列名於工作或新列等的名字（在這種情況下，你'd可能想看看dplyr的non-standard evaluation vignette。）但是，根據你的問題來判斷，並嘗試制定這個功能，那不是你想要做的。

如果你想永久改變在全球環境中的數據，這樣做的標準R-方式，它是：從功能到全球環境中

AAL <- add_return(AAL)

分配通常是不建議，所以我會堅持這種標準的方式，在這種情況下似乎很容易。

來源

2015-09-17 12:19:27

使用dplyr添加股票收益新列的功能

回答

相關問題