This plot shows The Annual Gold Prices since 1950 to 2018 in USD (London market). Data is sourced from the Bundesbank.

##      Date Price
## 1 1950-12 34.72
## 2 1951-12 34.66
## 3 1952-12 34.79
## 4 1953-12 34.85
## 5 1954-12 35.04
## 6 1955-12 34.97

library(plotly)

fig <- plot_ly(annual_gold_price, x= ~Date , y= ~Price , 
               type = 'scatter', mode = 'lines')

fig