Import stock prices

stocks <- tq_get(c("IFX.DE", "NXPI"),
                 get = "stock.prices",
                 from = "2025-01-01",
                 to = "2026-01-01")
stocks
## # A tibble: 503 × 8
##    symbol date        open  high   low close  volume adjusted
##    <chr>  <date>     <dbl> <dbl> <dbl> <dbl>   <dbl>    <dbl>
##  1 IFX.DE 2025-01-02  31.3  32.0  30.9  31.4 3387601     30.9
##  2 IFX.DE 2025-01-03  31.3  31.3  30.5  31   2736099     30.5
##  3 IFX.DE 2025-01-06  31.5  33.5  31.4  33.3 7005897     32.7
##  4 IFX.DE 2025-01-07  33.3  34.0  33.2  34.0 4455990     33.4
##  5 IFX.DE 2025-01-08  33.7  33.8  32.6  32.7 3304826     32.2
##  6 IFX.DE 2025-01-09  32.2  32.6  32.2  32.3 2419930     31.7
##  7 IFX.DE 2025-01-10  32.2  32.5  31.7  32.2 3111140     31.7
##  8 IFX.DE 2025-01-13  31.8  32.5  31.2  32.5 3424739     31.9
##  9 IFX.DE 2025-01-14  32.9  33.3  32.7  32.8 2842022     32.3
## 10 IFX.DE 2025-01-15  32.8  34.1  32.7  33.4 4122889     32.8
## # ℹ 493 more rows

Plot stock prices

stocks %>%
    
    ggplot(aes(x = date, y = adjusted, color = symbol)) +
    geom_line()