Currency Spot Exchange Rate

symbol <-fredr_series_observations(series_id = "EXVZUS", 
      observation_start = as.Date("2019-01-01"))
      
indicator <-as.data.frame(symbol)[,c(1,3)]

indicator %>% kable() %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>%
   column_spec(2, T, color = "red" )
date value
2019-01-01 1358
2019-02-01 3290
2019-03-01 3290
2019-04-01 3995
2019-05-01 5406
2019-06-01 6172
2019-07-01 7614
2019-08-01 14439
2019-09-01 21018
2019-10-01 20014
2019-11-01 28686
2019-12-01 44161
2020-01-01 66617
2020-02-01 73361
2020-03-01 73314
2020-04-01 121810
2020-05-01 181598
2020-06-01 200471
2020-07-01 225170 
indicator <-as.data.frame(symbol)[,c(1,3)]

indicator %>% ggplot() + 
  geom_line(mapping = aes(x=date,y=value),color="red")  +
     labs(title = "Venezuela / U.S. Foreign Exchange Rate during COVID19 Pandemic", 
       subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Daily", y="Venezuelan bolivares to One dollar",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

symbol <-fredr_series_observations(series_id = "EXCHUS",
       observation_start = as.Date("2019-01-01"))
       
indicator <-as.data.frame(symbol)[,c(1,3)]


indicator %>% kable() %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>%
   column_spec(2, T, color = "red" )
date value
2019-01-01 6.786
2019-02-01 6.737
2019-03-01 6.712
2019-04-01 6.716
2019-05-01 6.852
2019-06-01 6.898
2019-07-01 6.878
2019-08-01 7.063
2019-09-01 7.114
2019-10-01 7.096
2019-11-01 7.020
2019-12-01 7.014
2020-01-01 6.918
2020-02-01 6.997
2020-03-01 7.021
2020-04-01 7.071
2020-05-01 7.102
2020-06-01 7.082
2020-07-01 7.004 
indicator <-as.data.frame(symbol)[,c(1,3)]




indicator %>% ggplot() + 
  geom_line(mapping = aes(x=date,y=value),color="red")  +
     labs(title = "China / U.S. Foreign Exchange Rate during COVID19 Pandemic", 
       subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Daily", y="Chinese Yuans to one dollar",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

symbol <-fredr_series_observations(series_id = "EXBZUS",
       observation_start = as.Date("2019-01-01"))
       
indicator <-as.data.frame(symbol)[,c(1,3)]


indicator %>% kable() %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>%
   column_spec(2, T, color = "red" )
date value
2019-01-01 3.736
2019-02-01 3.724
2019-03-01 3.841
2019-04-01 3.897
2019-05-01 3.991
2019-06-01 3.856
2019-07-01 3.779
2019-08-01 4.022
2019-09-01 4.120
2019-10-01 4.082
2019-11-01 4.156
2019-12-01 4.104
2020-01-01 4.151
2020-02-01 4.347
2020-03-01 4.886
2020-04-01 5.317
2020-05-01 5.639
2020-06-01 5.188
2020-07-01 5.274 
indicator %>% ggplot() + 
  geom_line(mapping = aes(x=date,y=value),color="red")  +
     labs(title = "Brazil / U.S. Foreign Exchange Rate during COVID19 Pandemic", 
       subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Daily", y="Brazillian Reals to One dollar",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

symbol <-fredr_series_observations(series_id = "EXMXUS",
        observation_start = as.Date("2019-01-01"))
       
indicator <-as.data.frame(symbol)[,c(1,3)]

indicator %>% kable() %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>%
   column_spec(2, T, color = "red" )
date value
2019-01-01 19.17
2019-02-01 19.20
2019-03-01 19.24
2019-04-01 18.96
2019-05-01 19.11
2019-06-01 19.27
2019-07-01 19.05
2019-08-01 19.68
2019-09-01 19.55
2019-10-01 19.32
2019-11-01 19.33
2019-12-01 19.10
2020-01-01 18.81
2020-02-01 18.84
2020-03-01 22.38
2020-04-01 24.18
2020-05-01 23.52
2020-06-01 22.31
2020-07-01 22.40 
indicator %>% ggplot() + 
  geom_line(mapping = aes(x=date,y=value),color="red")  +
     labs(title = "Mexico / U.S. Foreign Exchange Rate during COVID19 Pandemic", 
       subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Daily", y="Peso to one Dollar",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

symbol <-fredr_series_observations(series_id = "EXCAUS",
      observation_start = as.Date("2019-01-01"))
       


indicator <-as.data.frame(symbol)[,c(1,3)]

indicator %>% kable() %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>%
   column_spec(2, T, color = "red" )
date value
2019-01-01 1.330
2019-02-01 1.321
2019-03-01 1.337
2019-04-01 1.338
2019-05-01 1.346
2019-06-01 1.329
2019-07-01 1.310
2019-08-01 1.327
2019-09-01 1.324
2019-10-01 1.319
2019-11-01 1.324
2019-12-01 1.317
2020-01-01 1.309
2020-02-01 1.329
2020-03-01 1.396
2020-04-01 1.405
2020-05-01 1.397
2020-06-01 1.355
2020-07-01 1.350 
indicator %>% ggplot() + 
  geom_line(mapping = aes(x=date,y=value),color="red")  +
     labs(title = "Canada / U.S. Foreign Exchange Rate during COVID19 Pandemic", 
       subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Daily", y="Canadian Dollar",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

symbol <-fredr_series_observations(series_id = "EXUSEU",
      observation_start = as.Date("2019-01-01"))
      
indicator <-as.data.frame(symbol)[,c(1,3)]

indicator %>% kable() %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>%
   column_spec(2, T, color = "red" )
date value
2019-01-01 1.142
2019-02-01 1.135
2019-03-01 1.130
2019-04-01 1.123
2019-05-01 1.119
2019-06-01 1.129
2019-07-01 1.121
2019-08-01 1.113
2019-09-01 1.101
2019-10-01 1.106
2019-11-01 1.105
2019-12-01 1.111
2020-01-01 1.110
2020-02-01 1.091
2020-03-01 1.105
2020-04-01 1.087
2020-05-01 1.091
2020-06-01 1.126
2020-07-01 1.149 
indicator %>% ggplot() + 
  geom_line(mapping = aes(x=date,y=value),color="red")  +
     labs(title = "U.S. / Euro Foreign Exchange Rate during COVID19 Pandemic", 
       subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Daily", y="One dollar",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

symbol <-fredr_series_observations(series_id = "ARGCCUSMA02STM",
      observation_start = as.Date("2019-01-01"))
       


indicator <-as.data.frame(symbol)[,c(1,3)]

indicator %>% kable() %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>%
   column_spec(2, T, color = "red" )
date value
2019-01-01 37.29
2019-02-01 38.30
2019-03-01 41.42
2019-04-01 43.16
2019-05-01 44.78
2019-06-01 43.63
2019-07-01 42.48
2019-08-01 52.49
2019-09-01 56.36
2019-10-01 58.44
2019-11-01 59.65
2019-12-01 59.77
2020-01-01 59.91
2020-02-01 61.26
2020-03-01 63.02
2020-04-01 65.66
2020-05-01 67.63
2020-06-01 69.44 
indicator %>% ggplot() + 
  geom_line(mapping = aes(x=date,y=value),color="red")  +
     labs(title = "Argentina / U.S. Foreign Exchange Rate during COVID19 Pandemic", 
       subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Daily", y="National currency",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

symbol <-fredr_series_observations(series_id = "CCUSMA02TRM618N",
      observation_start = as.Date("2019-01-01"))
       


indicator <-as.data.frame(symbol)[,c(1,3)]

indicator %>% kable() %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>%
   column_spec(2, T, color = "red" )
date value
2019-01-01 5.367
2019-02-01 5.272
2019-03-01 5.462
2019-04-01 5.760
2019-05-01 6.047
2019-06-01 5.819
2019-07-01 5.668
2019-08-01 5.632
2019-09-01 5.710
2019-10-01 5.791
2019-11-01 5.738
2019-12-01 5.852
2020-01-01 5.926
2020-02-01 6.063
2020-03-01 6.336
2020-04-01 6.850
2020-05-01 6.932
2020-06-01 6.816
2020-07-01 6.865 
indicator %>% ggplot() + 
  geom_line(mapping = aes(x=date,y=value),color="red")  +
     labs(title = "Turkey / U.S. Foreign Exchange Rate during COVID19 Pandemic", 
       subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Daily", y="National currency",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()

symbol <-fredr_series_observations(series_id = "CCUSMA02CLM618N",
      observation_start = as.Date("2019-01-01"))
       


indicator <-as.data.frame(symbol)[,c(1,3)]

indicator %>% kable() %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>%
   column_spec(2, T, color = "red" )
date value
2019-01-01 675.2
2019-02-01 656.1
2019-03-01 669.6
2019-04-01 667.3
2019-05-01 693.1
2019-06-01 691.0
2019-07-01 686.9
2019-08-01 714.5
2019-09-01 718.8
2019-10-01 722.4
2019-11-01 779.5
2019-12-01 765.3
2020-01-01 774.2
2020-02-01 797.7
2020-03-01 840.3
2020-04-01 852.1
2020-05-01 820.0
2020-06-01 795.9
2020-07-01 781.0 
indicator %>% ggplot() + 
  geom_line(mapping = aes(x=date,y=value),color="red")  +
     labs(title = "Chile / U.S. Foreign Exchange Rate during COVID19 Pandemic", 
       subtitle = str_glue("From {min(indicator$date)} through {max(indicator$date)}"),
       x="Daily", y="National currency",
       caption = "Data source: FRED Federal Reserve.   Illustration by @JoeLongSanDiego")+
    theme_economist()