A simple client to access the Alpha Vantage Market Data Api. Only the TIME_SERIES_DAILY_ADJUSTED and TIME_SERIES_INTRADAY endpoints are exposed.
aapl <- time_series_daily_adjusted("AAPL",from = "2019-01-01", to = "2019-06-01")
## No encoding supplied: defaulting to UTF-8.
aapl
## # A tibble: 104 x 18
## symbol date sourceName sequenceID datetime epoch open
## <chr> <chr> <chr> <dbl> <dttm> <dbl> <dbl>
## 1 AAPL 2019… AV 0 2019-05-31 09:30:00 1.56e9 176.
## 2 AAPL 2019… AV 0 2019-05-30 09:30:00 1.56e9 178.
## 3 AAPL 2019… AV 0 2019-05-29 09:30:00 1.56e9 176.
## 4 AAPL 2019… AV 0 2019-05-28 09:30:00 1.56e9 179.
## 5 AAPL 2019… AV 0 2019-05-24 09:30:00 1.56e9 180.
## 6 AAPL 2019… AV 0 2019-05-23 09:30:00 1.56e9 180.
## 7 AAPL 2019… AV 0 2019-05-22 09:30:00 1.56e9 185.
## 8 AAPL 2019… AV 0 2019-05-21 09:30:00 1.56e9 185.
## 9 AAPL 2019… AV 0 2019-05-20 09:30:00 1.56e9 184.
## 10 AAPL 2019… AV 0 2019-05-17 09:30:00 1.56e9 187.
## # … with 94 more rows, and 11 more variables: high <dbl>, low <dbl>,
## # volume <dbl>, close <dbl>, aOpen <dbl>, aHigh <dbl>, aLow <dbl>,
## # aClose <dbl>, aVolume <dbl>, dividendAmount <dbl>,
## # splitCoefficient <dbl>
aapl_id <- time_series_intraday("AAPL",nDays = 1)
## No encoding supplied: defaulting to UTF-8.
aapl_id
## # A tibble: 390 x 15
## symbol date minute sourceName sequenceID datetime epoch
## <chr> <chr> <dbl> <chr> <dbl> <dttm> <dbl>
## 1 AAPL 2019… 390 AV 0 2019-06-27 16:00:00 1.56e9
## 2 AAPL 2019… 389 AV 0 2019-06-27 15:59:00 1.56e9
## 3 AAPL 2019… 388 AV 0 2019-06-27 15:58:00 1.56e9
## 4 AAPL 2019… 387 AV 0 2019-06-27 15:57:00 1.56e9
## 5 AAPL 2019… 386 AV 0 2019-06-27 15:56:00 1.56e9
## 6 AAPL 2019… 385 AV 0 2019-06-27 15:55:00 1.56e9
## 7 AAPL 2019… 384 AV 0 2019-06-27 15:54:00 1.56e9
## 8 AAPL 2019… 383 AV 0 2019-06-27 15:53:00 1.56e9
## 9 AAPL 2019… 382 AV 0 2019-06-27 15:52:00 1.56e9
## 10 AAPL 2019… 381 AV 0 2019-06-27 15:51:00 1.56e9
## # … with 380 more rows, and 8 more variables: average <dbl>, open <dbl>,
## # high <dbl>, low <dbl>, close <dbl>, volume <dbl>, notional <dbl>,
## # numberOfTrades <dbl>
Note that the data is returned as a tibble (dataframe)
ggplot2::ggplot(aapl ,aes(x = datetime)) +
geom_candlestick(aes(open = aOpen, high=aHigh, low= aLow, close = aClose)) + ggplot2::ggtitle("APPLE DAILY",subtitle = "from ALPHA VANTAGE")
ggplot2::ggplot(aapl_id ,aes(x = minute,y=close,colour=date)) +
geom_line() +
ggplot2::ggtitle("APPLE Intraday",subtitle = "from ALPHA VANTAGE")
