tidyquant::tq_get

# Load Packages
library(tidyverse)
library(tidyquant)

Stock Index

tq_index_options()

## [1] "DOW"       "DOWGLOBAL" "SP400"     "SP500"     "SP600"

data <- tq_index("DOW")
tq_index("DOW")

## # A tibble: 31 × 8
##    symbol company      identifier sedol weight sector shares_held local_currency
##    <chr>  <chr>        <chr>      <chr>  <dbl> <chr>        <dbl> <chr>         
##  1 UNH    UNITEDHEALT… 91324P102  2917… 0.0938 -          5561818 USD           
##  2 GS     GOLDMAN SAC… 38141G104  2407… 0.0759 -          5561818 USD           
##  3 MSFT   MICROSOFT C… 594918104  2588… 0.0682 -          5561818 USD           
##  4 HD     HOME DEPOT … 437076102  2434… 0.0602 -          5561818 USD           
##  5 CAT    CATERPILLAR… 149123101  2180… 0.0547 -          5561818 USD           
##  6 AMGN   AMGEN INC    031162100  2023… 0.0527 -          5561818 USD           
##  7 MCD    MCDONALD S … 580135101  2550… 0.0470 -          5561818 USD           
##  8 V      VISA INC CL… 92826C839  B2PZ… 0.0455 -          5561818 USD           
##  9 AXP    AMERICAN EX… 025816109  2026… 0.0410 -          5561818 USD           
## 10 CRM    SALESFORCE … 79466L302  2310… 0.0403 -          5561818 USD           
## # ℹ 21 more rows

Stock Exchanges

tq_exchange_options()

## [1] "AMEX"   "NASDAQ" "NYSE"

tq_get

stock <- tq_get("TSLA")
tq_get("TSLA")

## # A tibble: 2,693 × 8
##    symbol date        open  high   low close    volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>     <dbl>    <dbl>
##  1 TSLA   2014-01-02  9.99 10.2   9.77 10.0   92826000    10.0 
##  2 TSLA   2014-01-03 10    10.1   9.91  9.97  70425000     9.97
##  3 TSLA   2014-01-06 10    10.0   9.68  9.80  80416500     9.80
##  4 TSLA   2014-01-07  9.84 10.0   9.68  9.96  75511500     9.96
##  5 TSLA   2014-01-08  9.92 10.2   9.92 10.1   92448000    10.1 
##  6 TSLA   2014-01-09 10.2  10.2   9.79  9.84  80730000     9.84
##  7 TSLA   2014-01-10  9.90  9.93  9.48  9.71 111691500     9.71
##  8 TSLA   2014-01-13  9.72  9.80  9.19  9.29  94741500     9.29
##  9 TSLA   2014-01-14  9.37 10.8   9.11 10.8  414105000    10.8 
## 10 TSLA   2014-01-15 11.2  11.5  10.8  10.9  306984000    10.9 
## # ℹ 2,683 more rows

Economic data from FRED

unemployment_nh <- tq_get("NHUR", get = "economic.data")
unemployment_nh

## # A tibble: 127 × 3
##    symbol date       price
##    <chr>  <date>     <dbl>
##  1 NHUR   2014-01-01   4.8
##  2 NHUR   2014-02-01   4.7
##  3 NHUR   2014-03-01   4.6
##  4 NHUR   2014-04-01   4.5
##  5 NHUR   2014-05-01   4.4
##  6 NHUR   2014-06-01   4.3
##  7 NHUR   2014-07-01   4.3
##  8 NHUR   2014-08-01   4.2
##  9 NHUR   2014-09-01   4.1
## 10 NHUR   2014-10-01   4.1
## # ℹ 117 more rows