How can I plot the price of Bitcoin since last week?

What is the best way to plot the price AND volume of Bitcoin (or any other currency) in USD for the past week/month/year? Is it a good idea to use CurrencyConvert? Or should I download the data from somewhere else? If so, is there a source that you recommend that updates the prices at least a few times a day?

• Have you checked out this reference from the Wolfram site: Historical Currency Conversion – kickert Jul 24 '18 at 0:20
• As per the third question: bitcoincharts.com/charts – corey979 Jul 24 '18 at 0:21
• Thank you kickert and @corey979, I have concluded that for financial analysis bitcoincharts.com and data.bitcoinity.org are the way to go and using the WolframAlpha computable data is very helpful for a quick price analysis. Very helpful. Thank you both. – Miladiouss Jul 24 '18 at 1:49
• Did any of the answers satisfied your need? If you have your own, can you share it? There are things to do after your question is answered. While it's a good idea to wait some time as better approaches may come later improving over previous replies and experienced users may point alternatives, caveats or limitations, one weeks is enough wait. Participation is essential for the site, please do your part. – rhermans Jul 31 '18 at 20:17
• Sure @rhermans. I used the two comments to answer my own question. But I wasn't able to accept my own answer immediately. Thanks for reminding me. – Miladiouss Jul 31 '18 at 23:04

== BitCoin


will plot the price, so long as you have web access.

• Thank you David, I was trying to create a pretty bitcoin price plot and needed the data and I was wondering what was the easiest way to get it. As discussed in the comments above, I was able to find my answer. – Miladiouss Jul 24 '18 at 1:51

Using WolframAlpha

endDate = Now;
startDate = DatePlus[endDate, -7];

endDateString =
DateString[endDate, {"MonthName", " ", "Day", ", ", "Year"}];
startDateString =
DateString[startDate, {"MonthName", " ", "Day", ", ", "Year"}];

rates = TimeSeries[
First[WolframAlpha[
"exchange rate of bitcoin to dollar from" <> startDateString <>
" to " <> endDateString, {{"Result", 1}, "ComputableData"}]]];

DateListPlot[{rates}, FrameLabel -> Automatic,
PlotTheme -> "Detailed", TargetUnits -> "\$"]


Using External APIs

However, this method doesn't give the user a lot of freedom over the granularity and doesn't provide other financial markers such as volume. To overcome this, (as mentioned by @corey979 go to:

and adjust the plots as you desire, then download the corresponding data for that plot as a CSV. For instance, The bitcoin price for the past 7 days can be downloaded as such:

Import @ "https://data.bitcoinity.org/export_data.csv?c=e&currency=USD&data_type=price&t=l&timespan=7d"