bitcoin

Final Result for BitCoin

library(tidyquant)
library(tidyverse)
library(timetk)
library(highcharter)


bitcoin_quandl <- tribble(
    ~code,          ~symbol,
    "BCHARTS/LOCALBTCEUR", "LOCALBTCEUR"
)

bitcoin_quandl %>% tq_get(get = "quandl") %>%
                   select(date, close) %>%
                   mutate(returns = (log(close) - log(lag(close)))) %>%
                   replace_na(list(returns = 0)) %>%
                   mutate_at(vars(3), funs(ifelse(!is.finite(.), 0, .))) %>% 
                   tk_xts() -> bitcoin_return

highchart(type = "stock") %>% 
         hc_title(text = "BitCoin Daily Returns/Prices") %>%
         hc_yAxis_multiples(
              list(lineWidth = 3),
              list(showLastLabel = FALSE, opposite = TRUE)) %>% 
         hc_add_series(bitcoin_return$close, 
                name = names(bitcoin_return$close)) %>%
         hc_add_series(bitcoin_return$returns,
                name = names(bitcoin_return$returns), yAxis = 1) %>% 
  hc_add_theme(hc_theme_flat()) %>%
  hc_navigator(enabled = FALSE) %>% 
  hc_scrollbar(enabled = FALSE)