在R中查找多個列和行的每日收益

Question

我有一個名為finaldf的數據框，看起來像這樣，共有70種不同的加密貨幣價格和大約2至3年的數據

Date        P1          P2      P3     P4...........P70      
28-Apr-13   135.3       135.98  132.1  134.2
29-Apr-13   134.44      147.49  134    144.54  
30-Apr-13   144         146.93  134.05 139    
1-May-13    139         139.89  107.72 116.99 

我想對所有P1至P70應用公式以獲取每日收益。 例如，我要根據示例數據應用的公式將看起來像（134.44-135.3）/135.3，但它將涵蓋所有日期從P1到P70的所有數據。 我正在尋找的最終輸出將是這樣的

DR =每日收益

Date  P1  DR1  P2  DR2.......P70  DR70

Answer 1

我們可以使用mutate_at的dplyr來指定以“ P”開頭的列，並將連續值除以當前值以創建“ DR”列

library(dplyr)
df1 %>%
   mutate_at(vars(starts_with('P')), funs(DR = (lead(.)- .)/.))