Update Currencies analysis report

This commit is contained in:
codez0mb1e 2022-04-04 17:35:26 +00:00
parent 93bfd2dbbf
commit 242e4e938d
4 changed files with 66 additions and 1231 deletions

View File

@ -1,13 +1,19 @@
--- ---
title: "Currencies Analysis" title: "Currencies Analysis"
output: github_document date: "`r format(Sys.time(), '%d %B, %Y')`"
output:
github_document:
toc: false
toc_depth: 2
fig_width: 9
fig_height: 9
--- ---
```{r setup, include=FALSE} ```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = T, warning = F) knitr::opts_chunk$set(echo = T, warning = F)
``` ```
***Analysis price of the my list of ~~the most promised cryptotokens~~ currencies.*** ***Analysis price of the my list of currencies.***
## Prepare ## Prepare
@ -16,6 +22,9 @@ Install packages and set environment :earth_asia:
`install.packages("azuremlsdk")` `install.packages("azuremlsdk")`
```{r set_envinroment, message=FALSE} ```{r set_envinroment, message=FALSE}
options(max.print = 1e3, scipen = 999, width = 1e2)
options(stringsAsFactors = F)
suppressPackageStartupMessages({ suppressPackageStartupMessages({
library(dplyr) library(dplyr)
library(tidyr) library(tidyr)
@ -51,12 +60,19 @@ sprintf(
## Load dataset ## Load dataset
WARNING: I used `currency exchange rates` data from [Kaggle Dataset](https://www.kaggle.com/datasets/dhruvildave/currency-exchange-rates):
```{r get_azure_dataset} ```{r get_azure_dataset}
currencies_ds <- azuremlsdk::get_dataset_by_name(ws, name = .azureml_dataset_name) currencies_ds <- azuremlsdk::get_dataset_by_name(ws, name = .azureml_dataset_name)
currencies_ds$name
currencies_ds$description sprintf(
"Dataset name: %s. %s",
currencies_ds$name,
currencies_ds$description
)
``` ```
Get USD/RUB top higher rates:
Get `USD/RUB` top higher rates:
```{r prepare_dataframe} ```{r prepare_dataframe}
quotes_df <- currencies_ds$to_pandas_dataframe() quotes_df <- currencies_ds$to_pandas_dataframe()
@ -210,11 +226,20 @@ quotes_df %>%
ggplot + ggplot +
geom_line(aes(x = date, y = R, color = symbol)) + geom_line(aes(x = date, y = R, color = symbol)) +
scale_y_continuous(labels = scales::percent_format(accuracy = 1)) +
facet_grid(jumper ~ ., scales = "free") + facet_grid(jumper ~ ., scales = "free") +
labs(x = "", y = "Return of Investment", title = "Currencies Exchange Rates", subtitle = "Return of Investment for last 10 years") + labs(
theme_bw() title = "Currencies Exchange Rates", subtitle = "Return of Investment for last 10 years",
x = "", y = "Return of Investment",
caption = currencies_ds$description) +
theme_minimal() +
theme(
legend.position = "top", legend.title = element_blank(),
plot.caption = element_text(size = 8)
)
``` ```

File diff suppressed because it is too large Load Diff

Binary file not shown.

After

Width:  |  Height:  |  Size: 209 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 121 KiB