Interaktives Chart des Kursverlaufs des Bitcoin

Nachdem der Kurs des Bitcoin seit seiner Erschaffung im Jahr 2009 herumdümpelte, nahm er 2017 rasant Fahrt auf. Von unter 1.000 Euro stieg der Kurs zeitweise auf über 15.500 Euro. Doch dem Höhenflug folgte der Absturz. Binnen weniger Wochen büßte der Bitcoin mehr als die Hälfte seines Wertes wieder ein.
Mit einem R-Skript wird der Kurs der Kryptowährung Bitcoin der vergangenen 12 Monate über Quandl eingelesen und mit dem Package highcharter visualisiert. Das Quandl-Chart befindet sich hier und lässt sich mit dem Package Quandle in R einlesen. Für das Chart werden die letzten 12 Monate herangezogen. Mit highcharter lässt es sich als Grafik oder interaktive Webseite darstellen.

library(highcharter)
library(dplyr)
library(Quandl)
library(lubridate)
df=Quandl("BCHARTS/BTCDEEUR")
d <- Sys.Date() - years(1)
df <- df %>%
  filter(Date > d) %>%
  select(Date, Close) %>%
  arrange(Date)
hcoptslang <- getOption("highcharter.lang")
hcoptslang$thousandsSep <- ""
hcoptslang$numericSymbols <- highcharter::JS("null") #remove the SI prefixes
options(highcharter.lang = hcoptslang)
hc <- highchart() %>% 
  hc_exporting(enabled = TRUE) %>%
  hc_xAxis(categories = df$Date) %>% 
  hc_add_series(name = "Kurs", data = df$Close, color = "#336699") %>% 
  hc_yAxis(type = "linear") %>%
  hc_title(text = "Bitcoin vs. Euro (Bitcoin.de)") %>%
  hc_subtitle(text = "Quelle: Quandl")%>% 
  hc_add_theme(hc_theme_smpl()) %>% 
  hc_legend(enabled = FALSE) 
hc

Das Skript: Als externe Packages werden highcharter, dplyr, Quandl und lubridate eingebunden. Zunächst liest df=Quandl("BCHARTS/BTCDEEUR") die Daten ein und erzeugt einen Data Frame. Anschließend berechnet d <- Sys.Date() - years(1) die gewünschte Zeitspanne von ein Jahr zuvor bis zum aktuellen Tag. Die folgenden vier Codezeilen beschneiden den Data Frame auf die soeben berechnete Zeitspanne. Mehr zum Pipe-Operator %>% findet sich hier. Die nächsten vier Zeilen nehmen Einstellungen wie Tausendertrennzeichen für das Chart vor, bevor selbiges mit highchart() erstellt wird. Die abschließenden Zeilen bestimmen Achsen, Titel und Theme und deaktivieren die Legende, bevor das Chart mit hc ausgegeben wird. Es lässt sich wahlweise als interaktive HTML-Seite exportieren, wie auf dieser Seite eingebunden.