Tidyquant: получение конечного ежемесячного дохода от каждой даты (а не только ежемесячно) - PullRequest
Новая
       97

Tidyquant: получение конечного ежемесячного дохода от каждой даты (а не только ежемесячно)

0 голосов
/ 18 февраля 2019

Я пытаюсь получать ежемесячный процентный доход с каждого дня, а не с каждого месяца.Как видно из текущего результата, он ежемесячно получает процентный доход.

library(tidyquant)
library(dplyr)

df <- c('AMZN','FB') %>% 
  tq_get(get='stock.prices',
         from='1999-01-01',
         to=Sys.Date()) %>%
  na.omit() %>%
  group_by(symbol) %>%
  tq_transmute(select=adjusted,
               mutate_fun=periodReturn,
               period='monthly',
               col_rename='monthly.close') %>%
  arrange(desc(date))

Токовый выход: 

symbol date monthly.close
AMZN    2019-02-15  -0.0644545858       
FB  2019-02-15  -0.0251364926       
AMZN    2019-01-31  0.1443171389        
FB  2019-01-31  0.2715692050        
AMZN    2018-12-31  -0.1113497862       
FB  2018-12-31  -0.0677050347       
AMZN    2018-11-30  0.0576717501

Ожидаемый выход 

symbol date monthly.close
AMZN    2019-02-15  ...
FB  2019-02-15  ...
AMZN    2019-02-14  ...
FB  2019-02-14  ...
AMZN    2019-02-13  ...
FB  2019-02-13  ...
AMZN    2019-02-12  ...
[...]
...