r-如果只提供国家代码，我如何从一种货币转换为另一种货币

Question

我有一个类似这样的数据集：

value <- data.frame(Country = c('AUS', 'AUT', 'GBR'), amount = c(200, 150, 300))

每一笔金额都是用相应的国家货币表示的。200澳元。美元，150欧元，300英镑。最后我想要的是每个数字都转换成相同的货币，比如欧元。

我已经找到了类似library(quantmod)的东西，但这只对转换有帮助。所以我需要先从国家代码中获取货币。

有什么想法吗？

Answer 1

我们可以使用countrycode包将ISO3国家代码转换为相关的ISO4217货币代码，然后使用priceR将每个货币转换为一种货币，在本例中为欧元。

让我们先获取货币代码。

library(countrycode)
library(priceR)
value$currency_code <- countrycode(value$Country, "iso3c", "iso4217c")
value
#>   Country amount currency_code
#> 1     AUS    200           AUD
#> 2     AUT    150           EUR
#> 3     GBR    300           GBP

然后我们可以得到所有最新的欧元汇率。

e_df <- exchange_rate_latest("EUR")
#> Daily EUR exchange rate as at end of day 2022-01-18 GMT
head(e_df)
#>     currency one_eur_is_equivalent_to
#> 1        AED                 4.184241
#> 2        AFN               119.337926
#> 3        ALL               122.074346
#> 4        AMD               547.591037
#> 5        ANG                 2.052008
#> 6        AOA               611.091441

最后，让我们将汇率纳入我们的数据框架，并以欧元计算金额。

value$exchange_euro <- e_df$one_eur_is_equivalent_to[match(value$currency_code, e_df$currency)]
value$amount_euro <- value$amount / value$exchange_euro
value
#>   Country amount currency_code exchange_euro amount_euro
#> 1     AUS    200           AUD      1.584396    126.2311
#> 2     AUT    150           EUR      1.000000    150.0000
#> 3     GBR    300           GBP      0.836131    358.7955