tidyquant::tq_get

# Load Packages
library(tidyverse)
library(tidyquant)

Stock Index

tq_index_options()

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

data_index <- tq_index("SP400")
data_index

## # A tibble: 400 × 8
##    symbol company     identifier sedol  weight sector shares_held local_currency
##    <chr>  <chr>       <chr>      <chr>   <dbl> <chr>        <int> <chr>         
##  1 TWLO   Twilio Inc… 90138F102  BD6P… 0.0130  Infor…     1139249 USD           
##  2 OKTA   Okta Inc. … 679295105  BDFZ… 0.00991 Infor…     1232311 USD           
##  3 FTI    TechnipFMC… G87110105  BDSF… 0.00812 Energy     2909150 USD           
##  4 NVT    nVent Elec… G6700G107  BDVJ… 0.00766 Indus…     1200694 USD           
##  5 ATI    ATI Inc     01741R102  2526… 0.00729 Indus…     1010136 USD           
##  6 ENTG   Entegris I… 29362U104  2599… 0.00670 Infor…     1133500 USD           
##  7 SNX    TD SYNNEX … 87162W100  2002… 0.00669 Infor…      593152 USD           
##  8 RGLD   Royal Gold… 780287108  2755… 0.00622 Mater…      628529 USD           
##  9 XPO    XPO Inc.    983793100  B6Z1… 0.00612 Indus…      868567 USD           
## 10 UTHR   United The… 91307C102  2430… 0.00610 Healt…      318174 USD           
## # ℹ 390 more rows

Stock Exchanges

tq_exchange_options()

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

data_exchange <- tq_exchange("NYSE")
data_exchange

## # A tibble: 2,712 × 7
##    symbol company           last.sale.price market.cap country ipo.year industry
##    <chr>  <chr>                       <dbl>      <dbl> <chr>      <int> <chr>   
##  1 A      "Agilent Technol…           165.     4.66e10 "Unite…     1999 "Biotec…
##  2 AA     "Alcoa Corporati…            44.0    1.16e10 "Unite…     2016 "Alumin…
##  3 AAC    "Ares Acquisitio…            10.1    7.12e 8 ""          2026 "Metal …
##  4 AADX   "Applied Aerospa…            12.7    2.19e 9 ""          2026 "Milita…
##  5 AAMI   "Acadian Asset M…            91.5    3.25e 9 "Unite…     2014 "Invest…
##  6 AAP    "Advance Auto Pa…            41.1    2.48e 9 "Unite…       NA "Auto &…
##  7 AAT    "American Assets…            21.5    1.32e 9 "Unite…     2011 "Real E…
##  8 AAUC   "Allied Gold Cor…            22.4    3.12e 9 ""          2025 ""      
##  9 AB     "AllianceBernste…            35.8    3.33e 9 "Unite…       NA "Invest…
## 10 ABBV   "AbbVie Inc. Com…           265.     4.68e11 "Unite…     2012 "Biotec…
## # ℹ 2,702 more rows

tq_get

Stock prices from Yahoo Finance

stock <- tq_get("TSLA")
stock

## # A tibble: 2,696 × 8
##    symbol date        open  high   low close    volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>     <dbl>    <dbl>
##  1 TSLA   2016-01-04  15.4  15.4  14.6  14.9 102406500     14.9
##  2 TSLA   2016-01-05  15.1  15.1  14.7  14.9  47802000     14.9
##  3 TSLA   2016-01-06  14.7  14.7  14.4  14.6  56686500     14.6
##  4 TSLA   2016-01-07  14.3  14.6  14.2  14.4  53314500     14.4
##  5 TSLA   2016-01-08  14.5  14.7  14.1  14.1  54421500     14.1
##  6 TSLA   2016-01-11  14.3  14.3  13.5  13.9  61371000     13.9
##  7 TSLA   2016-01-12  14.1  14.2  13.7  14.0  46378500     14.0
##  8 TSLA   2016-01-13  14.1  14.2  13.3  13.4  61896000     13.4
##  9 TSLA   2016-01-14  13.5  14    12.9  13.7  97360500     13.7
## 10 TSLA   2016-01-15  13.3  13.7  13.1  13.7  83679000     13.7
## # ℹ 2,686 more rows

Economic data from FRED

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

## # A tibble: 128 × 3
##    symbol date       price
##    <chr>  <date>     <dbl>
##  1 NHUR   2016-01-01   2.9
##  2 NHUR   2016-02-01   2.9
##  3 NHUR   2016-03-01   2.8
##  4 NHUR   2016-04-01   2.9
##  5 NHUR   2016-05-01   2.9
##  6 NHUR   2016-06-01   2.9
##  7 NHUR   2016-07-01   2.9
##  8 NHUR   2016-08-01   2.9
##  9 NHUR   2016-09-01   2.9
## 10 NHUR   2016-10-01   2.9
## # ℹ 118 more rows