Επιτόκια τραπεζικών δανείων
Να πάρετε από την τράπεζα της Ελλάδας το αρχείο που αναφέρετε σε επιτόκια δανεισμού και καταθέσεων. https://opendata.bankofgreece.gr/el/dataset/13 Να κάνετε το διάγραμμα σύγκρισης ανάμεσα στο επιτόκιο στεγαστικού και καταναλωτικού δανείου.
library(tidyverse)
library(scales)
library(readxl)
library(lubridate)
u <- "https://www.bankofgreece.gr/OpenDataSetFilesALL/STATISTIKI/BoG_MIR_el_2021-12-02.xlsx"
download.file(u, destfile = "../data/BoG-13.xlsx")
DF <- read_excel("../data/BoG-13.xlsx") %>%
select(d1 = 1, d2 = 2, kat = 13, steg = 14) %>%
mutate(Date = make_date(d1, d2, 1)) %>%
select(Date, kat, steg)
DF %>%
ggplot(aes(x = Date)) +
geom_line(aes(y = steg, group = "Δάνειο", colour = "c1"), size = 1.5) +
geom_line(aes(y = kat, group = "Δάνειο", colour = "c2"), size = 1.5) +
labs(x = "", y = "Επιτόκιο",
title = "Τραπεζικά επιτόκια νέων δανείων",
caption = "Πηγή: https://opendata.bankofgreece.gr/el/dataset/13") +
scale_colour_manual(name = 'Επιτόκιο',
values =c('c2' = 'blue','c1' = 'red'),
labels = c('Καταναλωτικό', 'Στεγαστικό')) +
theme_minimal(base_size = 18)
DF %>%
ggplot(aes(x = steg, y = kat)) +
geom_point( color = "blue", alpha = 0.5, size = 5, stroke = 1) +
geom_smooth(method = "lm", color = "red") +
theme_ipsum(base_size = 18, base_family = "Ubuntu")
Συνδεθείτε για περισσότερες δυνατότητες αλληλεπίδρασης,
σχολιασμοί, εξωτερικοί σύνδεσμοι, βοήθεια, ψηφοφορίες, αρχεία, κτλ.
σχολιασμοί, εξωτερικοί σύνδεσμοι, βοήθεια, ψηφοφορίες, αρχεία, κτλ.
Εκπαιδευτικό υλικό από τον
Αθανάσιο Σταυρακούδη
σας παρέχετε κάτω από την άδεια
Creative Commons Attribution-NonCommercial-ShareAlike 4.0 License.
Σας παρακαλώ να ενημερωθείτε για κάποιους επιπλέον περιορισμούς
http://stavrakoudis.econ.uoi.gr/stavrakoudis/?iid=401.